Program kub; var a,rez:real; begin readln(a); rez:=a*a*a; writeln('Объем = ',rez); rez:=(a *sqrt(rez))*12; writeln('Длина всех ребер = ',rez); rez:=6*sqr(a); writeln('Площадь поверхности = ',rez); end.
ОК, всё это циклы. 1) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик увеличивается на 1. Пример: for a:=1 to 10 do //Цикл будет выполнен 10 раз 2) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик уменьшается на 1. Пример: for a:=10 to 1 do //Цикл будет выполнен 10 раз 3)Цикл с постусолвием. Если условие не выполняется, выполняется цикл. Его особенность заключается в том, что цикл выполнится хотя бы один раз вне зависимости от условия. Пример: k:=0; repeat inc(k); until k<9 //10 раз 4)Цикл с предусловием. Пока условие выполняется, выполняется и цикл. Пример: k:=0; while k<>10 do inc(k); //10 раз
{ С использованием цикла 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;
var a,rez:real;
begin
readln(a);
rez:=a*a*a; writeln('Объем = ',rez);
rez:=(a *sqrt(rez))*12; writeln('Длина всех ребер = ',rez);
rez:=6*sqr(a); writeln('Площадь поверхности = ',rez);
end.