паскаль и алгебра, помогите плиз привести в нужный язык Опции

[candy888]

Привет всем. Необходимо перевести формулу та что на картинке в язык паскаля. что то с алгеброй туго, ни как не могу сообразить как правильно разобраться с логарифмами в паскале.
вот что сам накидал, но вроде не правильно.

Код

Program chast1;
var a,b,y:real;
begin
Write('Введите b=');
Readln (b);
a:=(ln(ln(b)+b))/ln(10);
y:=(1/(Pi*(Sqr(a)+Sqr(b))))*((3*sin(Sqr(a)+Sqr(b)))*sin((Sqr(a)+Sqr(b))+2*((Sqr(a)+Sqr(b)))));
Writeln('a=',a);
Writeln ('y=',y);
end.

[TarasBer]

> но, мне кажется, ты, Тарас, первый взвоешь от такой оптимизации (извини за переход на личности)).

Почему?
Я всё равно оптимизированные версии для отладки не использую (только на асмовыхлоп смотрю, что там компилятор насочинял), а отключать оптимизации для отладки всегда можно.

[Lapp]

Почему?
Я всё равно оптимизированные версии для отладки не использую (только на асмовыхлоп смотрю, что там компилятор насочинял), а отключать оптимизации для отладки всегда можно.

Ладно, оставим личности (не очень удачная была шутка, но такое уж у меня сложилось мнение о тебе)).

Отключить оптимизацию на отладке? Хорошо. Но если баг как раз в оптимизации?

Допустим, мы делаем на заказ прогу для владельца машинописного цеха, считающую среднее время между нажатиями на клавишу (для оценки скорости работы машинисток)). В цикле вызываем функуцию Time и вычитаем старое (запомненное) значение из нового. На стадии отадки оптимизация отключена. Отладили, все считается правильно. Мы включаем оптимизацию, компилируем и передаем экзешник в эксплуатацию. А назавтра заказчик звонит и мы понимаем из 2% его слов (которые не мат), что результат всегда 0. Угадаешь, почему?

Теперь ответь: как компилятор отличит функцию типа sin от функции типа time? То есть - как он разберет, какую можно кешировать, а какую нельзя?