PascalABC.NET - Написать программу для расчёта по двум формулам.

[serge-first]

Здравствуйте! Прошу помощи в написании программы для расчёта по двум формулам для PascalABC.NET. Заранее благодарен!

Напишите программу для расчёта по двум формулам. Тестовые примеры подготовьте для второй формулы с помощью калькулятора (результаты по обеим формулам должны совпадать).

[GreenWizard]

Наработки/идеи/деньги где?)
эх... щас запилю, всё равно пока дел нет

program Program1;

function z1(a: double): double;
begin
   result := 2 * 
             Sqr(Sin((3 * Pi) - (2 * a))) *
             Sqr(Cos((5 * Pi) + (2 * a)));
end;

function z2(a: double): double;
begin
   result := (1 / 4) - ((1 / 4) * Sin(((5 / 2) * Pi) - (8 * a)));
end;

var
  a: double;
begin
  write('a = ');
  readln(a);
  writeln('z1 = ', z1(a), ', z2 = ', z2(a));
end.

правда там мелкое расхождение в последнем знаке, но это уже не из-за кода, а особенности дробей или самих формул

[serge-first]

Спасибо большое!!! Как Вас отблагодарить?)

[GreenWizard]

весы слева от поста, кошелёк - R315619722705 =)

[serge-first]

Весами воспользовался, а вот кошельком даже пользоваться не умею) Закинул бы сколько смог) В любом случае СПАСИБО! Я к Вам ещё обращусь

[serge-first]

А помочь здесь не сможете?)

http://www.programmersforum.ru/showthread.php?t=228963

Или хотя бы подтолкнуть, несколько задач решил сам, но вот здесь никак)