IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> сортировка обменом, помогите написать прогу
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской
Реальное имя: коля

Репутация: -  0  +


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

помогите пожалуйста ато не могу понять условие заранее спасибо
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


?
***

Группа: Пользователи
Сообщений: 283
Пол: Мужской

Репутация: -  4  +


blink.gif blink.gif
де ты такое задание откапал wacko.gif
попроси преподавателя своего что бы перефразировал задание, а то врятли кто-то поможет
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


Цитата(B&M @ 24.02.2009 22:12) *

помогите пожалуйста ато не могу понять условие заранее спасибо


Я тоже.


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


Цитата
характеристикой строки целочисленной матрицы назовем сумму i отрицательных парных (вот это не пойму, про характеристику эту) элементов. Отсортировать обменом строки матрицы по не убыванию характеристик


Вот что-то такое у меня вышло. Про характеристику непонятно все равно.. (а рядки - строки, как мне кажется, но могут быть и столбцы). В общем, попробуй подоставать преподавателя))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской
Реальное имя: коля

Репутация: -  0  +


если я правильно понял то тут нужно найти суму отрицательных при чом парных елементов матрицы, и потом расположить их по увеличению при помощи сортировки обмена
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Цитата
отрицательных парных
и отрицательных ЧЕТНЫХ - случайно не одно и то же?

А вообще, посмотри в FAQ-е тему про методы сортировки, и найди там "пузырек". Добавляешь в ту процедуру вложенную функцию вычисления характеристики, и задача решается в 10 строк...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской
Реальное имя: коля

Репутация: -  0  +


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

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

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

const n=8;
type
mas=array[1..n] of integer;
var a:mas; i,j:byte; s:integer; c,p:word;
procedure obmen(var a:mas; var c,p:word);
var i,j:byte;
b,s:integer;

begin
for i:=1 to n do
if (a[i]<0)and(a[i]mod 2<0) then
s:=s+a[i];
begin
for i:=2 to n do
begin
for j:=n downto i do
begin
c:=c+1;
if a[j-1]>a[j] then
begin
p:=p+3;
b:=a[j];
a[j]:=a[j-1];
a[j-1]:=b;
end;
end;
end;
end;
end;
begin
for i:=1 to n do
begin
a[i]:=random(100)-40;
writeln(a[i]);
writeln;
end;
obmen(a,c,p);
for i:=1 to n do
write(a[i],' ':2);
readln; readln;

end.


М
1. Темы объединил, зачем было создавать вторую с тем же самым заданием?
2. Тегами пользуйся для выделения кода, без них код нечитабелен абсолютно...

volvo



Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 25.10.2020 0:17
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name