|
TwojePC.pl © 2001 - 2024
|
 |
A R C H I W A L N A W I A D O M O Ś Ć |
 |
| |
|
Program robiący liste dodający elementy, usuwający je, i zapisujący do pliku pomocy , borg18 16/11/06 11:25
mam taki programik w pascalu:
uses crt;
type
wskelem=^elementlisty;
elementlisty = record
wskaznik:wskelem;
wartosc:integer;
end;
var
{zmienna typu wskaznikowego}
v,w,g:wskelem;
x,z:integer;
ch:char;
begin
clrscr;
g:=nil;
v:=g;
repeat
clrscr;
write('Podaj ilo˜† liczb do wczytania: ');
readln(z);
for x:=1 to z do
begin
new(w);
w^.wskaznik:=nil;
readln(w^.wartosc);
if g=nil then
begin
g:=w;
v:=w;
end
else
begin
v^.wskaznik:=w;
v:=w;
end;
end;
w:=g;
clrscr;
writeln('Oto wczytane warto˜ci');
while w<>nil do
begin
writeln(w^.wartosc);
w:=w^.wskaznik;
end;
writeln(' ');
writeln('Nacisnij q aby zakonczyc.');
writeln(' ');
writeln('Aby doda† inne liczby wcisnij 2x ENTER.');
readln(ch);
until ch='q';
w:=g;
while w<>nil do
begin
writeln(w^.wartosc);
w:=w^.wskaznik;
end;
release(g); {lub dispose(g);}
end.
Jak na razie program tylko dodaje elementy do listy, a nie mam pojęcia jak zrobić zeby je usuwał i zapisywał wogule liste do pliku pomożcie, napewno ktoświe a ja musze to mieć na szybkiego:)https://programy.net.pl - duża dawka
programów ;) - usuwanie, dostosuj do swoich nazw zmiennych , Pietka 16/11/06 13:16
procedure usunelem(var x,head:wskaznik); {element usuwany}
var y:wskaznik;
begin
if x=head then head:=x^.next else
begin y:=head;
while y^.next<>x do y:=y^.next;
y^.next:=x^.next end
end;
|
|
|
|
 |
All rights reserved ® Copyright and Design 2001-2024, TwojePC.PL |
 |
|
|
|
