Drukuj stronę - Pascal - listy, kolejki, stosy

Witam,

mam taki problem, lista, kolejka i stos w Pascalu nie jest moja mocna strona, jak narazie. Czy moglby mi ktos pomoc napisac odpowiedni program?

Tu mam wstepny kod, do ktorego musze dopisac 6 procedur ( 2x3 ), czyli 3 oddzielne programy z 2 procedurami kazda.

Kod:

Kod:

uses crt;


type

typ_tablicowy=array[1..10] of integer;
wsk=^element_listy;
element_listy=record
dana:integer;
nast:wsk;

end;


procedure dodaj_na_pocz(var p:wsk; a:integer);

var
pom:wsk;

begin
pom:=p;
new(p);
p^.nast:=pom;
p^.dana:=a;

end;


procedure wypisz_wszystko(p:wsk);

var
pom:wsk;




begin
pom:=p;
while(pom<>nil)do
begin
writeln(pom^.dana);
pom:=pom^.nast;
end;
end;

var
p:wsk;

begin
p:=nil;
end.

Czy jest ktos wstanie, moze nawet poprawic, kod?

A co do procedur :

pierwsze dwie jakos stos to :
-dodaj na poczatku
-usun z poczatku

kolejne cztery to jako kolejka, ale 2 jako :
-dodaj na poczatku
- usun z konca

I nastepne dwie :
-usun z poczatku
-dodaj na koncu

Bylbym bardzo wdzieczny za napisanie tych procedur oraz calego programu.

Najlepiej jakby dalo rade na dzis.

Forum programistyczne

Języki programowania => Inne języki programowania => Wątek zaczęty przez: degrengolada Maj 30, 2010, 19:31:50