Помогите с прогой

[puporev]

Ну-ка научи как числа в радианы переводят.

[ryton]

число*ПИ/180

[puporev]

Я поражен вашими познаниями в математике. Всегда считал, что по этой формуле градусы переводят в радианы.

[ryton]

я вашим знаниям поражен еще больше.Есть еще какие нибудь предложения как эту прогу сделать?Если да,то то подскажи вариантик.

[puporev]

Вот написал вам программу в Паскале, переделаете в Делфи, алгоритмы те же, только ввод и вывод сделаете в компонеты, правда с другой формулой (arctg(x)).
Недостаток моей формулы то, что все числа положительные и меньше 3, но алгоритмы работают нормально, нужно только вам разобраться с формулой. Еще раз напомню, что arccos(x), это угол, cos которого=х. А х может находиться в пределах [-1,1]. И х-не градусы, а значение функции cosx по оси Y.

const n=6;
var a:array[1..n]of real;
    i,j:integer;
    sum,prz,x:real;
begin
writeln('Ishodnyj massiv:');//создаем массив по формуле, я взzл arctg
sum:=0;prz:=1;
for i:=1 to n do
   begin
     a[i]:=1+arctan(i*i*i+2);
     if (i mod 2<>0)and(a[i]>0)then
        begin
         sum:=sum+a[i]; //считаем сумму положительных на нечетных местах
         prz:=prz*a[i];// то же, произведение
        end;
     write(a[i]:6:3);  //выводим массив, сумму и произведение 
   end;
writeln;
writeln;
writeln('Summa=',sum:6:3,' Proizvedenie=',prz:6:3);
i:=1;
while i<=n-1 do
   begin
    x:=a[i];
    a[i]:=a[i+1];  //меняем местами четные номера с нечетными
    a[i+1]:=x;
    i:=i+2;
   end;
writeln;
writeln('Perestavlennyj massiv:');
for i:=1 to n do
write(a[i]:6:3);  //выводим
writeln;
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]<a[j+1] then  //сортируем по убыванию
    begin
     x:=a[j];
     a[j]:=a[j+1];
     a[j+1]:=x;
    end;
sum:=0;
for i:=1 to 3 do  //находим сумму первых трех(самые большие)
sum:=sum+a[i];
writeln;
Writeln('Summa treh max elementov=',sum:6:3);
writeln;
prz:=1;
for i:=1 to n do  //произведение <3
if a[i]<3 then
prz:=prz*a[i];
writeln('Prz<3=',prz:6:3);
readln
end.