VPF::[Delphi] Сортировать четные и не четные

Alex103

Дата 1.11.2006, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

Репутация: -1
Всего: нет

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

Код


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.

--------------------

Мой адресс не дом и не улица, мой адресс WWW

Guedda

Дата 1.11.2006, 20:25 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 6
Всего: 78

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

Код


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.

--------------------

Ll 2

Alex103

Дата 1.11.2006, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

Репутация: -1
Всего: нет

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

--------------------

Мой адресс не дом и не улица, мой адресс WWW

Guedda

Дата 2.11.2006, 07:28 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 6
Всего: 78

Ладно... Зачем тогда в твоём коде триста раз массив тырсычить? Вы конструкцию 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.

--------------------

Ll 2

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »