Тема Указатели! Pascal

[ElenCelsi]

Составленная программа ниже!

[Serge_Bliznykov]

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

 while i<>nil do begin
   j:=l;
   while j<>nil do 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;

кстати, Ваш код содержит одну фишку, которой не было в Pascal
(она появилась позже, в Delphi, FreePascal)... У Вас какой компилятор?
речь идёт о возврате значения функции через result
я бы так переписал код функции подсчёта количества цифр в строке:

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

впрочем, это не обязательно. Можно и так оставить. Если всё компилируется и работает...
Главное, чтобы Вы про эту особенность знали...

[ElenCelsi]

Сообщение от Serge_Bliznykov

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

 while i<>nil do begin
   j:=l;
   while j<>nil do 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;

кстати, Ваш код содержит одну фишку, которой не было в Pascal
(она появилась позже, в Delphi, FreePascal)... У Вас какой компилятор?

У меня ABS Паскаль!( на win7 просто у меня только на ноуте работает Turbo там 32х битная 7ёрка

[ElenCelsi]

Сообщение от ElenCelsi

У меня ABS Паскаль!( на win7 просто у меня только на ноуте работает Turbo там 32х битная 7ёрка

Перенесла все данный в Turbo с твоей поправкой, но всё равно не выводит в порядке увеличения! Вот вид на Турбо:

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^.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;

procedure PrintList(L: PNode);
begin
while L <> nil do
begin
writeln(L^.s);
L := L^.next;
end;
end;
function Count(s:string): integer;
var k,i:integer;
begin
k:=0;
for i:=1 to Length(s) do
if s[i] in ['0'..'9'] then inc (k);
count:=k;
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.

[Serge_Bliznykov]

проверил Ваш код. всё работает.

вот, для текстового файла (PFile.rar)

Вот тут привет 1 ну и 239
А вот тут цифр нет вааще
А тут 99 цифр
А тут 1500
ну и последняя строчка 1

выдаётся (после сортировки)

ну и последняя строчка 1
А тут 99 цифр
А тут 1500
Вот тут привет 1 ну и 239

как видите, всё отсортировано, как и требуется.

[ElenCelsi]

Сообщение от Serge_Bliznykov

проверил Ваш код. всё работает.

вот, для текстового файла (Вложение 34302)


выдаётся (после сортировки)

как видите, всё отсортировано, как и требуется.

АА точно!) Ура работааеет!! Юху!
Спасибо огромное за помощь! !

А список надо удалять после окончания работы?

[Stilet]

Желательно. И не просто удалять а освобождать каждый его элемент.
Хотя для некоторых преподавателей это не критично, тут уж как попадешся.

[ElenCelsi]

А если не трудно будет подскажите.. Очистка будет как отдельная функция работать? В конце?
типо такой вот функции?:

Procedure ochistka(Digit : integer; Var u : Ukazatel );
Var
  x, dx : ukazatel ;
Begin
  x := u;
  while x<>Nil do
    if x^.Data=Digit
      then
        Begin
          if x=u
            then
              Begin
                u := u^.Next;
                Dispose(x);
                x := u;
              End
            else
              Begin
                dx^.Next := x^.Next;
                Dispose(x);
                x := dx^.Next;
              End;
        End 
      else
        Begin
          dx := x;
          x := x^.Next;
        End;
End;