Реферат

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

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 29.3.2025





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

\........................................
Кафедра «Прикладная математика и информатика»
ОТЧЕТ

ПО ЛАБОРАТОРНОЙ РАБОТЕ № ___
Дисциплина «Информатика»

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

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

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

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


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.



1. Диплом Брачный договор в регулировании правоотношений супругов
2. Реферат Верста
3. Реферат Психотерапевтические методы лечения и психокоррекции ПТСР
4. Реферат Основы фандрайзинга или как легко сделать свою организацию богатой
5. Реферат на тему Fanons Three Stages Related To The Indigenious
6. Реферат Сетесдаль
7. Реферат Производственная деятельность отдела технического контроля или производственная лаборатория пром
8. Контрольная работа на тему Маркетинговые исследования перспектив научно технологического развития Украины
9. Реферат на тему Failure Of Religion In Albee
10. Курсовая Контрольно-надзорные функции Банка России