fork download

copy

Program Escribeserie;
Uses crt;
Type rango=1..1000;
vector= array [rango] of double;
matriz= array[rango,rango] of double;
Var i, j, k, a, b : integer;
    p,q,r,s : double;
    t: vector;
    m: matriz;
Begin
Writeln ('ingrese cantidad de terminos d ela SF');
Read(k);
p:=3.14;
For j:=1 to 20 do
    Begin
        For i:=1 to k do
         Begin
              T[i]:=(-200*sin(2*p*(1/20)*i*j));
              r:=T[i]+r;
         end;
         Writeln (r);
         Readln;
     End;
     Readln;
End.
 

Mozart Compiler 1.4.0 (20080704) playing Oz 3

%%% feeding file prog.oz

%*************************** parse error ************************
%**
%** syntax error, unexpected ';', expecting T_ENDOFFILE
%**
%** in file "./prog.oz", line 1, column 20
%** ------------------ rejected (1 error)

Standard output is empty