VPF::Задача на тему "Сортировки" - Форум программистов

Garis

Дата 6.10.2005, 13:34 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

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

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

Pakshin A. S.

Дата 6.10.2005, 16:05 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 5
Всего: 61

Расплывчатое задание...

Вот примерчик (разбирай его и переделывай под свой вкус):

Код


const
 MaxMass = 1000;
 MinMass = 1;
 outputf = 'output.txt';

type
 TElemMass = integer;
 TMassSize = MinMass..MaxMass;
 TMass = array [1..MaxMass] of TElemMass;
 TOutputTP = (out_otr, out_zero, out_pol);
 TFile = text;

function InputMass(var mass: TMass): integer;
var
 i: integer;
 buf: integer;
begin
 i:=MinMass-1;
 read(buf);
 while (not Eoln) and (i < MaxMass) do
  begin
   inc(i);
   mass[i]:=buf;
   read(buf)
  end;
 if Eoln
  then
   begin
    inc(i);
    mass[i]:=buf
   end;
 readln;
 InputMass:=i
end;

procedure OutputMass(mass: TMass; MassLen: integer; id: TOutputTP);
var
 i:integer;
begin
 for i:=MinMass to MassLen do
  case id of
   out_otr: if mass[i] < 0
             then
              write(mass[i], ' ');
   out_zero: if mass[i] = 0
              then
               write(mass[i], ' ');
   out_pol: if mass[i] > 0
             then
              write(mass[i], ' ');
  end;
 writeln
end;

procedure OutputFileMass(mass: TMass; MassLen: integer; id: TOutputTP);
var
 i:integer;
begin
 Assign(f, outputf);
 Append(f);
 for i:=MinMass to MassLen do
  case id of
   out_otr: if mass[i] < 0
             then
              write(f, mass[i], ' ');
   out_zero: if mass[i] = 0
              then
               write(f, mass[i], ' ');
   out_pol: if mass[i] > 0
             then
              write(f, mass[i], ' ');
  end;
 writeln(f);
 Close(f)
end;

procedure RewriteOutputFile;
var
 f: TFile;
begin
 Assign(f, outputf);
 rewrite(f);
 Close(f)
end;

procedure SortMass(var mass: TMass; MassLen: integer);
var
 i, j: integer;
 buf: TElemMass;
begin
 for i:=MinMass to MassLen do
  for j:=MinMass to MassLen-1 do
   if mass[j] > mass[j+1]
    then
     begin
      buf:=mass[j];
      mass[j]:=mass[j+1];
      mass[j+1]:=buf
     end
end;

var
 mass: TMass;
 l: integer;
begin
 RewriteOutputFile
 l:=InputMass(mass);
 OutputMass(mass, l, out_otr);
 OutputFileMass(mass, l, out_otr);
 OutputMass(mass, l, out_zero);
 OutputFileMass(mass, l, out_zero);
 OutputMass(mass, l, out_pol);
 OutputFileMass(mass, l, out_pol);
 SortMass(mass, l);
 OutputMass(mass, l, out_otr);
 OutputFileMass(mass, l, out_otr);
 OutputMass(mass, l, out_pol);
 OutputFileMass(mass, l, out_pol);
 writeln('Press <Enter> for exit...');
 readln
end.

Garis

Дата 14.10.2005, 18:28 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Код

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.

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

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