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

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

Вид работы: реферат

Рубрика: Информатика

Размер файла: 24.03 Kb

Скачать файл: referat.me-132681.docx

Краткое описание работы: ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ ........................................

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

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

........................................

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

ОТЧЕТ

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

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

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

Выполнила:

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

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

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

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

Похожие работы