лабораторная работа / вар14 / Lab №8 вариант 14
.docБАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ
САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
КАФЕДРА: «УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ»
ЛАБОРАТОРНАЯ РАБОТА 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=