Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы / Pascal.1.курс / part 1 / вариант 22 / lab6
.pas program mas;
uses crt;
var
a: array [1..5,1..5] of real;
m: array [1..5] of real;
b,c:real;
i,j,k,l,f:integer;
begin
clrscr;
randomize;
{------------------[‡ Ї®«пҐ¬ ¬ ваЁжг б«гз ©л¬Ё зЁб« ¬Ё]--------------------}
writeln('€б室 п ¬ ваЁж ');
for i:=1 to 5 do begin
for j:=1 to 5 do begin
repeat b:=random(100) until b<>0;
repeat
c:=-5+random(10)+random(100)/b;
f:=0;
for k:=1 to i do begin
for l:=1 to 5 do begin
if (k=i) and (l=j) then break;
if (a[k,l]=c) then f:=1;
end;
end;
until f=0;
a[i,j]:=c;
write(a[i,j]:4:1,' ');
end;
writeln;
end;
writeln;
{----------------------------[Џ®ЁбЄ Ё § ¬Ґ ]--------------------------------}
b:=a[1,1];
for i:=2 to 5 do begin
if a[i,i] > b then begin
b:=a[i,i];
k:=i;
end;
end;
a[k,k]:=a[1,1];
a[1,1]:=b;
writeln('€§¬ҐҐ п ¬ ваЁж ');
for i:=1 to 5 do begin
for j:=1 to 5 do write(a[i,j]:4:1,' ');
writeln;
end;
writeln;
{-----------------[Џ®ЁбЄ ¬ЁЁ¬ «мле н«Ґ¬Ґв®ў ў бв®«Ўж е]-------------------}
writeln('ЊЁЁ¬ «млҐ н«Ґ¬Ґвл ў бв®«Ўж е');
for i:=1 to 5 do begin
b:=a[1,i];
for j:=2 to 5 do begin
if a[j,i]<b then b:=a[j,i];
end;
m[i]:=b; write(b:4:1,' ');
end;
end.
uses crt;
var
a: array [1..5,1..5] of real;
m: array [1..5] of real;
b,c:real;
i,j,k,l,f:integer;
begin
clrscr;
randomize;
{------------------[‡ Ї®«пҐ¬ ¬ ваЁжг б«гз ©л¬Ё зЁб« ¬Ё]--------------------}
writeln('€б室 п ¬ ваЁж ');
for i:=1 to 5 do begin
for j:=1 to 5 do begin
repeat b:=random(100) until b<>0;
repeat
c:=-5+random(10)+random(100)/b;
f:=0;
for k:=1 to i do begin
for l:=1 to 5 do begin
if (k=i) and (l=j) then break;
if (a[k,l]=c) then f:=1;
end;
end;
until f=0;
a[i,j]:=c;
write(a[i,j]:4:1,' ');
end;
writeln;
end;
writeln;
{----------------------------[Џ®ЁбЄ Ё § ¬Ґ ]--------------------------------}
b:=a[1,1];
for i:=2 to 5 do begin
if a[i,i] > b then begin
b:=a[i,i];
k:=i;
end;
end;
a[k,k]:=a[1,1];
a[1,1]:=b;
writeln('€§¬ҐҐ п ¬ ваЁж ');
for i:=1 to 5 do begin
for j:=1 to 5 do write(a[i,j]:4:1,' ');
writeln;
end;
writeln;
{-----------------[Џ®ЁбЄ ¬ЁЁ¬ «мле н«Ґ¬Ґв®ў ў бв®«Ўж е]-------------------}
writeln('ЊЁЁ¬ «млҐ н«Ґ¬Ґвл ў бв®«Ўж е');
for i:=1 to 5 do begin
b:=a[1,i];
for j:=2 to 5 do begin
if a[j,i]<b then b:=a[j,i];
end;
m[i]:=b; write(b:4:1,' ');
end;
end.
Соседние файлы в папке вариант 22