Основы программирования на языке Turbo Pascal. Беляева И.В. - 72 стр.

UptoLike

Составители:

Рубрика:

writeln;

end;

end.

Подсчет количества элементов, удовлетворяющих заданному условию

Задача 15: Подсчитать, сколько раз в строке X встречается элемент,

равный K.

Задача решается по следующему алгоритму:

Вводится число K и число X.

Количество нужных элементов Cnt (CouNTer) = 0.

Проходим по всем элементам строки X.

Если очередной элемент строки равен K,

Тогда увеличиваем Cnt (количество элементов, равных K) на 1.

Фрагмент программы:

Var

k : integer; {Это число будем искать}

x : integer; {В этой строке будем искать число K}

cnt : integer; {Счетчик (CouNTer) количества элементов, равных K

}

…

Begin

{Ввод K и X}

write('Введите K = ');

read(k);

write('Введите X = ');

read(x);

cnt := 0; {В начале подсчета количество элементов,

равных K, обнуляем}

for j := 1 to m do

if a[x, j] = k then {Если элемент равен K,}

inc(cnt); {то увеличиваем счетчик}

…