{ С использованием цикла FOR } writeln('Используем цикл FOR'); write('Введите стоимость 1-го кг конфет: '); readln(price); for i:=1 to max do begin writeln (i, ' кг. конфет стоят: ', i*price:7:2); end;
{ С использованием цикла REPEAT } i:=1; writeln; writeln('Используем цикл REPEAT'); repeat writeln (i, ' кг. конфет стоят: ', i*price:7:2); i:=i+1; until(i>max);
{ С использованием цикла WHILE } i:=1; writeln; writeln('Используем цикл WHILE'); while(i<=max) do begin writeln (i, ' кг. конфет стоят: ', i*price:7:2); i:=i+1; end; end;
1. Ряд строится по принципу золотого сечения. Формула для вычисления члена последовательности такая: x(2)=x(1)+1, x(3)=x(2)+2, ... x(n)=x(n-1)+n-1
В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp. Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp новым значением.
var i,k,kp:integer; begin kp:=1; for i:=1 to 10 do begin k:=kp+i-1; kp:=k; writeln(k:5, k*k:6, k*k*k:8); end; end.
const max : integer = 10;
var
price : real;
i : integer;
begin
{ С использованием цикла FOR }
writeln('Используем цикл FOR');
write('Введите стоимость 1-го кг конфет: ');
readln(price);
for i:=1 to max do
begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
end;
{ С использованием цикла REPEAT }
i:=1;
writeln;
writeln('Используем цикл REPEAT');
repeat
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
until(i>max);
{ С использованием цикла WHILE }
i:=1;
writeln;
writeln('Используем цикл WHILE');
while(i<=max) do begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
end;
end;