Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

лабораторная работа / вар18 / Лаба №2 и №3

.doc
Скачиваний:
56
Добавлен:
10.02.2014
Размер:
54.27 Кб
Скачать

БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

КАФЕДРА: «УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ»

ЛАБОРАТОРНАЯ РАБОТА 2

Дисциплина: Программирование и основы алгоритмизации

Программирование алгоритмов разветвляющихся и с заданным числом повторений циклических структур на алгоритмическом языке TURBO PASCAL.

Выполнил ст. гр. УИТ-21

.

Проверил

2006

Цель: разработка алгоритмов с разветвляющей и циклической с заданным числом повторений структур.

Задание: вычислить на ЭВМ значение переменных

0 x < -1

z = 1- abs(x) -1<= x <=1

z = 0 x >1

program lab2(input,output);

var z,x:real;

begin

write('x');

read(x);

if x<-1 then z:=0

Else if x>=-1 then z:=1-abs(x)

else if x<=1 then z:=1-abs(x)

Else if x>1 then z:=0;

writeln('z=',z:8:6);

end.

X1= -2 Z1= 0

X2= 0.4 Z2= 0.6

X3= 2 Z3= -1

Блок – схема алгоритма:

1

2

3 нет 5 нет

4 да 6 да 7

Z = 0

Z = 1-asb(x)

Z = 0

8

9

Цель работы: Вычислить многократно значение функции при изменении аргумента в указанном диапазоне с заданным шагом. Организовать вывод значения аргумента и вычисленного значения функции в виде таблицы.

Задание: вычислить и вывести на экран значение заданной функции

Решение:

при x>1.3

при x=1.3

при x>1.3

a=1.5

Δx=0.1; х є [0.8;2

Обозначения:

x0=0.8; xk=2; deltax=0.1

program Lab_3(input,output);

Uses Crt;

Const a=0.5;deltax=0.1;

Var x,y,xo,xk,d:real;

n,i:integer;

BEGIN

Clrscr;

Writeln('Write xo,xk');

Read(xo,xk);

Writeln('tablisa funktionY(x)');

Writeln(' x y(x) ');

d:=(xk-xo)/deltax;

n:=trunc(d)+1;

x:=xo;

For i:=1 to n do

begin

if x<1.3 then y:=PI*SQR(x)-7/SQR(x)

else if x=1.3 then y:=a*exp(3*ln(x))+7*SQRT(x)

else y:=LN(x+7/SQRT(x));

Writeln(x:10:3, ' ',y:10:3);

x:=x+deltax;

end;

END.

Блок – схема алгоритма:

1

2

3

4

d=(xk-x0)/deltax

5

n=trunc(d)+1

x=x0

6

7

8 нет 10 нет

да да

y:=PI*SQR(x)-7/SQR(x)

y:=a*exp(3*ln(x))+7*SQRT(x)

y:=LN(x+7/SQRT(x));

9 11 12

13

x=x+delrax

14

15

Министерство Образования РФ

Саратовский Государственный Технический Университет

Балаковский Институт Техники Технологии и Управления

Лабораторная работа № 3

Программирование алгоритмов разветвляющихся и с заданным числом повторений циклических структур на алгоритмическом языке TURBO PASCAL.

Выполнил:

ст. группы ПГС – 11

Гнедов Д.П.

Проверила:

Сергеева Е. К.

Балаково 2006

Соседние файлы в папке вар18