Cytat:
Napisany przez Patrix
no tak, może teraz liczba wchodzi do listy ale jakoś nie umiem jej wyświetlić, pisałem nawet procedure aby ja znaleźć ale chyba jej tam nie ma
Kod:
{-----------------------------------------------------}
procedure szukaj;
var liczba: integer;
begin
temp := lista;
writeln('Podaj szukana liczbe'); readln(liczba);
while temp <> nil do
begin
if liczba = temp^.dana then writeln('Znaleziono');
temp := temp^.poprzednia;
end;
end;
{-----------------------------------------------------}
może mam zły pomysł na procedury ?
|
Nigdy nie sprawdzasz najstarszego elementu.
czyli tego co mam poprz=nil