9.4. Программы линейных алгоритмов

Пример 1.

Вычислить: . Значение А ввести в градусах.

Решение.

PROGRAM PR1;

VAR

r,a,x,y:real;

BEGIN

{линейный алгоритм}

Writeln (‘ввести a, x, y’);

Read (a, x, y);

a:=a*pi/180;

r:=(ln(x)*ln(x)-cos(a*a)+sqrt(y+x*x)) / ((exp(x)+exp(-x))/2);

Writeln (‘r=’, r: 9:5, ‘a=’, a: 7: 3,’x=’, x: 7:3,’y=’, y: 7: 3);

END.

В данной программе переводится значение переменной А из градусов в радианы. Вывод делается с фиксированной точкой с указанием количества позиций под число и под дробную часть числа.