Помощь - Поиск - Пользователи - Календарь
Полная версия: Массив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Студентик13
11.01.2006 19:04
Привет всем.Есть задача но я немогу решить. Вина -безграмотность.Заранее благодарен.
Дан двухмерный массив, содержащий 5 строк и 3 столбца. Элементами массива являются вещественные числа. Упорядочить массив по неубыванию элементов первой строки.
klem4
11.01.2006 20:48
задача решалась неоднократно, пользуйся поиском или выкладывай что есть, исправим ошибки, нельзя ведь постоянно для каждого человека персонально заново решать одну и ту же задачу.
Студентик13
11.01.2006 22:49
Цитата
задача решалась неоднократно, пользуйся поиском или выкладывай что есть, исправим ошибки, нельзя ведь постоянно для каждого человека персонально заново решать одну и ту же задачу.

В поиске не было подобной задачи или просто не нашол дай ссылочку пожалуйста
klem4
11.01.2006 23:19
Прдолжаешь искать готовый код ? Ну держи, наешл в оиске за минуту : link

там далее по топику и по ссылкам на нем ...
Студентик13
11.01.2006 23:51
Спасибо теперь осталось отфармотировать программу под себя.
Сделаю провериш ладно? unsure.gif
Студентик13
12.01.2006 0:02
Код
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
12.01.2006 0:10
Она даже не компилируется, тип tmat не описан ...
Студентик13
12.01.2006 0:12
У меня на Borland Pascal 7.0 работает в чем дело
klem4
12.01.2006 0:14
в том что ты не скопировал сюда вот эту строчку ... mega_chok.gif 

type
  Tmat=array[1..N,1..M] of integer;
klem4
12.01.2006 0:26
[offtop] или скриншоты lol.gif [/offtop]

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


добавлено :
ээ гудвинд куда свой мессадж убрал smile.gif
Студентик13
12.01.2006 0:55
То что ты не понял был запорченный русский при копировании почемуто испортился.Наверное виноват мод 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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.