лабораторная работа / лабор-ая №8 турбо паскаль

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ ФАКУЛЬТЕТ ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ КАФЕДРА «УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ»

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

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

ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМ

ПОДПРОГРАММ ФУНКЦИЙ на языке

TURBO PASCAL

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

Приняла:

2008

Балаково

Лабораторная работа №8 Программирование с использованием

подпрограмм функций на языке TURBO PASCAL

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

Задание. ВАРИАНТ 17. Вычислить:

;при x₁=1.17; x₂=2.183

Графический алгоритм:

Начало

x₁=

x₁

x₂=

x₂

y₁,y₂

writeln

Конец

Программа, реализующая данный алгоритм имеет вид:

Program m11;

Var

x1,x2,y1,y2:real;

function f(a:real):real;

Begin

f:=sin(a)/cos(a)+sqrt(a);

end;

begin

write ('vvedite x1=');

read(x1);

write ('vvedite x2=');

read(x2);

y1:=f(f(x1)/f(sqr(sin(x1))));

y2:=f(f(x2)/f(sqr(sin(x2))));

write('y1=',y1:3:2,' ','y2=',y2:3:2);

writeln;

End.

(Ответы У₁=-8.21 У₂=0.22)