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

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

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









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













ОТЧЕТ

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





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

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







Выполнила:

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

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







































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

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

X,Y



ax+

x+0.7a

-6.3X<0.5

X0.5

Начало

Xn,Xk,h

K=(Xk-Xn)/h+1

X=Xn



I=1,K

Конец



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.