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

[milk]

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

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

[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