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

лабораторная работа / вар14 / Lab №8 вариант 14

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

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

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

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

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

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

ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМ ПОДПРОГРАММ ФУНКЦИЙ

НА ЯЗЫКЕ TURBO PASCAL

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

Проверил

2006

Задание: при х=1,14; х=2,483.

Program Lab8;

Var X1, X 2,Y1,Y2:real;

Function f(a: real):real;

Begin

F:=SQRT(a)+ SQRT(sin(a));

End;

Begin

Write(‘Введите х1’);

Read(x1);

Write(‘Введите х2’);

Read(x2);

Y1:= f(f(x1)/f(x12+1));

Y2:= f(f(x2)/f(x22+1));

Write(‘X1=’,X1:4:4,‘, Y1=’,Y1:4:4,‘X2=’,X2:4:4,‘, Y2=’,Y2:4:4);

End.

X=1.14, Y=

X=2.483, Y=

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