ff = file of TE;
список =^ звено;
звено = record
элемент: TE;
следующий: список;
end;
Описать функцию, значением которой есть список, построенный из элементов файла.
Моя программа:
uses crt;
type TE = char;
ff = file of TE;
list =^ link;
link = record
element: TE;
next: list;
end;
var fname: string[79];
f: ff;
ch: TE;
l: list;
function flist(var f: ff): list;
var l, p, q: list;
x: TE;
begin
new(l);
read(f,x);
l^.element := x;
p := l;
while not eof(f) do begin
read(f,x);
new(q);
q^.element := x;
p^.next := q;
p := q
end;
p^.next := nil;
flist := l
end;
begin
clrscr;
write('Введите имя файла: ');
readln(fname);
assign(f,fname);
{I-}
reset(f);
{I+}
if IOResult <> 0 then begin
writeln('Введите текст:');
rewrite(f);
repeat
read(ch);
write(f,ch)
until ch = #10;
close(f);
reset(f)
end;
l := flist(f);
writeln('Элементы списка:');
while l <> nil do begin
write(l^.element);
l := l^.next
end;
readkey
end.
Как переделать функцию flist, чтоб не вылетала с ошибкой при пустом файле?
И еще вопрос, как лучше сделать ввод элементов списка.
При until ch = #10 в конец записывается символ \n, при until ch = #13 - \r, а они мне не нужны.
Или сделать тип элемента списка integer что ли, да вводить в цикле for, перед этим получив их количество...
Сообщение отредактировано: AlexSun -