Программа на Указатели (PASCAL), Операционная система MS – DOS все адресуемое пространство делит на сег Опции

[milk]

Используя 1н просмотр текстового файла , вывести все его строки в порядке увеличения содержания в них цифр (строки должны содержать цифры).

p.s.Во время "просмотра" файла надо занести "наши" строки в список, потом произвести сортировку списка и ,наконец, выводить ответ в порядке увеличения.

[volvo]

Задача на занесение данных из файла в динамический список неоднократно решалась. Может, проще в поиске найти, чем опять в очередной раз жевать одно и то же?

[milk]

Задача на занесение данных из файла в динамический список неоднократно решалась. Может, проще в поиске найти, чем опять в очередной раз жевать одно и то же?

Да искалось, но как-то не нашлось!(( Всё вокруг да около, а чёткой формулировки нет... Подскажите пожалуйста как сделать!

Сообщение отредактировано: milk - 6.01.2011 18:18

[volvo]

Ну вот смотри, каркас программы (кое-что я убрал, компилироваться программа будет, а работать - будет неправильно. Доделай то, что написано в комментариях - заработает)

type
  PNode = ^TNode;

  TList =
  record
    start, finish: PNode;
  end;

  TNode =
  record
    n: integer;
    s: string;
    next: PNode;
  end;

procedure AddToList(var L: TList; s: string; digits: Integer);
var T: PNode;
begin
  new(T);
  T^.next := nil;
  T^.s := s;
  T^.n := digits;

  if L.start = nil then
    L.start := T
  else
    L.finish^.next := T;

  L.finish := T;
end;

{ Эту сортировку я вставил, потому что была готовая, другую было лень сочинять }
function SortList(L: PNode): PNode;

  function insert(a: PNode; L: PNode): PNode;
  begin
    a^.next := nil;
    if L = nil then insert := a
    else
      if a^.n < L^.n then begin
        a^.next := L; insert := a;
      end
      else begin
        L^.next := insert(a, L^.next);
        insert := L;
      end;
  end;

begin
  if L = nil then SortList := nil
  else SortList := insert(L, SortList(L^.next));
end;

procedure PrintList(L: PNode);
begin
  while L <> nil do
  begin
    writeln(L^.s);
    L := L^.next;
  end;
end;

function Count(s: string): integer;
{
  Это тебе для самостоятельной реализации: функция получает строку
  и должна вернуть количество цифр в этой строке
}
begin
end;

var
  f: text;
  s: string;
  MyList: TList;
  n: integer;

begin
  MyList.start := nil; MyList.finish := nil;

  assign(f, 'ftest.txt'); reset(f);
  while not seekeof(f) do
  begin
    readln(f, s);
    n := Count(s);
    if n > 0 then AddToList(MyList, s, n);
  end;
  close(f);

  PrintList(myList.start);
  readln;

  MyList.start := SortList(Mylist.start);
  PrintList(myList.start);
  readln;

  { ... Здесь список надо будет удалить - попробуй сделать это сама }
end.

[milk]

Хорошо.. Спасибо больше!

Сообщение отредактировано: milk - 6.01.2011 20:41

[milk]

Ну вот смотри, каркас программы (кое-что я убрал, компилироваться программа будет, а работать - будет неправильно. Доделай то, что написано в комментариях - заработает)

вот что-то додуманное:

Код

Program Ukazateli;
type
PNode = ^TNode;

TList =
record
start, finish: PNode;
end;

TNode =
record
n: integer;
s: string;
next: PNode;
end;

procedure AddToList(var L: TList; s: string; digits: Integer);
var T: PNode;
begin
new(T);
T^.next := nil;
T^.s := s;
T^.n := digits;

if L.start = nil then
L.start := T
else
L.finish^.next := T;

L.finish := T;
end;

function SortList(L: PNode): PNode;
var i,j:PNode;q:TNode;
begin
i:=l;
while i<>nil do begin
   j:=l;
   while j<>nil do begin
    if i^.s>j^.s then begin
      q:=i^;
      i^.n:=j^.n;i^.s:=j^.s;
      j^.n:=q.n;j^.s:=q.s;
    end;
    j:=j^.next;
   end;
  i:=i^.next;
end;
end;

procedure PrintList(L: PNode);
begin
while L <> nil do
begin
writeln(L^.s);
L := L^.next;
end;
end;

function Count(s: string): integer;
var i:integer;
begin
result:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then inc(result);
end;

var
f: text;
s: string;
MyList: TList;
n: integer;

begin
MyList.start := nil; MyList.finish := nil;

assign(f, 'PFile.txt'); reset(f);
while not seekeof(f) do
begin
readln(f, s);
n := Count(s);
if n > 0 then AddToList(MyList, s, n);
end;
close(f);

PrintList(myList.start);
readln;

SortList(Mylist.start);
PrintList(myList.start);
readln;

end.

Но программа не выводит строки в порядке увеличения!( Помогите додумать!

[volvo]

программа не выводит строки в порядке увеличения!

Программа не должна выводить строки в порядке увеличения. Она должна выводить строки в порядке возрастания количества цифр, содержащихся в строках. У тебя в процедуре сортировки условие неправильное. Вот тут:

function SortList(L: PNode): PNode;
var i,j:PNode;q:TNode;
begin
i:=l;
while i<>nil do begin
   j:=l;
   while j<>nil do begin
    if i^.s>j^.s then begin { <--- Вот тут ты сравниваешь две строки. Просто, по алфавиту... }
      q:=i^;
      i^.n:=j^.n;i^.s:=j^.s;
      j^.n:=q.n;j^.s:=q.s;
    end;
    j:=j^.next;
   end;
  i:=i^.next;
end;
end;

... нужно делать другое сравнение.

[milk]

Программа не должна выводить строки в порядке увеличения. Она должна выводить строки в порядке возрастания количества цифр, содержащихся в строках. У тебя в процедуре сортировки условие неправильное. Вот тут:

function SortList(L: PNode): PNode;
var i,j:PNode;q:TNode;
begin
i:=l;
while i<>nil do begin
   j:=l;
   while j<>nil do begin
    if i^.s>j^.s then begin { <--- Вот тут ты сравниваешь две строки. Просто, по алфавиту... }
      q:=i^;
      i^.n:=j^.n;i^.s:=j^.s;
      j^.n:=q.n;j^.s:=q.s;
    end;
    j:=j^.next;
   end;
  i:=i^.next;
end;
end;

... нужно делать другое сравнение.

а если поменять:

function SortList(L: PNode): PNode;
var i,j:PNode;q:TNode;
begin
i:=l;
while i<>nil do begin
   j:=l;
   while j<>nil do begin
    if i^.s>j^.s then begin { <--- на if i^.n<j^.n then begin... }
      q:=i^;
      i^.n:=j^.n;i^.s:=j^.s;
      j^.n:=q.n;j^.s:=q.s;
    end;
    j:=j^.next;
   end;
  i:=i^.next;
end;
end;

[volvo]

Вот тогда будет выводить то, что требовалось в задании. И останется только удалить список после окончания работы.