Witam i prosze o pomoc zmuszono mnie do zrobienia czegos takiego w Pascalu
jednak poziom moj pascala jest znikomy a nauczenie sie go z dnia na dzien malo realne
aa mam tylko tyle czasu... i musze nauczyc sie tego co jest nizej tylko niewiem dlaczego to nie dziala..
bardzo bym prosil o pomoc, a i wiem ,ze nie jestem za inteligentny... i nie potrafie znalesc na google odpowiedzi na moje pytanie... a przynajmniej w tak krotkim czasie jaki mam...
jednak poziom moj pascala jest znikomy a nauczenie sie go z dnia na dzien malo realne
aa mam tylko tyle czasu... i musze nauczyc sie tego co jest nizej tylko niewiem dlaczego to nie dziala..
bardzo bym prosil o pomoc, a i wiem ,ze nie jestem za inteligentny... i nie potrafie znalesc na google odpowiedzi na moje pytanie... a przynajmniej w tak krotkim czasie jaki mam...
Kod:
program wypis;
begin
UtworzListe;
WypiszListe;
UsunListe;
ReadLn;
end.
procedure UtworzListe;
var
p: PElem;
f: text;
s: string;
begin
Assign(f,'plik.wej');
Reset(f);
poc:=nil;
while not Eof(f) do
begin
ReadLn(f,s);
new(p);
p^.s:= s;
p^.nast:= poc;
poc:= p;
end;
Close(f);
procedure WypiszListe;
var
p: PElem;
f: text;
begin
Assign(f,'plik.wej');
Rewrite(f);
p:=poc;
while p<>nil do
begin
WriteLn(f,p^.linia);
p:=p^.nast;
end;
Close(f);
procedure UsunListe;
var
p: PElem; wskaźnik pomocniczy}
begin
while poc<>Nil do
begin
p:=poc;
poc:=poc^.nast;
end.