Лабы и курсовая для АТП / Лабораторная работа 1

Лабораторная работа 1.

Тема: Разветвление вычислительного процесса.

Задание: Программа для вычисления значения функции:

где a=1,11+b^0,21; b=2,35; x=1; c=1,001.

Ход работы:

Блок-схема:

Код программы:

uses crt;

var a,b,c,x,q:real;

begin clrscr;

x:=1;

c:=1.001;

b:=2.35;

a:=1.11+exp(0.21*ln(b));

if a>1 then

q:=a+b*x+c*sqr(x)

else

q:=exp(2*ln(a*sin(x)));

writeln(q:2:2);

readln;

end.

Результат работы программы: