Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / REIT2ROM
.PAS Program Romik;
uses crt;
Type
Realpoint=^real;
mas=array[1..10000] of Pointer;
var
summa:real;
pr:realpoint;
a:mas;
Sred:real;
i,j,n,m:integer;
BEGIN
clrscr;
Randomize;
Writeln('‚ўҐ¤. n m <=10000 ');
readln(n,m);
for i:=1 to m do
GetMem(a[i],n*Sizeof(real));
for i:=1 to m do
for j:=1 to n do begin
pr:=ptr(seg(a[i]^),ofs(a[i]^)+(j-1)*sizeof(real));
pr^:=-3+random(7);
end;
for i:=1 to m do begin
for j:=1 to n do begin
pr:=ptr(seg(a[i]^),ofs(a[i]^)+(j-1)*6);
write(pr^:4:0);
end;
writeln;
end;summa:=0;
for i:=1 to m do
for j:=1 to n do begin
pr:=ptr(seg(a[i]^),ofs(a[i]^)+(j-1)*6);
summa:=summa+pr^;
end;
sred:=summa/(n*m);
Summa:=0;
for i:=1 to m do
for j:=1 to n do begin
pr:=ptr(seg(a[i]^),ofs(a[i]^)+(j-1)*6);
if pr^>sred then summa:=summa+pr^;
end;
Writeln('‘।ҐҐ аЁд¬ҐвЁзҐбЄ®Ґ: ',sred:4:2);
writeln('‘㬬 : ', summa:4:2);
readln;
end.
uses crt;
Type
Realpoint=^real;
mas=array[1..10000] of Pointer;
var
summa:real;
pr:realpoint;
a:mas;
Sred:real;
i,j,n,m:integer;
BEGIN
clrscr;
Randomize;
Writeln('‚ўҐ¤. n m <=10000 ');
readln(n,m);
for i:=1 to m do
GetMem(a[i],n*Sizeof(real));
for i:=1 to m do
for j:=1 to n do begin
pr:=ptr(seg(a[i]^),ofs(a[i]^)+(j-1)*sizeof(real));
pr^:=-3+random(7);
end;
for i:=1 to m do begin
for j:=1 to n do begin
pr:=ptr(seg(a[i]^),ofs(a[i]^)+(j-1)*6);
write(pr^:4:0);
end;
writeln;
end;summa:=0;
for i:=1 to m do
for j:=1 to n do begin
pr:=ptr(seg(a[i]^),ofs(a[i]^)+(j-1)*6);
summa:=summa+pr^;
end;
sred:=summa/(n*m);
Summa:=0;
for i:=1 to m do
for j:=1 to n do begin
pr:=ptr(seg(a[i]^),ofs(a[i]^)+(j-1)*6);
if pr^>sred then summa:=summa+pr^;
end;
Writeln('‘।ҐҐ аЁд¬ҐвЁзҐбЄ®Ґ: ',sred:4:2);
writeln('‘㬬 : ', summa:4:2);
readln;
end.
Соседние файлы в папке Alex