Ребята, всем доброго времени суток!
Прошу вашей помощи, т.к. сам с Паскалём можно сказать не работал (переписывал задачки с доски и всё). В общем мне дали задание, написать программу со всеми пояснениями и составить к ней схему алгоритма… Для меня это вообще что-то не реальное…(( Помогите, пожалуйста, кто чем может..)) Книжки читать времени совсем нету, а задание уже скоро сдавать.
Вот собственно само задание (оно по теме «Сортировки»):
Дана последовательность из «N» целых чисел, содержащая положительные, отрицательные числа и нули.
Получить три последовательности содержащие только отрицательные числа, только нули и только положительные числа в порядке их следования в исходной.
Ранжировать полученные последовательности по возрастанию и напечатать друг под другом с пояснениями.
Задокументировать исходную последовательность.

Вот такое заданьеце….((
теперь о том что я понимаю: т.е. задан массив, из него нужно сделать выборку, а затем эту выборку(три последовательности) разместить по возрастанию.

Заранее вам огромное спасибо!

Код

program Project2; {$APPTYPE CONSOLE} var   Gen: array [0..100] of integer;   Min: array of integer;   Max: array of integer;   ProstoNil: array of integer; procedure FullArray(); var i: integer; begin   randomize;   for i := 100 downto 0 do begin     Gen[i] := random (200) - 100;   end; end; procedure RazdeliaemVseNafig(); var i: integer; begin   for i := 100 downto 0 do begin     if Gen[i] < 0 then begin       SetLength(Min, Length(Min)+1);       Max[Length(Min)-1] :=Gen[i];     end     else if Gen[i] > 0 then begin       SetLength(Max, Length(Max)+1);       Max[Length(Max)-1] :=Gen[i];     end     else if Gen[i] = 0 then begin       SetLength(ProstoNil, Length(ProstoNil)+1);       Max[Length(ProstoNil)-1] :=Gen[i];     end;   end; end; procedure SortimIznachalniMassiv(); var i, j, TEMP: integer; begin   for i := 100 downto 1 do begin     for j := i downto 0 do begin        if gen[i] > gen [j] then begin          TEMP := gen[i];          gen[i] := gen[j];          gen[j] := TEMP;        end;     end;   end; end; procedure VivodimVseNaEkran(); var i: integer; begin   WriteLn('=====Bolshe 0======');   for i := 0 to Length(Max)-1 do begin     WriteLn(Max[i]);   end;   WriteLn('=====Menshe 0======');    for i := 0 to Length(Min)-1 do begin     WriteLn(Min[i]);    end;    WriteLn('=====Ravno 0======');    for i := 0 to Length(ProstoNil)-1 do begin     WriteLn(ProstoNil[i]);    end; end; begin   FullArray;   SortimIznachalniMassiv;   RazdeliaemVseNafig;   VivodimVseNaEkran; end.

Ну как то вот так,....

~FoX~
Кхе.. кхе.. Мы ведь в паскале, а не в дельфях пишем...

Garis
Зачем дублировать темы? http://forum.vingrad.ru/index.php?showtopi...view=getnewpost

lonely delphist
Ну будет придираться то Это всего лишь алгоритм...

Сделал я задачу по-своему..... но она немного не соответствует самому заданию (оно выше), вот что у меня вышло:

Код

program p1;

const
INPUT_FILE_NAME = 'с:\p1.in';

type
TCondition = function(x : integer) : boolean;

var
f : text;
i, n, t : integer;
flag : boolean;
a : array [1..100] of integer;

function less0(x : integer) : boolean; far;
begin
if x < 0 then
less0 := true
else
less0 := false;
end;

function equal0(x : integer) : boolean; far;
begin
if x = 0 then
equal0 := true
else
equal0 := false;
end;

function above0(x : integer) : boolean; far;
begin
if x > 0 then
above0 := true
else
above0 := false;
end;

procedure print(cond : TCondition);
begin
for i := 1 to n do
if cond(a[i]) then
write(a[i] , ' ');
writeln;
end;

begin
assign(f, INPUT_FILE_NAME);
reset(f);

readln(f, n);

for i := 1 to n do
read(f, a[i]);

repeat
flag := true;
for i := 1 to n-1 do
if a[i] > a[i+1] then begin
t := a[i];
a[i] := a[i+1];
a[i+1] := t;
flag := false;
end;
until flag;

print(less0);
print(equal0);
print(above0);

close(f);
end.

Код

Требуется ваша помощь! Помогите её доработат, чтоб она полностью соответствовала заданию..... А также срочно нужны подробные комментарии в задаче и ОЧЕНЬ НУЖНА БЛОК-СХЕМА(АЛГОРИТМ) задачи..... помогите, пожалуйста!

Цитата(Garis @ 14.10.2005, 17:28)

Помогите её доработат, чтоб она полностью соответствовала заданию.....

Ты скажи что именно у тебя не получается, то я скажу, а просто сидеть разбиратся в чужём коде, я думаю всем не поприколу...

Цитата(Garis @ 14.10.2005, 17:28)

А также срочно нужны подробные комментарии в задаче

А это просто, если ты как говоришь сам всё сделал, то напиши коментарий так как ты понимаешь.

Цитата(Garis @ 14.10.2005, 17:28)

и ОЧЕНЬ НУЖНА БЛОК-СХЕМА(АЛГОРИТМ) задачи..... помогите, пожалуйста!

У чувство юмора, я смотрю у тебя хорошо развито...