лабораторная работа / Лабораторная работа №6 вариант 17
.docЦель работы: научиться работать с двухмерными массивами на языке TURBO PASKAL.
Задание: Написать программу, ищущую в каждой строке матрицы 3*3 максимальный и минимальный элемент и меняющую их местами.
xmax=I
ymax=1
xmin=I
ymin=1
max=A[I,1]
min=A[I,1]
нет
да
xmax=I
ymax=J
max=A[I,J]
нет
да
xmin=I
ymin=J
min=A[I,J]
с=A[xmin,ymin] A[xmin,ymin]:=A[xmax,ymax] A[xmax,ymax]:=c Writeln
program example6 (input,output);
var
I,J,m,n: byte;
A:array[1..20,1..20] of integer;
xmin,ymin,xmax,ymax,max,min:byte;
c:integer;
begin
Read(n,m);
for I:=1 to n do
for J:=1 to m do Read(A[I,J]);
for I:=1 to n do
begin
xmax:=I;
ymax:=1;
xmin:=I;
ymin:=1;
max:=A[I,1];
min:=A[I,1];
for J:=2 to m do
begin
if max<A[I,J] then begin
xmax:=I;
ymax:=J;
max:=A[I,J];
end;
if min>A[i,J] then
begin
xmin:=I;
ymin:=J;
min:=A[I,J];
end;
end;
c:=A[xmin,ymin];
A[xmin,ymin]:=A[xmax,ymax];
A[xmax,ymax]:=c;
for J:=1 to m do
Write(' ',A[I,J]);
Writeln;
end;
end.
БАЛАКОВСКИЙ
ИНСТИТУТ ТЕХНИКИ ТЕХНОЛОГИИ И УПРАВЛЕНИЯ
ФАКУЛЬТЕТ
ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ
КАФЕДРА УПРАВЛЕНИЕ
И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ
ЛАБОРАТОРНАЯ РАБОТА №6
ПО ДИСЦИПЛИНЕ
,,ПРОГРАММИРОВАНИЕ
И ОСНОВЫ АЛГОРИТМА,,
Обработка двухмерных
массивов на языке TURBO
PASCAL
Выполнил: ст. гр. УИТ-21
Приняла:.
2006