Курсовая работа: Информатика Алгоритмизация и программирование

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

К-во Просмотров: 546
Бесплатно скачать Курсовая работа: Информатика Алгоритмизация и программирование