Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 20.2.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. Реферат Buddhist Ethics Essay Research Paper Buddhism is
5. Реферат Рекламная кампания бренда мороженого
6. Реферат на тему Injustice Essay Research Paper Injustice Injustice is
7. Курсовая Кривые и поверхности второго порядка
8. Диплом на тему Порядок формирования средств предприятия
9. Контрольная работа Горы Аппалачи
10. Реферат на тему History Of The KKK Essay Research Paper