Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 19.03.2015, 22:45   #1
anechka1034
Новичок
 
Регистрация: 19.03.2015
Сообщений: 1
Репутация: 10
По умолчанию Сортировка каждого второго элемента строки матрицы по возрастанию

Добрый вечер. Пожалуйста помогите весь инет уже облазила и голову сломала не могу выполнить второй пункт. С первым быстро разобралась, а вот сортировка не могу ...могу отполировать. элементы четных столбцов или строк но вот элементы с четным порядковым номером в строке ни как
Миниатюры
Нажмите на изображение для увеличения
Название: IMG-20150317-WA0000.jpg
Просмотров: 79
Размер:	65.9 Кб
ID:	73714  
anechka1034 вне форума   Ответить с цитированием
Старый 19.03.2015, 22:58   #2
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,840
Репутация: 6850
По умолчанию

Ппц... А че верх ногами не повернула? Так же читать удобнее. Мы ж в тилимилитрямдии учились.
Код:
for i:=1 to n do begin
 for j:=2 to m do begin  if not odd(j) then continue;
  for k:=2 to m do begin   if not odd(j) then continue;
   if abs(a[i,j])<abs(a[i,k]) then begin
    v:=a[i,j]; a[i,j]:=a[i,k]; a[i,k]:=v;
   end;
  end;
 end;
end;
n, m - Строки и столбцы матрицы
i, j , k - Счетчики циклов
v - Типа элемента матрицы.

Идея ясна?
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 20.03.2015, 23:19   #3
юджик
 
Регистрация: 20.03.2015
Сообщений: 5
Репутация: 10
По умолчанию

такое же задание.....последовал твоему совету получилась фигня...
может где тупанул?!
Код:
uses
  SysUtils;

const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    i,j,n,x,k:integer;
begin
   repeat
    write('Порядок матрици n=');
     readln(n);
   until n in [1..nmax];
   writeln('Исходная матрица :');
   for i:=1 to n do
    begin
     for j:=1 to n do
      begin
       a[i,j]:=random(20)-5;
       write(a[i,j]:4);
      end;
     writeln;
    end;

      for i:=1 to n do begin
 for j:=2 to n do begin  if not odd(j) then continue;
  for k:=2 to n do begin   if not odd(j) then continue;
   if abs(a[i,j])<abs(a[i,k]) then begin
    x:=a[i,j]; a[i,j]:=a[i,k]; a[i,k]:=x;
   end;
  end;
 end;
end;
writeln('Отсортированные строки');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln
end;
readln
end.
Миниатюры
Нажмите на изображение для увеличения
Название: сортировка.JPG
Просмотров: 75
Размер:	113.7 Кб
ID:	73737  

Последний раз редактировалось Stilet; 21.03.2015 в 09:26.
юджик вне форума   Ответить с цитированием
Старый 21.03.2015, 00:04   #4
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,987
Репутация: 6725
По умолчанию

Цитата:
получилась фигня
Так то ж идея. Нужно как бы и подумать не много. Поменяй так:

for j:=2 to n-1 do begin if not odd(j) then continue;
for k:=j+1 to n do begin if not odd(k) then continue;
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 21.03.2015 в 00:08.
Аватар вне форума   Ответить с цитированием
Старый 21.03.2015, 21:48   #5
юджик
 
Регистрация: 20.03.2015
Сообщений: 5
Репутация: 10
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Так то ж идея. Нужно как бы и подумать не много. Поменяй так:

for j:=2 to n-1 do begin if not odd(j) then continue;
for k:=j+1 to n do begin if not odd(k) then continue;
так вообще ничего не меняет
юджик вне форума   Ответить с цитированием
Старый 21.03.2015, 21:58   #6
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,987
Репутация: 6725
По умолчанию

Меняет, только нечетные. Убери not перед odd в двух местах
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Старый 22.03.2015, 20:43   #7
юджик
 
Регистрация: 20.03.2015
Сообщений: 5
Репутация: 10
Хорошо

Цитата:
Сообщение от Аватар Посмотреть сообщение
Меняет, только нечетные. Убери not перед odd в двух местах
СУПЕР ВСЕ РАБОТАЕТ. СПАСИБО!!!!
юджик вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Упорядочить строки целочисленной прямоугольной матрицы по возрастанию количества одинаковых элементов в каждой строке. Pascal Леви Помощь студентам 6 24.01.2014 13:08
Найти наименьший элемент в каждой строке матрицы и упорядочить строки по возрастанию этих элементов winrey Паскаль 1 21.10.2012 15:20
Создайте квадратную матрицу, значение каждого элемента равно сумме номера строки и столбца C++ loloverg Помощь студентам 1 26.05.2010 21:28
(c++) Сортировка строк матрицы по возрастанию первых элементов Serg046 Помощь студентам 3 08.01.2010 00:17
Проверить, упорядочены ли по возрастанию элементы каждой строки матрицы (Pascal). cosa nostra Помощь студентам 1 11.12.2009 22:26


04:09.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.