Question

Составить блок схему алгоритма и программу для вычисления функции по формуле, для произвольных исходных данных, с двойной точностью:
Язык - Паскаль

Answer 1

Ответ:

var

 A, B, c, x, p1, p2 :double;

const

 PI = 3.1415926;

begin

 readln(A, B, c, x);

 if exp(c+power(x,0.2)) <> 0 then

   p2 := 32.7*power(A,3)*x/exp(c+power(x,0.2))

 else begin

   writeln('Деление на 0 во второй дроби');

   halt;

 end;

 

 if (abs(0.65 * A * PI * Power(x,3))<> 2*PI) then

   p1 := tan(0.65 * A * PI * Power(x,3))

 else begin

   writeln('Аргумент для тангенса неверен');

   halt;

 end;

 

 if (p1 < 0) then begin

   writeln('Отрицательное подкоренное выражение');

   halt;

 end

 else

   if(p1 = 0) then begin

     writeln('Деление на 0 в первой дроби');

     halt;

   end;

   

 writeln('Результат: ', (B * cos(x)*cos(x))/sqrt(p1)+p2);

end.

Объяснение: