Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / MATRIZA
.PAS PROGRAM matriza;
const nn=1;
mm=9;
var
w:array[nn..mm,nn..mm] of real;
n,m:nn..mm;
amin,amax:real;
i,j,imax,jmax,imin,jmin:integer;
begin
{ repeat}
writeln('‚ўҐ¤ЁвҐ а §¬Ґа®бвм ¬ ваЁжл');
readln(n,m);
writeln('ђ §¬Ґа®бвм ¬ ваЁжл: Ї® бва®Є ¬ n= ',n:3);
writeln(' Ї® бв®«Ўж ¬ m= ',m:3) ;
{ until (n<=10) and (m<=10) and (n>=1) and (m>=1);}
writeln('‚ўҐ¤ЁвҐ ¬ ваЁжг');
for i:=1 to n do
for j:=1 to m do
begin
read(w[i,j]);
IMAX:=2; JMAX:=1;
iMIN:=1; JMIN:=2;
amax:=w[IMAX,JMAX];
amin:=w[iMIN,JMIN];
end;
for i:=1 to n do
for j:=1 to m do
BEGIN
if j<i then
if w[i,j]>amax then
begin
amax:=w[i,j];
imax:=i;
jmax:=j;
end;
if j>i then
if w[i,j]<amin then
begin
amin:=w[i,j];
imin:=i;
jmin:=j;
end;
END;
readln;
{ Џ…—Ђ’њ €‘•Ћ„ЌЋ‰ € ЏЋ‹“—…ЌЌЋ‰ ЊЂ’ђ€–›}
WRITELN;
writeln;
IF (w[IMAX,JMAX]=w[IMIN,JMIN])
THEN
begin
WRITELN('’.Є. § зҐЁп ¬ Єб. Ё ¬Ё. в®зҐЄ а ўл');
WRITELN(' Њ€Ќ. = ',w[imin,jmin]:3:1,' imin= ',imin,' jmin= ',jmin);
writeln(' ЊЂЉ‘.= ',w[imax,jmax]:3:1,' imax= ',imax,' jmax= ',jmax);
writeln('в® Ёб室 п ¬ ваЁж Ё¬ҐҐв ўЁ¤:');
for i:=1 to n do
begin
for j:=1 to m do
write(w[i,j]:3:1,' ');
writeln;
end
end
ELSE
begin
WRITELN('’.Є. § зҐЁп ¬ Єб. Ё ¬Ё. в®зҐЄ Ґ а ўл');
WRITELN(' Њ€Ќ. = ',w[imin,jmin]:3:1,' imin= ',imin,' jmin= ',jmin);
writeln(' ЊЂЉ‘.= ',w[imax,jmax]:3:1,' imax= ',imax,' jmax= ',jmax);
writeln('ЋЎг«пҐ¬ нвЁ в®зЄЁ Wmax= ',W[IMAX,JMAX]:3:1,' ','Wmin= ',W[IMIN,JMIN]:3:1);
writeln('Ё Ї®«гз Ґ¬:');
writeln;
writeln('Ёб室 п ¬ ваЁж ',' ':5,'Ї®«гзҐ п ¬ ваЁж ');
for i:=1 to n do
begin
w[imax,jmax]:=amax;
w[imin,jmin]:=amin;
for j:=1 to m do
write(w[i,j]:3:1,' ');
for j:=1 to m do
begin
w[imax,jmax]:=0.0;
w[imin,jmin]:=0.0;
write(' ':10);
for j:=1 to m do
write(w[i,j]:3:1,' ');
writeln;
end
end;
end;
READLN
end.
const nn=1;
mm=9;
var
w:array[nn..mm,nn..mm] of real;
n,m:nn..mm;
amin,amax:real;
i,j,imax,jmax,imin,jmin:integer;
begin
{ repeat}
writeln('‚ўҐ¤ЁвҐ а §¬Ґа®бвм ¬ ваЁжл');
readln(n,m);
writeln('ђ §¬Ґа®бвм ¬ ваЁжл: Ї® бва®Є ¬ n= ',n:3);
writeln(' Ї® бв®«Ўж ¬ m= ',m:3) ;
{ until (n<=10) and (m<=10) and (n>=1) and (m>=1);}
writeln('‚ўҐ¤ЁвҐ ¬ ваЁжг');
for i:=1 to n do
for j:=1 to m do
begin
read(w[i,j]);
IMAX:=2; JMAX:=1;
iMIN:=1; JMIN:=2;
amax:=w[IMAX,JMAX];
amin:=w[iMIN,JMIN];
end;
for i:=1 to n do
for j:=1 to m do
BEGIN
if j<i then
if w[i,j]>amax then
begin
amax:=w[i,j];
imax:=i;
jmax:=j;
end;
if j>i then
if w[i,j]<amin then
begin
amin:=w[i,j];
imin:=i;
jmin:=j;
end;
END;
readln;
{ Џ…—Ђ’њ €‘•Ћ„ЌЋ‰ € ЏЋ‹“—…ЌЌЋ‰ ЊЂ’ђ€–›}
WRITELN;
writeln;
IF (w[IMAX,JMAX]=w[IMIN,JMIN])
THEN
begin
WRITELN('’.Є. § зҐЁп ¬ Єб. Ё ¬Ё. в®зҐЄ а ўл');
WRITELN(' Њ€Ќ. = ',w[imin,jmin]:3:1,' imin= ',imin,' jmin= ',jmin);
writeln(' ЊЂЉ‘.= ',w[imax,jmax]:3:1,' imax= ',imax,' jmax= ',jmax);
writeln('в® Ёб室 п ¬ ваЁж Ё¬ҐҐв ўЁ¤:');
for i:=1 to n do
begin
for j:=1 to m do
write(w[i,j]:3:1,' ');
writeln;
end
end
ELSE
begin
WRITELN('’.Є. § зҐЁп ¬ Єб. Ё ¬Ё. в®зҐЄ Ґ а ўл');
WRITELN(' Њ€Ќ. = ',w[imin,jmin]:3:1,' imin= ',imin,' jmin= ',jmin);
writeln(' ЊЂЉ‘.= ',w[imax,jmax]:3:1,' imax= ',imax,' jmax= ',jmax);
writeln('ЋЎг«пҐ¬ нвЁ в®зЄЁ Wmax= ',W[IMAX,JMAX]:3:1,' ','Wmin= ',W[IMIN,JMIN]:3:1);
writeln('Ё Ї®«гз Ґ¬:');
writeln;
writeln('Ёб室 п ¬ ваЁж ',' ':5,'Ї®«гзҐ п ¬ ваЁж ');
for i:=1 to n do
begin
w[imax,jmax]:=amax;
w[imin,jmin]:=amin;
for j:=1 to m do
write(w[i,j]:3:1,' ');
for j:=1 to m do
begin
w[imax,jmax]:=0.0;
w[imin,jmin]:=0.0;
write(' ':10);
for j:=1 to m do
write(w[i,j]:3:1,' ');
writeln;
end
end;
end;
READLN
end.
Соседние файлы в папке Alex