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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.10.2010, 21:16   #11
Roof
Форумчанин
 
Аватар для Roof
 
Регистрация: 01.02.2007
Сообщений: 785
По умолчанию

Цитата:
Да, у Вас это перестановка очень легко делается, а я делал типо сначала всю строку запоминаем в отдельный массив-строку, потом заменяем всю строку и тд и тп...
а я рекомендовал выше:
Цитата:
перебирать строку поэлементно от первого элемента до последнего, каждый элемент текущей строки менять местами с элементом верхней строки.


Код не проверял, но "на глаз" все правильно.
Изо всей благодати
В руках крепко сжатых
Я донесу только капли
Roof вне форума Ответить с цитированием
Старый 18.10.2010, 21:48   #12
zevs116
Пользователь
 
Регистрация: 27.09.2010
Сообщений: 21
По умолчанию

)) спасибо большое!))

вот еще задачка:

упорядочить матрицу по неубыванию их наибольших элементов, только принцип, по шагам, можно?
zevs116 вне форума Ответить с цитированием
Старый 18.10.2010, 22:01   #13
Roof
Форумчанин
 
Аватар для Roof
 
Регистрация: 01.02.2007
Сообщений: 785
По умолчанию

Наздоровье
и каких таких
Цитата:
их наибольших элементов
?
Изо всей благодати
В руках крепко сжатых
Я донесу только капли
Roof вне форума Ответить с цитированием
Старый 18.10.2010, 22:08   #14
zevs116
Пользователь
 
Регистрация: 27.09.2010
Сообщений: 21
По умолчанию

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

сделал вот так, но оно почемуто не всегда работает)

Код:
uses CRT;
Const
  NumRow = 5;
  NumCol = 5;
var
  i, j,n : integer;
  Mas : array[1..NumRow,1..NumCol] of integer;
  Max:array[1..5] of integer;
  Mas2:array[1..5] of integer;
begin

  Randomize;
  {создание исходного массива}

  for i := 1 to NumRow do
    for j := 1 to NumCol do
      Mas[i, j] := Random(10);

  WriteLn('Исходная матрица:') ;
  for i := 1 to NumRow do begin
    for j := 1 to NumCol do
        Write(Mas[i, j]:2);
    WriteLn;
  end;
  WriteLn('------------------') ;
  
  {находим максимумы в каждой строке}
  
 for i := 1 to NumRow do
 begin
    max[i]:=Mas[i,j];
    for j := 1 to NumCol do
    if Mas[i,j]>max[i] then max[i]:=Mas[i,j]
 end;
      for i := 1 to NumRow do
 writeln(max[i]);
   {сортировка массива по неубыванию их максимумов}

   for i:=1 to NumRow do
     for j:=i+1 to NumRow do
       if Max[i]>Max[j] then
         begin
           {метод "пузырьков"}
           for n:=1 to 5 do
           begin
           Mas2[n] := Mas[j,n];
           Mas[j,n] := Mas[i,n];
           Mas[i,n] := Mas2[n];
            end;
         end;

  WriteLn('Матрица после сортировки:') ;
  for i := 1 to NumRow do begin
    for j := 1 to NumCol do
        Write(Mas[i, j]:2);
    WriteLn;
  end;

  readln;

end.

Последний раз редактировалось Stilet; 19.10.2010 в 08:40.
zevs116 вне форума Ответить с цитированием
Старый 18.10.2010, 23:19   #15
Roof
Форумчанин
 
Аватар для Roof
 
Регистрация: 01.02.2007
Сообщений: 785
По умолчанию

Нну вот, уже три массива, куда же тебе столько?
Вот так думаю я:
1) Объявляешь свою квадратную матрицу
2) Объявляешь одномерный массив, количество элементов которого равно количеству строк квадратной матрицу, т.е. порядку матрицы.
3) Заполняешь значениями свою матрицу квадратную.
4) Ищешь в каждой строке максимальное и попутно записываешь его в одномерный массив, как новый элемент.
5) Быстренька сортируешь одномерный массив по не убыванию и попутно переставляешь строки в своей квадратной матрице.
Изо всей благодати
В руках крепко сжатых
Я донесу только капли
Roof вне форума Ответить с цитированием
Старый 21.02.2011, 19:40   #16
Ai4ka
Новичок
Джуниор
 
Регистрация: 21.02.2011
Сообщений: 1
По умолчанию

mojno etu je zada4ku na C++?????????????
Ai4ka вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Преобразования изображения!!!=)) KoSSteN Помощь студентам 0 29.03.2010 23:28
явные преобразования breate Общие вопросы C/C++ 2 17.12.2009 00:45
Аффинные преобразования meradone Общие вопросы Delphi 0 22.11.2009 15:00