Курсовая работа: Информатика Алгоритмизация и программирование
f:=5* sin((3.14/12)*x);
writeln('f(',x:3:1,')=',f:6:2);
x:=x+1;
until x>0;
readln;
end.
б) Цикл с предусловием
program lab 22;
var x,y:real;
begin
x:=-12;
while x<=0 do
begin
if x<-7 then y:= sin((3.14/12)*x)
else
if x<=-3 then y:= 2*cos((3.14/6)*x+(3.14/12))
else
y:= 5* sin((3.14/12)*x);
writeln('f(',x:3:1,')=',y:6:2);
x:=x+1;
end;
readln;
end.
в) Цикл с параметром
program lab 23;
var
x,y,a,b,h,n1: real;
n ,i : integer;
begin