Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

лабораторная работа / вар19 / Лабораторная №6

.doc
Скачиваний:
49
Добавлен:
10.02.2014
Размер:
60.42 Кб
Скачать

СОДЕРЖАНИЕ

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

9