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

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

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

ОТЧЕТ

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

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

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

Выполнила:

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

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

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

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

Xn,Xk,h

K=(Xk-Xn)/h+1

X=Xn

I=1,K

Конец