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

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

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

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

ОТЧЕТ

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

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

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

Выполнила:

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

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

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

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

 

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.