Дана матрица Х[9,10]. Упорядочить элементы столбцов матрицы по возрастанию, а сами столбцы по возрастанию произведения четных элементов столбцов (использовать сортировку ”пузырек с флажком”).
помогите пожалуйста реализовать в Pascal ...
goto FAQ http://forum.pascal.net.ru/index.php?showtopic=3065
http://forum.pascal.net.ru/index.php?showtopic=3065&view=findpost&p=34991
http://forum.pascal.net.ru/index.php?showtopic=2694
А что именно не получается? Не может же быть, что ВСЁ ...
пузырек с флажком - это че ?
а кто его знает :D может это есть пузырек с просеиванием ? я ссылку дал.
"столбцы по возрастанию произведения четных элементов столбцов " - не понял
нужно посчитать произведение ЧЕТНЫХ элементов в столбце
те
1 2
2 3
3 5
5 1
6 7
7 2
1)2*6=12
2)2*2=4
не упорядочены -> меняешь местами
2 1
3 2
5 3
1 5
7 6
2 7
так, я сделал сортировку элементов столбца по возрастанию... а как теперь сделать сортировку столбцов " по возрастанию произведения четных элементов столбцов " ?
Uses
crt;
const
NN = 9;
MM = 10;
Type
Matrix =
array [1..NN, 1..MM] of Integer;
var
A : Matrix;
(* заполнение массива случайными элементами *)
Procedure RandMatr (var tmp: Matrix; r: integer);
Var
n,m : word;
begin
randomize;
For n:=1 to NN do
For m:=1 to MM do
tmp[n,m]:=random®
end;
(* вывод массива *)
Procedure PrintMatr (var tmp: Matrix);
Var
n,m : word;
begin
For n:=1 to NN do
begin
For m:=1 to MM do
write(tmp[n,m]:2,' ');
writeln
end
end;
(* сортировка *)
Procedure BubbleMatr (var tmp: Matrix);
var
i,j,t,m :word;
flagsort:boolean;
begin
for m:= 1 to MM do
begin
repeat
flagsort:=true;
for i:=1 to NN-1 do
if (tmp[i,m]>tmp[i+1,m]) then
begin
t:=tmp[i,m];
tmp[i,m]:=tmp[i+1,m];
tmp[i+1,m]:=t;
j:=i;
while (j>1)and (tmp[j-1,m]>tmp[j,m]) do
begin
t:=tmp[j,m];
tmp[j,m]:=tmp[j-1,m];
tmp[j-1,m]:=t;
dec(j);
end;
flagsort:=false
end;
until flagsort
end
end;
(* основная программа *)
begin
Clrscr;
RandMatr (A, 50);
PrintMatr (A);
writeln;
BubbleMatr (A);
PrintMatr (A);
Readkey
end.
Читай пост №7, klem4 написал, что надо сделать...
Допустим, есть матрица:
блин как найти четные элементы я не понял ) функция какая ?
Odd(x) = True - значит элемент НЕчетный, в противном случае - четный...
Ну, или по-старинке:
if x mod 2 = 0 then {четный} else {нечетный}
да, спасиб, я уже туплю совсем ))
Ммм.. Вот это пузырёк с флажком если кому то надо чёткий исходик.
Написал сам по теории, по мне этот проще чем указаный раньше.
Тип (Type Xmas = Array[1 .. n] Of Integer;) для этого случая.
Procedure Swap(var a,b: integer);
var tmp: integer;
begin tmp:=a; a:=b; b:=tmp end;
Procedure Bubble_flag(Var a: xmas; n: Integer);
Var i,j: integer; F: boolean;
Begin
i:=2;
F:=True;
while (i<=N) and F do
begin
F:=False;
J:=n;
while j>=i do
begin
if a[j-1]>a[j] then
begin
Swap(a[j-1],a[j]);
f:=True;
end;
dec(j);
end;
inc(i);
end;
End;
1) Некрофилия это плохо
2) В Паскале есть цикл for
3)
Это выглядит так:
repeat
flag := true;
for i := 1 to n - 1 do
if not (x[i] <= x[i + 1]) then begin
T := x[i]; x[i] := x[i + 1]; x[i + 1] := T; flag := false;
end;
until flag;