Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / MOD / UKAZ
.PAS Program nu_i_nu;{ᮧ¤ св ў Ї ¬пвЁ ¬ ваЁжг Ё§ N*M б«гз ©ле зЁбҐ«
Ё ўлзЁб«пҐв Ёе б।ҐҐ § 票Ґ}
Uses crt;
const
Sizeofreal=6;
N=50;
m=20;
var
i, j:integer;
Ptrstr:array[1..n] of pointer;
s:real;
type
Realpoint=^real;
Function Adres(i, j:word):realPoint;
begin
Adres:=ptr(seg(PtrStr[i]^),
ofs(PtrStr[i])+(j-1)*SizeofReal)
end;
Function ZnacheniePeremennoy(i, j:integer):real;
begin
ZnacheniePeremennoy:=Adres(i, j)^
end;
Procedure Razmeshch(i, j:integer;x:real);
begin
Adres(i, j)^:=x
end;
Begin{program}
Randomize;
Clrscr;
for i:=1 to n do
begin
GetMem(PtrStr[i], M*SizeofReal);
for j:=1 to n do Razmeshch(i, j, Random)
end;
s:=0;
for i:=1 to n do
for j:=1 to m do
s:=s+ZnacheniePeremennoy(i, j);
Writeln(s/(n*m):12:10);
readln;
end{program}.
Ё ўлзЁб«пҐв Ёе б।ҐҐ § 票Ґ}
Uses crt;
const
Sizeofreal=6;
N=50;
m=20;
var
i, j:integer;
Ptrstr:array[1..n] of pointer;
s:real;
type
Realpoint=^real;
Function Adres(i, j:word):realPoint;
begin
Adres:=ptr(seg(PtrStr[i]^),
ofs(PtrStr[i])+(j-1)*SizeofReal)
end;
Function ZnacheniePeremennoy(i, j:integer):real;
begin
ZnacheniePeremennoy:=Adres(i, j)^
end;
Procedure Razmeshch(i, j:integer;x:real);
begin
Adres(i, j)^:=x
end;
Begin{program}
Randomize;
Clrscr;
for i:=1 to n do
begin
GetMem(PtrStr[i], M*SizeofReal);
for j:=1 to n do Razmeshch(i, j, Random)
end;
s:=0;
for i:=1 to n do
for j:=1 to m do
s:=s+ZnacheniePeremennoy(i, j);
Writeln(s/(n*m):12:10);
readln;
end{program}.