Вычислить значение выражения

Анатолийсмауг

Найти значения выражения для вводимых с клавиатуры значений переменных A, B, C. Вывести результат с точностью 5 знаков после за- пятой.
1 ответ

Анатолийсмауг

var a,b,c,t1,t2,t3,t4,t5,y:real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if(a*b<0)or(sin(c+b)=0)or(a=0)or(c<0)or(b+c<=0)or(8+a<=0) then
 begin
  writeln('Значение не определено');
  exit
 end;
t1:=sin(sqrt(a*b)/sin(c+b))/cos(sqrt(a*b)/sin(c+b));
writeln('t1=',t1:0:3);
t2:=t1-8*b+exp(ln(a*a+b*b)*3);
writeln('t2=',t2:0:3);
t3:=a*a/4-b*c+sqrt(c)-ln(b+c);
writeln('t3=',t3:0:3);
if t3<=0 then
 begin
  writeln('Значение не определено');
  exit
 end;
t4:=c*t3/a;
t5:=8*c*a/9/exp(ln(8+a)*3/2);
y:=t2/t4+t5;
write('Значение=',y:0:3);
end.