помогите решить в паскале

[Mramarix]

спасибо

[macomics]

s := 0,796329426 * sin(x) - 1,842105263 * cos(x);
// 0,796329426 = 1/3 ^ 0.2073  <-- эту константу можно посчитать на любом калькуляторе
// 1,842105263  <-- раз запустили калькулятор, тогда посчитаем и константу 35/19
t := log10(x/2)*exp(-4)*(tan(y) - tan(x));
if s < t then k := sqrt(3*abs(s*t)) else k := s+t;

[digitalis]

Программисту - калькулятор? Это не comme il faut

[macomics]

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

Программисту - калькулятор? Это не comme il faut

После использования ассемблера - константы и вычисления их значений вручную это нормально.