Текст программы. Выполнил: студент группы 220611 _____ Макаров А.Ю.

Многомерные массивы

Лабораторная работа № 10

по курсу «Информатика»

Вариант № 11

Выполнил: студент группы 220611 _________ Макаров А.Ю.

(подпись)

Проверил: _________ Дегтярев Н.А.

(подпись)

Тула 2011

Цель работы

Продолжение изучения структурированных данных. Понятие двумерный массив.

Задание

Задана матрица NXM, где N> 1, M> 1. Упорядочить матрицу построчно по возрастанию.

Теоретическая справка

________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________

____________________________________________________________________________________________________________________________________________________________________

__________________________________________________________________________________

__________________________________________________________________________________

Схема алгоритма

На рисунке 1 представлена схема алгоритма работы программы по упорядочению матрицы MxN(где N> 1, M> 1), построчно по возрастанию.

Рисунок 1 – Блок схем алгоритмов

Текст программы

На листинге 1 представлен текст программы упорядочения матрицы MxN

(где N> 1, M> 1), построчно по возрастанию.

Листинг 1

program lab10;

uses crt;

var A: array[1..100, 1..100] of real; t: real;

i, j, c, z, N, M: integer;

tN, tM, tA: string;

begin

clrscr;

repeat

write('N=');

readln(tN);

val(tN, N, z);

if ((z< > 0) or (N< =1)) then

begin

writeln('WARNING! Не верное значение переменной! ');

writeln('Попробуйте еще раз...')

end

else

until ((z=0) and (N> 1));

repeat

write('M=');

readln(tM);

val(tM, M, z);

if ((z< > 0) or (M< =1)) then

begin

writeln('WARNING! Не верное значение переменной! ');

writeln('Попробуйте еще раз...')

end

else

until ((z=0) and (M> 1));

for i: =1 to N do

for j: = 1 to M do

begin

repeat

write('A[', i, ', ', j, ']=');

readln(tA);

val(tA, A[i, j], z);

if (z< > 0) then

begin

writeln('WARNING! Не верное значение переменной! ');

writeln('Попробуйте еще раз...')

end

else

until (z=0);

end;

for i: =1 to N do

for j: =2 to n do

if A[i, j-1]> A[i, j] then

begin

t: =A[i, j];

c: =j-1;

while (c> 0) and (A[i, c]> t) do

begin

A[i, c+1]: =A[i, c];

c: =c-1;

end;

A[i, c+1]: =t;

end; writeln;

for i: =1 to N do

begin

for j: =1 to M do

begin

write('| ');

write(A[i, j]: 6: 2);

write(' | ');

end;

writeln;

end;

writeln;

write('Нажмите клавишу ENTER для завершения...');

readln;

end.