Методические рекомендации. Пример 3. Вычислить значение выражения

Пример 3. Вычислить значение выражения:

РЕШЕНИЕ.

В выражении несколько раз встречаются функции тангенса и де­сятичного логарифма, которых в Паскале нет. Несомненно, удобно создать такие функции и использовать их в программе. Блок-схема программы и подпрограмм-функций показана на рис. 5.6.

Vvod x

Рис. 5.6. Блок-схемы программ и подпрограмм к примеру 5.1.

y=

program Expression;

var x,у:real;

procedure Vvod(t:string; var x:real);

begin

Writeln(t);

Readln(x);

end;

function lg(x:real):real; { Функция вычисления десятичного логарифма}

begin

lg:=ln(x)/ln(10)

end;

function tg (x: real): real; {Функция вычисления тангенса}

begin

tg:=sin(x)/cos(x)

end;

BEGIN

vvod('Введите х',x);

y:=lg(sqr(tg(x))+sqr(cos(x)))/sqr(tg(x+sqr(lg(x)))+sqr(sin(x));

writeln('y=',y:10:4);

END.

Протокол работы программы:

Введите х

3.4
у= 0.0045