Организация циклов в системе Паскаль

Цель: научиться организовывать циклы трех видов в системе Паскаль
Задание: составить блок-схему алгоритма и программу на языке Паскаль вычисление значения функции Ү=F(x) для аргумента x изменяющегося от x до xс шагом изменения H.
Program Z_1;
USES CRT;
VAR XN,XK,X,Y,H,a,b:real;
I,K:integer;
BEGIN
clrscr;
writeln('Vvedite XN,XK,H,a,b');
readln(XN,XK,H,a,b);
K:=trunc((XK-XN)/H+1);
X:=XN;
FOR I:=1 to K do begin
if x>=0.5 then y:=a*x+sqrt(2*x+b)
else begin
if(x>=-6.3) and (x<0.5) then y:=sqrt(a*x)/(b*x+3)
else y:=x+0.7*a
end;
writeln('x=',x:8:2,'Y=',Y:8:2);
x:=x+H
end;
readln;
end.
Vvedite XN,XK,H,a,b
-7 1 0.5 -5 11
x= -7.00Y= -10.50
x= -6.50Y= -10.00
x= -6.00Y= -0.09
x= -5.50Y= -0.09
x= -5.00Y= -0.10
x= -4.50Y= -0.10
x= -4.00Y= -0.11
x= -3.50Y= -0.12
x= -3.00Y= -0.13
x= -2.50Y= -0.14
x= -2.00Y= -0.17
x= -1.50Y= -0.20
x= -1.00Y= -0.28
x= -0.50Y= -0.63
x= 0.00Y= 0.00
x= 0.50Y= 0.96
x= 1.00Y= -1.39
X=X+H
ax+
x+0.7a

Program Z2;
Uses crt;
Var Xn,Xk,X,Y,H:real;
i,k: integer;
Begin
Clrscr;
Writeln ('vvedite Xn,Xk,H');
Readln (Xn,Xk,H);
K:=trunc((XK-XN)/H+1);
X:=Xn;
repeat
IF X=6 then y:=5.3*x+x+4*sin(2*x*x)
Else y:=3*sqrt(x*x+abs(x-5));
End;
Writeln ('X=',X:8:2,'Y=',Y:8:2);
X:=X+H;
Until X>Xk;
Readln;
End.
Program A1;
Uses crt;
Var Xn,Xk,X,Y,H:real;
i,k: integer;
Begin
Clrscr;
Writeln ('vvedite Xn,Xk,H');
Readln (Xn,Xk,H);
K:=trunc((XK-XN)/H+1);
X:=Xn;
For I:=1 to K do begin
IF X=6 then y:=5.3*x+x+4*sin(2*x*x)
Else y:=3*sqrt(x*x+abs(x-5));
End;
Writeln ('X=',X:8:2,'Y=',Y:8:2);
X:=X+H;
End;
Readln;
End.

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать полную версию