Вычислить арифметическое выражение в турбо паскале

[Ksuu]

3) помогите
image.jpg

[Stilet]

const a=1,x=1;
begin
 write(
  (1/2*a)*
   tan(
     (7*3/13)/(9.13-(6*2/15))*
     exp(
      x/(
       9.13-(6*2/15)
      )
     )
   )
 ); readln;
end.

[Ksuu]

Тут же все не так

[Аватар]

Все так, немного подправить (1/2/a)*...
a и x вводятся, не просто 1, это уж тебе постараться

[type_Oleg]

А так?

  Write(Tan((7+3/13)/(9.13-6-2/15))
              *Exp(x/(9.13-6-2/15))
              /(2*a));

У меня красивше - функции с большой буквы.
И дроби - я так понял, это не 7 умножить на 3/13, это 7 и 3/13

PS А если все же умножить - вместо крестика и палочки поставьте звездочку.

[Аватар]

И дроби - я так понял, это не 7 умножить на 3/13, это 7 и 3/13

Отож, прямо в точку Забывается начальная школа

[Ksuu]

Просто мне преподаватель говорил, что в ТП нет тангенса. Скажите пожалуйста, что не так под б)

PROGRAM VAR3b;
VAR x,b,z:real;
begin
 WRITELN ('enter x');
 READLN(x);
 z:=arctg(2*x/sqrt(1-sqr(2*x)));
 b:=(0.58*exp(1/x))-(sin(z)/cos(z));
 WRITELN (' x=',x:8:4,' b=',b:8:4);
 READLN;
end.

[Stilet]

А почему ты решила что что-то не так? Ошибка или результат не верный?
Если результат то возможно то что ты не учитываешь что тригонометрические функции расчитываются в радианах.

[Ksuu]

Ошибку 3 выдает, курсор на 6 строке

[Artsiom]

Сообщение от Ksuu

Ошибку 3 выдает, курсор на 6 строке

В языке Turbo Pascal нет встроенной функции Tan, но тангенс может быть вычислен с помощью выражения: Sin(X) / Cos(X)