лабораторная работа / вар18 / Лабораторная работа №8 вариант 18
.doc
БАЛАКОВСКИЙ
ИНСТИТУТ ТЕХНИКИ ТЕХНОЛОГИИ И УПРАВЛЕНИЯ
ФАКУЛЬТЕТ
ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ
КАФЕДРА УПРАВЛЕНИЕ
И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ
ЛАБОРАТОРНАЯ РАБОТА №8
ПО ДИСЦИПЛИНЕ
,,ПРОГРАММИРОВАНИЕ
И ОСНОВЫ АЛГОРИТМИЗАЦИИ,,
Программирование
с использованием подпрограмм функций
на
языке ТУРБО
ПАСКАЛЬ.
Выполнил: ст. гр. УИТ-21
Приняла:
2006
Цель работы: овладение навыками алгоритмизации и программирования задач с использованием функции пользователя, овладение навыками написания функции и обращения к ним, выбора параметров функции.
Задание: Вычислить:
x=1.18; x=0.125
Подпрограмма
начало
Программа
Program lab8;
Var
x,Y:real;
Function F (a:real):real;
Begin
F:=SQR(a)+exp(1/3*ln(a));
End;
Begin
Read (x);
y:=SQRT(f(x)/f(cos(x)))+SQR(f(x)/f(cos(x)));
Write ('y=',y:6:3);
End.
x=1.18 Y=9.602
x=0.125 Y=0.578