Курсовая работа: Моделирование физических процессов

a:=0;

b:=1.4;

n:=abs(round((a-b)/h));

readln;

writeln(' x= y= ');

writeln;

c:=2;

d:=0;

for j:=1 to n do

begin

k1:=h*c*sin(d);

k2:=h*(c+0.5*k1)*sin(d+0.5*h);

k3:=h*(c+0.5*k2)*sin(d+0.5*h);

k4:=h*(c+k3)*sin(d+h);

g:=k1+2*k2+2*k3+k4;

Xf[j]:=round(100*d);

Yf[j]:=round(100*c);

if (j=1) or (j=2) or (j=3) or (j=4)

or (j =5) or (j=6) or (j=7) or (j=8) or (j=9) then

begin

write(' ');

write(j);write('. '); write(d);write(' ');writeln(c);

delay(3000);

end

else

begin

write(j);write('. '); write(d);write(' ');writeln(c);

delay(2000)

end;