zadanie2 5, 2 semestr, 2sem 1, Laboratorium, Lab5
[ Pobierz całość w formacie PDF ]
program lab5zad2;typewskaznik=^element;element=recordliczba:Integer;nast:wskaznik;end;varpoczatek:wskaznik;kolejny:wskaznik;poprzedni:wskaznik;tmp:wskaznik;p:pointer;i:Integer;procedure wypeln;beginmark(p);poczatek:=nil;new(poczatek);poczatek^.liczba:=1;poczatek^.nast:=nil;kolejny:=poczatek;for i:=2 to 10 dobeginnew(kolejny^.nast);kolejny:=kolejny^.nast;kolejny^.liczba:=i;kolejny^.nast:=nil;end;end;procedure przed_odwroc;beginwriteln('Przed odwroceniem:');kolejny:=poczatek;while kolejny <> nil dobeginwrite(kolejny^.liczba:3);kolejny:=kolejny^.nastend;writeln;poprzedni:=nil;kolejny:=poczatek;while kolejny <> nil dobegintmp:=kolejny^.nast;kolejny^.nast:=poprzedni;poprzedni:=kolejny;kolejny:=tmp;end;poczatek:=poprzedni;end;procedure odwroc;beginwriteln('Po odwroceniu:');kolejny:=poczatek;while kolejny <> nil dobeginwrite(kolejny^.liczba:3);kolejny:=kolejny^.nastend;writeln;release(p);readln;end;beginwriteln('Dostepna pamiec: ',MemAvail);wypeln;przed_odwroc;odwroc;writeln('Dostepna pamiec: ',MemAvail);readln;end. [ Pobierz całość w formacie PDF ]