Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.09.2010, 13:40   #1
nafa
Новичок
Джуниор
 
Регистрация: 28.09.2010
Сообщений: 2
По умолчанию программирование в среде Paskal

Составить программу сортировки по возрастанию столбцов матрицы А размером N*M.Переставить местами 1-ю и N-ю строки матрицы.
nafa вне форума Ответить с цитированием
Старый 28.09.2010, 13:47   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Наработки есть?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 28.09.2010, 13:51   #3
nafa
Новичок
Джуниор
 
Регистрация: 28.09.2010
Сообщений: 2
По умолчанию

Никаких пока, ещё блок схему составить надо
nafa вне форума Ответить с цитированием
Старый 28.09.2010, 14:24   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ок. Предлагаю сортировку в таком виде:
Код:
const n=5;m=4;
 var i,j,k,e:integer;a:array[1..n,1..m] of integer;
begin
 for i:=1 to n do begin
  for j:=1 to m do begin
   a[i,j]:=random(1000);
   write(a[i,j]:5);
  end; writeln;
 end; writeln;

 for i:=1 to m do begin
    for j:=1 to n do begin
      for k:=1 to n do begin
        if a[j,i]>a[k,i] then begin
         e:=a[j,i];a[j,i]:=a[k,i];a[k,i]:=e;
        end;
      end;
    end;
 end;

 for i:=1 to n do begin
  for j:=1 to m do begin
   write(a[i,j]:5);
  end; writeln;
 end; writeln;

  { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа в среде С++ spiker. Помощь студентам 1 09.06.2010 16:43
Обработка строк в среде TP Mari.Prosto Mari Паскаль, Turbo Pascal, PascalABC.NET 3 09.06.2010 07:03
Обработка строк в среде TP MariKa-91 Паскаль, Turbo Pascal, PascalABC.NET 5 27.05.2010 20:44
Визуальное программирование на С++ в среде Windows RokDemon C++ Builder 3 23.12.2009 12:50
программирование в среде Visual basic xDmitry_x Фриланс 11 27.10.2009 23:33