Задача.
Поиск максимального из чисел.
Решение.
Задача.
Сумматоры
Решение.
Задача.
В компьютер вводится 200 чисел. Компьютер должен подсчитать и напечатать, сколько среди них положительных.
Введём переменную i, которая будет выполнять роль счётчика положительных чисел. Оператор с:=с+1 в нужный момент увеличивает значение счётчика на единицу. Увеличение с на единицу выполняется лишь при выполнении условия: а>0, где а – вводимое число. Счётчик перед входом в цикл необходимо обнулять, иначе он начнёт считать не с нуля.
VAR c,i:Integer;
a:Real;
BEGIN
c:=0;
For i:=1 to 200 do begin
WriteLn('Введите число');
ReadLn(a);
If a>0 then c:=c+1
end;
WriteLn('Из них положительных – ',c)
END.
Сумматор – это переменная величина, в которой подсчитывается сумма чего – либо.
Во дворце N залов. Известны длина и ширина каждого зала. Вычислить площадь пола всего дворца.
Введём переменную Sum, которая будет выполнять роль сумматора. Оператор Sum:=Sum+S каждый раз увеличивает значение сумматора на величину S, т.е. в ячейке Sum накапливается сумма вычисленных площадей отдельных залов. Сумматор перед входом в цикл тоже необходимо обнулять, иначе он начнёт считать не с нуля.
Var i,dlina,shirina,N,S,Sum:Integer;
BEGIN
Sum:=0;
WriteLn('Введите число залов');
ReadLn(N);
For i:=1 to N do begin
WriteLn('Ведите длину и ширину зала');
ReadLn(dlina,shirina);
S:= dlina*shirina;
Sum:=Sum+S
end;
WriteLn('Площадь пола всего дворца=',Sum);
ReadLn
END.
Составить программу для определения максимального из 10 вводимых чисел.
Приготовим для самого максимального числа ячейку и назовём её max. Первое число не глядя введём в эту ячейку. Каждое следующее число (назовём его x) будем сравнивать с max. Если оно больше, то присвоим переменной max значение этого числа.
Var i,x,max:Integer;
BEGIN
WriteLn('Введите первое число ');
ReadLn(max);
For i:=2 to 10 do begin
WriteLn('Введите следующее число');
ReadLn(x);
If x>max then max:=x
end;
WriteLn('Максимальное число: ',max);
ReadLn
END.