Здравствуйте! Есть задача:
Найти Y, если Y = X1 + X2 + … + Xn, X = Z^3 - B + A^2 / tg^2*beta. Количество X вводятся пользователем программы. Для каждого X значения Z, B, А, beta разные (вводятся пользователем программы).
Решаю
Код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
Math,
System;
var
xn,i:integer;
a,b,z,beta,y:real;
arr:array of real;
begin
y:=0;
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]:=((sqr(z)*z)-b+(sqr(a)/sqr(Tan(beta))));
end;
for i:=0 to High(arr) do y:=y+arr[i];
writeln('y=',y:3:2);
readln;
end.
Я что-то не так делаю, или что, потому что результат в образце: [скриншот вложение]
Следует заметить, что образец писался на C++. Заранее спасибо