лабораторная работа / LAB_8

Лабораторная работа №8.

Функции.

Цель работы: Вычислить значение выражения, используя обращение к функции.

Задание: вычислить значение приведенного выражения:

Блок-схема:

Программа:

program lab8;

var x,y:real;

function ss(a:real):real;

begin

ss:=sqr(sin(a))+sin(a)+5;

end;

begin

read(x);

y:=ss(ss(x)/ss(1/x));

write('y=',y:9:4);

end.

При х=1 получим у=6,5495