Pascal задача, ответ сильно отличается от образца, что я делаю не так?

Question

[Mors Clamor]

Имеется задача:
(знак вопроса - это бета)
Я пытаюсь решить на паскале (консольное delphi)

program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils,
  Math;


var
  xn,i:integer;
  a,b,z,beta,y:real;
  arr:array of real;
begin
write('input quantity X: ');
readln(xn);
SetLength(arr,xn);
for i:=0 to High(arr) do arr[i]:=0;
for i:=0 to High(arr) do
begin
writeln('Input a,b,z,beta for x',i,': ');
write('a=');
readln(a);
write('b=');
readln(b);
write('z=');
readln(z);
write('beta=');
readln(beta);
arr[i]:=(z*z*z)-b+a*a/(Tan(2*beta)*Tan(2*beta));
end;
for i:=0 to High(arr) do y:=y+arr[i];
writeln('y=',y:3:2);
readln;
end.

Ответ не сходится с образцом

Что я делаю не так?

Comments

[15432]

С этими знаками вопроса не очень ясно, что собой представляет "tg^2?"
Если просто подставить бету, получится хрень - tg^2b. Сейчас у вас в коде tg(2b)^2. Может нужно tg(b)^2, а может tg(b^2), фиг поймёшь

[Mors Clamor]

15432: это, судя по всему, tan(beta)^2

[Mors Clamor]

15432: в любом случае, ответ не сходится

[15432]

66demon666: В каком виде представлен образец? Набор входных и выходных данных? Покажите...

[Mors Clamor]

15432: Именно так.
Вот отсюда задача
Тыц

[15432]

Не знаю, насколько критично в Паскале, но у вас нет y = 0
по ссылке дано решение на сях, действительно, квадрат тангенса

[georgich]

Приветствую. А чего вы так странно в квадрат возводите? Есть же функция sqr(). Соответственно и в куб через неё можно возвести. Это для начала.

[georgich]

И про тангенс: sqr(tan(beta)) пробовали?

[Mors Clamor]

georgich: Здравствуйте. Да, ответ так же очень сильно отличается

[georgich]

66demon666: зачем лишние скобки в начале и в конце?

[Mors Clamor]

georgich: без них ругается)