характеристикой рядка целочисленной матрицы назовем сумму и отрицательных парных елементов. переставляя рядки заданой матрицы , расположить их в соответствии до не уменьшених(незменшених) характеристик(сортировка обменом)
помогите пожалуйста ато не могу понять условие заранее спасибо
amega
25.02.2009 2:53
де ты такое задание откапал попроси преподавателя своего что бы перефразировал задание, а то врятли кто-то поможет
TarasBer
25.02.2009 4:57
Цитата(B&M @ 24.02.2009 22:12)
помогите пожалуйста ато не могу понять условие заранее спасибо
Я тоже.
Айра
25.02.2009 5:44
Цитата
характеристикой строки целочисленной матрицы назовем сумму i отрицательных парных (вот это не пойму, про характеристику эту) элементов. Отсортировать обменом строки матрицы по не убыванию характеристик
Вот что-то такое у меня вышло. Про характеристику непонятно все равно.. (а рядки - строки, как мне кажется, но могут быть и столбцы). В общем, попробуй подоставать преподавателя))
B&M
25.02.2009 5:54
если я правильно понял то тут нужно найти суму отрицательных при чом парных елементов матрицы, и потом расположить их по увеличению при помощи сортировки обмена
volvo
25.02.2009 6:05
Цитата
отрицательных парных
и отрицательных ЧЕТНЫХ - случайно не одно и то же?
А вообще, посмотри в FAQ-е тему про методы сортировки, и найди там "пузырек". Добавляешь в ту процедуру вложенную функцию вычисления характеристики, и задача решается в 10 строк...
B&M
26.02.2009 1:40
условие характеристикой рядка целочисленной матрицы назовем сумму и отрицательных парных елементов. переставляя рядки заданой матрицы , расположить их в соответствии до не уменьшених(незменшених) характеристик(сортировка обменом)
если я правильно понял то тут нужно найти суму отрицательных при чом четных елементов матрицы, и потом расположить их по увеличению при помощи сортировки обмена
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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.