Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Сортировать четные и не четные

Автор: Alex103 1.11.2006, 20:08

Вот мне нужно сделать програмку сортировки четных и не четных чисел
исходными данными будет двумерный массив а выходными два одномерных массива соответственно с четными и не четными элементами! Можете взглянуть на мой код. Ато не работает!

Код


program Lab5_2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
m=2;
n=5;
o=10;
var
A:array[1..m,1..n]of integer;
B,C:array[1..o]of integer;
i,j,k,p:Integer;
begin
for i:=1 to m do
for j:=1 to n do begin
write('A ',i,j,' ');
read(A[i,j]);
end;

k:=1;
for i:=1 to m do
for j:=1 to n do begin
if odd(a[i,j])=true then
inc(k);B[k]:=a[i,j];
end;

p:=1;
for i:=1 to m do
for j:=1 to n do begin
if odd(a[i,j])=false then
inc(p); C[p]:=a[i,j];
end;

 for i:=1 to k do  begin
 writeln;
 write(B[k]);

end;
Writeln;
Writeln;
Writeln;
Writeln;
for i:=1 to p do  begin
write(C[k]);
writeln;
end;
readln;
readln;
readln;
readln;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Автор: Guedda 1.11.2006, 20:25

Вот попробуй такую конструкцию. Под рукой дельфт нет, поэтому не могу проверить. Но должно работать:

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a : array[1..5,1..2] of Integer;
  Chet, Nechet : array[1..10] of Integer;
  i,j : Integer;

begin
  Randomize;
  for i := 1 to 5 do
    for j := 1 to 2 do begin
      a[i,j] := Random(100);
      Writeln(a[i,j]);
    end;
  for i := 1 to 5 do
    for j := 1 to 2 do
      if (a[i,j] mod 2) <> 0 then
        Nechet[i] := a[i,j] else
      if (a[i,j] mod 2) = 0 then
          Chet[i] := a[i,j];
  Writeln('Nechet');
  for i := 1 to 10 do
    Writeln(Nechet[i]);
  Writeln('Chet');
  for j := 1 to 10 do
    Writeln(Chet[i]);
end.

Автор: Alex103 1.11.2006, 21:18

Твой код работает не правильно! Я даже не пытался его изменять!Люди подскажите что-то еще! А лучше помогите подредактировать мой код!

Автор: Guedda 2.11.2006, 07:28

Ладно... Зачем тогда в твоём коде триста раз массив тырсычить? Вы конструкцию else изучали?
И ещё у тебя там была маленькая ошибка в выводе массивов. Там вместо K нужно i подставить.
В общем, вот полностью рабочий код (сам проверял несколько раз):

Код


program Lab5_2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
  m=2;
  n=5;
  o=10;
var
  A:array[1..m,1..n]of integer;
  B,C:array[1..o]of integer;
  i,j,k,p:Integer;
begin
  for i:=1 to m do
    for j:=1 to n do begin
      write('A ',i,j,' ');
      read(A[i,j]);
    end;
  k:=1;
  p:=1;
  for i:=1 to m do
    for j:=1 to n do begin
      if odd(a[i,j])=true then begin
        B[k]:=a[i,j];
        inc(k);
      end else begin
        C[p] := a[i,j];
        inc(p);
      end;
    end;
  for i:=1 to k-1 do  begin
    writeln;
    write(B[i]);
  end;
  Writeln;
  Writeln;
  Writeln;
  Writeln;
  for i:=1 to p-1 do  begin
    write(C[i]);
    writeln;
  end;
  readln;
  readln;
  readln;
  readln;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.