Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 25.6.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. Реферат на тему Beloved Unity In Community Essay Research Paper
2. Контрольная работа Грамматические правила русского языка
3. Реферат на тему Looking For Stuff On The Net That
4. Реферат на тему Aldous Huxley Essay Research Paper Author Aldous
5. Реферат на тему Technology Will Effect You Essay Research Paper
6. Доклад на тему Каслинское чугунное литье
7. Диплом на тему Аудит расчетов по зарплате и ЕСН на примере ОАО АФ Аудитинформ Брянс
8. Реферат Правовое регулирование кредитных отношений в Украине
9. Реферат Человечество на пороге новой парадигмы
10. Реферат на тему Значение полового воспитания подростков и его влияние на формирование личности