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

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

\........................................

Кафедра «Прикладная математика и информатика»

ОТЧЕТ

ПО ЛАБОРАТОРНОЙ РАБОТЕ № ___

Дисциплина «Информатика»

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

Выполнила:

Студентка группы:

Преподаватель:

Цель:
научиться организовывать циклы трех видов в системе Паскаль

Задание:
составить блок-схему алгоритма и программу на языке Паскаль вычисление значения функции Ү=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

ax+

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<0 then y:=2*exp(x)+LN(abs(sqr(x)*x-5))

Else 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;

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<0 then y:=2*exp(x)+LN(abs(sqr(x)*x-5))}

_{Else 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.