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:
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.
Autor
Zapisane