Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 136798
14.05.2008, 14:54
0.00 руб.
0 1 1
Компьютеры Программирование
Уважаемые эксперты!!прошу помощи ибо очень нужна :)помогите пожалуйсто решить задачу:)
Дана матрица размером МхN. Упорядочить ее столбцы по воз-
растанию элементов k-й строки.

Обсуждение

давно
puporev
Профессор
401888
1232
14.05.2008, 15:35
общий
это ответ
Здравствуйте, Петров Игорь Ильич!
Решение задачи с небольшими пояснениями в приложении.

Приложение:
uses crt;var m,n,k,i,j,p,x:integer; a:array[1..50,1..50]of integer; label 1; {метка}beginclrscr;write(‘Vvedite kolichestvo strok m=‘);readln(m);write(‘Vvedite kolichestvo stolbcov n=‘);readln(n);writeln(‘vvedite chislo 1<=k<=m‘);1:write(‘k=‘);readln(k);if (k<1)or(k>m)then {проверяем к} begin writeln(‘Nedopustimoe znachenie k‘); readln; goto 1; end;randomize;writeln(‘Ishodnaja matrica:‘);for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(20); write(a[i,j]:4) end; writeln end;readln;{sortirovka po vozrastaaniu v k stroke}for j:=1 to n-1 dofor p:=1 to n-1 doif a[k,p]>a[k,p+1] then {по возрастанию в строке к} begin for i:=1 to m do begin x:=a[i,p]; a[i,p]:=a[i,p+1]; {переставляем во всех строках} a[i,p+1]:=x end end;{vyvod obrabotannoj matrichy}writeln(‘Rezultat:‘);for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln end;readlnend.
Форма ответа