Почему не работает программа, что не так?

[Демик]

Здравствуйте, у меня проблема с программой, по сути она должна считывать данный из файла в массив, переводить данные массива в радианы, после этого эти данный должны использоваться в формуле, и в конце выводится на экран, сам язык я не изучал, задание задали на практике, поэтому всех тонкостей знать не могу, компилятор у меня Borland 7. Вот код программы:

Program test;                                                                
Var                                                                          
F:text;                                                                      
Y:Array [1..100] of integer;                                                 
A:Array [1..100] Of integer;                                                 
X:Array [1..100] of integer;                                                
i,k:integer;                                                                 
Begin                                                                        
assign(f,'INPUT.txt');                                                       
reset(f);                                                                    
Begin                                                                        
while not eof(f) do                                                          
inc(k);                                                                      
read(f,A[k]);                                                                
end;                                                                         
close(f);                                                                    
for i:=1 to k do                                                             
X[i]:=(Y[i]*Pi)/180;                                                        
Begin                                                                        
for i:=1 to k do 
Y[i]:=(sin(X[i])+i)/cos(X[i]);
Write(Y[i]);
end;
Read;
end.

Подскажите пожалуйста.

[_-Re@l-_]

Вот вам код...

{$N+}
Var
     F : Text;
     A : Array[1..100] of Double;
     I , N : Integer;
Begin
        Assign(F,'input.txt');
        Reset(F);
        N:=0;
        While Not Eof(F) Do
        Begin
                Inc(N);
                Read(F,A[N]);
                A[N]:=A[N]*Pi/180;
                Write(A[N]:0:2,' ');
        End;
        Close(F);
        Readln;
End.

Этот код переводит в радианы и выводит. Далее модифицируйте сами.

[Демик]

Сообщение от _-Re@l-_

{$N+}
Var
     F : Text;
     A : Array[1..100] of Double;
     I , N : Integer;
Begin
        Assign(F,'input.txt');
        Reset(F);
        N:=0;
        While Not Eof(F) Do
        Begin
                Inc(N);
                Read(F,A[N]);
                A[N]:=A[N]*Pi/180;
                Write(A[N]:0:2,' ');// А можно про эту строку поподробнее?
        End;
        Close(F);
        Readln;
End.

А это что значит?

[_-Re@l-_]

Вывод начиная с начала строки , причём на дробную часть числа отводится 2 знакоместа.

[Демик]

Program test;
 Var
 F : Text;
 A : Array[1..100] of Double;
 X : Array[1..100] of Double;
 I , N : Integer;
 Begin
 Assign(F,'input.txt');
 Reset(F);
 N:=0;
 While Not Eof(F) Do
 Begin
 Inc(N);
 Read(F,A[N]);
 A[N]:=A[N]*Pi/180;
 Write(A[N]:0:2,' ');
 End;
 Begin
 For I:=1 To N Do
 X[N]:=(sin(A[N])+N)/cos(A[N]);    
 Write(A[N]:0:2,' ');
 End;
 Close(F);
 Readln;
 End.

Так верно? Только почему-то результатом выводится только один элемент.

[_-Re@l-_]

Begin
 For I:=1 To N Do
 X[N]:=(sin(A[N])+N)/cos(A[N]);    
 Write(A[N]:0:2,' ');
 End;

Это чё за порнография?
Вот так надо

 For I:=1 To N Do
 Begin
 X[N]:=(sin(A[N])+N)/cos(A[N]);    
 Write(A[N]:0:2,' ');
 End;

[Демик]

Де, теперь всё нормально выводит, но почему-то один и тот же результат 0.96 , но похоже так работает моя формула))

[Mad_Cat]

For I:=1 To N Do
 Begin
 X[i]:=(sin(A[i])+i)/cos(A[i]);    
 Write(x[i]:0:2,' ');
 End;

[_-Re@l-_]

Mad_Cat, я даже как-то и не думал смотреть на само тело цикла.

[Демик]

Всем огромное спасибо!)