Цитата(volvo @ 6.01.2011 14:51)
Ну вот смотри, каркас программы (кое-что я убрал, компилироваться программа будет, а работать - будет неправильно. Доделай то, что написано в комментариях - заработает)
вот что-то додуманное:
Код
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.
Но программа не выводит строки в порядке увеличения!( Помогите додумать!