Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 4.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. Реферат на тему The Woman Who Carries Water Essay Research
2. Реферат на тему All Quiet On The Western Front Report!!!
3. Реферат Державна рада з радіо та телебачення у політичній системі Польщі
4. Доклад Разработка управленчесого решения
5. Реферат Содержание способов защиты гражданских прав
6. Реферат на тему Протоколы транспортного уровня
7. Реферат Расход топлива на ВАЗ
8. Диплом на тему Совершенствование планирования реализации продукции на ОАО Кондитерско макаронная фабрика
9. Реферат Преступления против семьи и несовершеннолетних 2
10. Диплом Убийство предусмотренное п з ч2 ст 105 УК РФ уголовно-правовая характеристика проблемы