Три способа сортировки ДВУМЕРНОГО массива в одной программе
Добавлено: 18 апр 2010, 18:57
Здравствуйте. Получил задание составить программу реализующую обработку двумерного числового произвольного массива тремя способами сортировки (пузырька, вставкой, выбора). Честно признаюсь что дуб я в этом деле, а вникнуть и решить самому времени уже не хватает. Кое-что напридумывал для начала (правда не знаю будет ли это работать). Очень нужно три процедуры сортировки двумер. массива, чтоб хоть что-то слепить.
Вот начало моей программы:
помогите пжлст курсовик мой идет прахом(((
Вот начало моей программы:
Код: Выделить всё
program zadanie;
uses crt;
const p=10;
type mas=array[1..p, 1..p] of integer;
var massiv: mas;
procedure InsertMas(var mass: mas);
var i,j,n,s: integer;
ch: char;
begin
writeln('Введите колисчества строк '); readln(n);
writeln('Введите количество столбцов '); readln(s);
for i:=1 to n do
for j:=1 to s do
begin
write('Введите [',i,',',j,']-ый элемент массива: '); readln(mass[i,j]);
end;
end;
procedure PrintMas(mass: mas);
var i,j,n,s:integer;
begin
for i:=1 to n do
for j:=1 to s do
begin
gotoxy(j*5+35,i);
writeln(mass[i,j]);
end;
end;
BEGIN
clrscr;
InsertMas(massiv);
PrintMas(massiv);
repeat
writeln('Выберите вариант сортировки:');
writeln('1 - Пузырька 1');
writeln('2 - Вставки 2');
writeln('3 - Выбора 3');
writeln;
write('...');
ch:=readkey;
until (ch='1') or (ch='2') or (ch='3');
case ch of
'1': sort1;
'2': sort2;
'3': sort3;
end;
readkey;
readln;
readln;
END.