Pascal ABC вычислить выражение синус в третьей степени

[maksboss77]

Прошу у вас помощи, нужно написать sin^3(20) в паскале. (Синус третьей степени 20 градусов)
Вот так записал, выдаёт "Не число"
writeln(exp(ln(sin(10))*3));
Но при записи sin10*sin10*sin10 все нормально.
Заранее спасибо!

[p51x]

У синуса аргумент в радианах.

[Serge_Bliznykov]

во-первых, в Pascal ABC есть функция Power для возведения в степень.


во-вторых, синус в Паскале вычисляется в радианах (20 градусов надо перевести в радианы)

в-третьих, можно банально три раза умножить синус.

пробуйте:

var x : real;
begin
  x := Power( sin( 20*pi/180), 3);
  WriteLn(x)
end.

[type_Oleg]

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

банально три раза умножить синус.

В принципе да, но получается что 3 раза прога будет делать одно и то же - вызывать функцию Sin с одним и тем же аргументом.
Я бы сделал так -

var t:Double;
begin
 t:=Sin(20*PI/180);
 WriteLn(t*t*t);
end;

[Serge_Bliznykov]

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

Я бы сделал так -

Ага. Можно так.
Вот только в Pascal ABC нет типа Double.
но в целом, согласен.

[maksboss77]

Всем спасибо большое!!!
Теперь стал немного поопытней)