лабораторная работа / вар19 / Лабораторная №6
.docСОДЕРЖАНИЕ
1 Вариант. Задание 3
2 Графическая схема алгоритма 4
3 Программа на языке Turbo Pascal 6
4 Результаты выполненной работы 8
1 ВАРИАНТ. ЗАДАНИЕ
Вариант №19
Задание.
Напишите программу, ищущую в каждом столбце матрицы 3х3 максимальный и минимальный элемент и меняющую их местами.
2 ГРАФИЧЕСКАЯ СХЕМА АЛГОРИТМА
2
2
i:=1,3
j:=1,3
a[I,j]
Конец
3 ПРОГРАММА НА ЯЗЫКЕ Turbo Pascal
program lab6_Vika;
var
a:array[1..3,1..3] of real;
i_max,i_min,i,j:integer;
min,max:real;
BEGIN
writeln('Vvedite a(3,3): ');
for i:=1 to 3 do begin
for j:=1 to 3 do read(a[i,j]);
end;
for i:=1 to 3 do begin
i_min:=1;
i_max:=1;
max:=a[1,i];
min:=a[1,i];
for j:=2 to 3 do begin
if max<a[j,i] then begin
max:=a[j,i];
i_max:=j;
end;
if min>a[j,i] then begin
min:=a[j,i];
i_min:=j;
end;
end;
a[i_max,i]:=min;
a[i_min,i]:=max;
end;
for i:=1 to 3 do begin
for j:=1 to 3 do write(a[i,j]:5:3,' ');
writeln;
end;
writeln;
END.
4 РЕЗУЛЬТАТЫ ВЫПОЛНЕННОЙ РАБОТЫ
Введите а(3,3)
1 2 3
4 5 6
7 8 9
Вывод результата:
7 8 9
4 5 6
1 2 3