Массив, Задача Опции

[Студентик13]

Привет всем.Есть задача но я немогу решить. Вина -безграмотность.Заранее благодарен.
Дан двухмерный массив, содержащий 5 строк и 3 столбца. Элементами массива являются вещественные числа. Упорядочить массив по неубыванию элементов первой строки.

[klem4]

задача решалась неоднократно, пользуйся поиском или выкладывай что есть, исправим ошибки, нельзя ведь постоянно для каждого человека персонально заново решать одну и ту же задачу.

[Студентик13]

задача решалась неоднократно, пользуйся поиском или выкладывай что есть, исправим ошибки, нельзя ведь постоянно для каждого человека персонально заново решать одну и ту же задачу.

В поиске не было подобной задачи или просто не нашол дай ссылочку пожалуйста

[klem4]

Прдолжаешь искать готовый код ? Ну держи, наешл в оиске за минуту : link

там далее по топику и по ссылкам на нем ...

Сообщение отредактировано: klem4 - 11.01.2006 23:21

[Студентик13]

Спасибо теперь осталось отфармотировать программу под себя.
Сделаю провериш ладно?

[Студентик13]

Код

var
  mat,str:tmat;
  i:string;
  schM,schN:integer;
begin
  clrscr;
    begin
      for schM:=1 to M do
        begin
          for schN:=1 to N do
            mat[schM,schN]:=schM*schN;
        end;
    end;
  {íà÷àëüíàÿ ìàòðèöà}
  writeln('íà÷.ìàòðèöà ',M,'x',N,':');  {matrix reloded}
  for schM:=1 to M do
    begin
      for schN:=1 to N do
        write(mat[schM,schN]:5);
        writeln('');
{ïåðåñòàíîâêà ñòðîê}
write('äëÿ âûâîäà ðåçóëüòàòà íàæìèòå Enter...');
  readln;
  writeln('êîíå÷íûé ðåçóëüòàò:');
  for schM:=1 to M do
    for schN:=1 to N do
      str[M-schM+1,schN]:=mat[schM,schN];
{âûøëà ìàòðèöà}
  for schM:=1 to M do
    begin
      for schN:=1 to N do
        write(str[schM,schN]:5);
        writeln('');
end;
write('äëÿ âûõîäà íàæìèòå Enter...'); readln;
end;
end.

Проверь пожалуйста

[klem4]

Она даже не компилируется, тип tmat не описан ...

[Студентик13]

У меня на Borland Pascal 7.0 работает в чем дело

[klem4]

в том что ты не скопировал сюда вот эту строчку ...

type
  Tmat=array[1..N,1..M] of integer;

[klem4]

[offtop] или скриншоты [/offtop]

а на самом деле я откомпилировал эту прогу и вообще не понял что там происходит.


добавлено :
ээ гудвинд куда свой мессадж убрал

Сообщение отредактировано: klem4 - 12.01.2006 0:27

[Студентик13]

То что ты не понял был запорченный русский при копировании почемуто испортился.Наверное виноват мод PascRUhet у меня был глюк с русским пришлось установить.
а прога вот:

Код

uses crt;
const
  M=5;N=3;
type
  Tmat=array[1..N,1..M] of integer;
var
  mat,str:tmat;
  i:string;
  schM,schN:integer;
begin
  clrscr;
    begin
      for schM:=1 to M do
        begin
          for schN:=1 to N do
            mat[schM,schN]:=schM*schN;
        end;
    end;
  writeln('nachal'inaya matrix ',M,'x',N,':');  
  for schM:=1 to M do
    begin
      for schN:=1 to N do
        write(mat[schM,schN]:5);
        writeln('');
write('dlia v'ivodo rezyltata nashmi Enter...');
  readln;
  writeln('konechniy rezyltat:');
  for schM:=1 to M do
    for schN:=1 to N do
      str[M-schM+1,schN]:=mat[schM,schN];
  for schM:=1 to M do
    begin
      for schN:=1 to N do
        write(str[schM,schN]:5);
        writeln('');
end;
write('Exit-Enter...'); readln;
end;
end.