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

ANTON12

Найти значения выражения для вводимых с клавиатуры значений переменных A, B, C. Вывести результат с точностью 5 знаков после запятой. программный код вроде так:
program Z5;
var a, b, c, s, tg, cos, sin, ln,SQRT: real;
begin
writeln('введите числа a, b, c, через пробел');
readln(a, b, c);
s:=(здесь должен быть пример);
writeln('s=',s);
readln (s);
end.
пример:написал выдает ошибку
program Z5;
var a, b, c, e, s, cos, sin, ctg, ln, SQRT: real;
begin
writeln('введите числа a, b, c, через пробел');
readln(a, b, c)
s:=(a*c-SQRT*(a*a+SQRT(b-cos*(a*a*a))))/((lnвЃЎ*(5*a))/(sin*вЃЎ(6*b))+(ctg*(a-b))/e*c*a)+SQRT*((a+SQRT*(ln*(5/b)+6))/(a*a+((a+b*b*b*b-c)/(5+a/(c-b)))));
writeln('s=',s);
readln (s);
end.
2 ответа

ANTON12

ANTON12, Для формул есть редактор под окном сообщений, нужно писать формулу в нем, а картинки у нас не приветствуются.
program Z5;
var a,b,c,s,t1,t2,t3,t4,t5,t6,t7: real;
begin
writeln('введите a, b, c');
readln(a, b, c);
if(b<=0)or(a<=0)or(a=b)or(c=b) then write('Значение не определено')
else
 begin
  t1:=a*a+sqrt(b)-cos(a*a*a);
  if t1<0 then write('Значение не определено')
  else
   begin
    t2:=ln(5*a)/sin(6*b);
    t3:=cos(a-b)/sin(a-b)/exp(c*a);
    if t2+t3=0 then write('Значение не определено')
    else
     begin
      t4:=a+sqrt(ln(5/b)+6);
      t5:=5+a/(c-b);
      if t5=0 then write('Значение не определено')
      else
       begin
        t6:=a*a+(a+b*b*b*b-c)/t5;
        if t6=0 then write('Значение не определено')
        else
         begin
          t7:=t5/t6;
          if t7<0 then write('Значение не определено')
          else
           begin
            s:=(a*c-sqrt(t1))/(t2+t3)+sqrt(t7);
            write('s=',s:0:6);
           end;
         end;
       end;
     end;
   end;
 end;
end.


ANTON12

спасибо большое !!!