85 ! информатика. (паскаль) 14. составьте программу, по которой компьютер пять раз запросит ввод целых чисел и в результате сообщит сумму значений элементов. как можно скорее
Цикл - это замечательное изобретение, которое, в сущности, и делает компьютеры такими ценными. Он позволяет многократно повторить любую часть программы. Цикл не может выполняться вечно, он заканчивается по какому-либо условию. Проверка этого условия может производиться в начале каждого повторяющегося шага, в этом случае цикл называется ПОКА. При проверке условия в конце каждого шага цикл называется ДО. Разновидностью цикла ДО является цикл ПЕРЕСЧЕТ.
10.1.Оператор цикла WHILE (цикл ПОКА).
Формат оператора: WHILE логическое выражение DO;
Оператор будет повторятся пока истинно логическое выражение. Перед каждым повторением оператора значение логического выражения вычисляется заново. Если необходимо повторить несколько операторов, их следует объединить в составной оператор, т.е. заключить в операторные скобки begin ... end. Этот цикл может не выполниться ни разу, если условие при входе в него оказалось ложным. Таким образом, цикл ПОКА содержит условие повторения цикла.
Пример 1. Программа подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N.
Program Summa; Var S:real; N:integer; Begin S:=0;N:=0; While n<1000 do Begin N:=n+1; S:=s+1/n End; Writeln(s); Readln End.
Uses crt; var f:text; i,x,sm,n:integer; pr:longint; begin randomize; clrscr; pr:=1; assign(f,'f.txt'); rewrite(f); writeln('Введите число заполнений (например 6, в файле будет шесть натуральных чисел) ?'); readln(n); for i:=1 to n do begin write(i,') '); readln(x); writeln(f,x); end; close(f); reset(f); while not Eof(f) do begin read(f,x); sm:=sm+x; if x <> 0 then pr:=pr*x; end; if n <> 0then begin writeln; writeln('Сумма всех чисел = ',sm); writeln('Произведение всех чисел = ',pr); end else writeln('Файл пустой.'); readkey; close(f);end.
var a,s,i: integer;
begin
s:=0;
for i:=1 to 5 do begin
write('введите число: ');
readln(a);
s:=s+a;
end;
write('сумма: ',s);
end.