Среди N произвольных вещественных чисел найдите количество не равных нулю. - Pascal ABC
Формулировка задачи:
Решите с помощью блок схемы или паскаля
Составьте алгоритм для решения следующей задачи:
Среди N произвольных вещественных чисел найдите количество не равных нулю.
Решение задачи: «Среди N произвольных вещественных чисел найдите количество не равных нулю.»
textual
Листинг программы
program fst;
var i,n,s: integer;
ch: real;
begin
write('n='); readln(n);
s:=0;
for i:=1 to n do
begin
readln(ch);
if (not(ch=0)) then inc(s) else
end;
writeln(s);
end.
Объяснение кода листинга программы
Этот код написан на языке Pascal ABC и выполняет следующую задачу: среди N произвольных вещественных чисел находит количество чисел, которые не равны нулю. Вот список действий, представленных в коде, с указанием номеров строк и названий переменных:
- Строка 2:
write('n='); readln(n);- программа запрашивает у пользователя значение переменной N и сохраняет его в переменную n. - Строка 3:
s:=0;- переменная s инициализируется значением 0. - Строка 4:
for i:=1 to n do- цикл выполняется от 1 до N. - Строка 5:
readln(ch);- программа запрашивает у пользователя следующее число и сохраняет его в переменную ch. - Строка 6:
if (not(ch=0)) then inc(s) else- проверяется, равно ли число 0. Если нет, то значение переменной s увеличивается на 1. - Строка 7:
writeln(s);- программа выводит значение переменной s.