Перевести с турбо паскаля в паскаль абс

program z1;

uses crt;

type

TTmas=array[1 ... 1] of real;

Tmas=^TTmas;

var

a:Tmas;

n, i, j:integer;

f:real;

begin

clrscr;

write ('Размер массива n=') ;

readln (n) ;

getmem (a, sizeof (TTmas) * n) ;

writeln ('Исходный массив:') ;

f:=1;

for i:=1 to n do

begin

f:=fi;

a^[i]:=1 / (f+1) ;

writeln (a^[i]:0:10) ;

end;

freemem (a, sizeof (TTmas) n) ;

readln

end.

Question

Информатика

Михаил

16 июня, 05:16

Перевести с турбо паскаля в паскаль абс

program z1;

uses crt;

type

TTmas=array[1 ... 1] of real;

Tmas=^TTmas;

var

a:Tmas;

n, i, j:integer;

f:real;

begin

clrscr;

write ('Размер массива n=') ;

readln (n) ;

getmem (a, sizeof (TTmas) * n) ;

writeln ('Исходный массив:') ;

f:=1;

for i:=1 to n do

begin

f:=fi;

a^[i]:=1 / (f+1) ;

writeln (a^[i]:0:10) ;

end;

freemem (a, sizeof (TTmas) n) ;

readln

end.

+3

Ответы (1)

Знаете ответ на вопрос?

Татуня · Answer 1

Program z1;

type

Tmas=array of real;

var

a:Tmas;

n, i:integer;

f:real;

begin

write ('Размер массива n=') ;

readln (n) ;

SetLength (a, n) ;

writeln ('Исходный массив:') ;

f:=1;

for i:=0 to n-1 do

begin

f:=f * (i+1) ;

a[i]:=1 / (f+1) ;

writeln (a[i]:0:10) ;

end;

SetLength (a, 0) ;

end.