Используя 1н просмотр текстового файла , вывести все его строки в порядке увеличения содержания в них цифр (строки должны содержать цифры).
p.s.Во время "просмотра" файла надо занести "наши" строки в список, потом произвести сортировку списка и ,наконец, выводить ответ в порядке увеличения.
Задача на занесение данных из файла в динамический список неоднократно решалась. Может, проще в поиске найти, чем опять в очередной раз жевать одно и то же?
Ну вот смотри, каркас программы (кое-что я убрал, компилироваться программа будет, а работать - будет неправильно. Доделай то, что написано в комментариях - заработает)
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.
Хорошо.. Спасибо больше!
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 { <--- Вот тут ты сравниваешь две строки. Просто, по алфавиту... }
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;
Вот тогда будет выводить то, что требовалось в задании. И останется только удалить список после окончания работы.