Расположить элементы каждого столбца матрицы по возрастанию

@Vlad1kT · Регистрация: 16.06.2013

Студворк — интернет-сервис помощи студентам

Дана матрица размерностью n×m, все элементы матрицы действительные числа, которые определяются пользователем программы. Расположить элементы каждого столбца по возрастанию, полученную матрицу распечатать таким образом, чтобы каждая строка была отдельно.

Составить блок-схему!

@ermolay · 16.06.2013, 09:13

Pascal

uses
  crt;
var
  a: array[1..10,1..10] of real;
  n,m,i,j,k: integer;
  tmp: real;
begin
  randomize;
  clrscr;
  repeat
    write('Ââåäèòå ðàçìåðû ìàòðèöû n, m (n<=10 m<=10): ');
    readln(n,m);
  until (n in [1..10]) and (m in [1..10]);
  writeln('Ââåäèòå ýëåìåòû ìàòðèöû:');
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('a[',i,',',j,']=');
      readln(a[i,j]);
    end;
    
  for j:=1 to m do
    for k:=2 to n do
      for i:= n downto k do
        if a[i-1,j]>a[i,j] then
        begin
          tmp:=a[i-1,j];
          a[i-1,j]:=a[i,j];
          a[i,j]:=tmp;
        end;
  writeln('Óïîðÿäî÷åííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:8:2);
    writeln;
  end;
  readln;
end.

@ermolay · 16.06.2013, 09:15

блок схема:

@Vlad1kT 1 / 1 / 0 Регистрация: 16.06.2013 Сообщений: 9
		1
	Расположить элементы каждого столбца матрицы по возрастанию 16.06.2013, 08:59. Показов 1283. Ответов 2 Метки нет (Все метки) Дана матрица размерностью n×m, все элементы матрицы действительные числа, которые определяются пользователем программы. Расположить элементы каждого столбца по возрастанию, полученную матрицу распечатать таким образом, чтобы каждая строка была отдельно. Составить блок-схему! 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	16.06.2013, 09:15	3
	блок схема: Миниатюры 1

Опции темы

Расположить элементы каждого столбца матрицы по возрастанию

Решение