[Pascal] kolejka i lista jednokierunkowa

0

witam .. mam ogromna prosbe .. czy moglby mi ktos pomoc w napisaniu 2 "prostych" programow w pascalu? pierwszy z nich to kolejka .. program ma za zdanie dodawac zadanego integera do poczatku kolejki, usuwac z konca kolejki oraz wyswietlac wszystkie elementy znajdujace sie w kolejce. Drugi program to lista jendokierunkowa. Program ma dodawac zadany element na poczatek listy, na koniec listy .. usuwac z poczatku i konca oraz liczyc ile elementow jest na liscie. Wszystko ma dzialc na wskaznikach. Mecze sie i mecze i nic nie moge wymeczyc a na jutro mam to miec na zaliczenie :( .. wszystko ma byc bardzo prosto napisane bez zbednych wodotryskow i jak najkrocej.
Pomocy plizzz - odwdziecze sie ! :)

pozdrawiam
Pawel

0

zapomnialem o najwazniejszym .. mail do mnie to [email protected] .. i jestem prawie caly czas na gg nr 4654

0

Hmmm bedzie potrzebna zmienna

A tak po zatym to w delphi to by sie zrobiło w pięć minut:P

napisz se dwie funkcje z integera na stringa i odwrotnie:

function int2str(i:integer):string;
var s:string;
begin
str(i,s);
int2str:=s;
end;

function str2int(s:string):integer;
var i,code:integer;
begin
val(s,i,code);
str2int:=i;
end;

niejestem pewien czy będą dobrze działać . żeby je przetestować napisz se :

procedure pisz(x,y:word;s:string);
begin
gotoxy(x,y);
write(s);
end;

więc w programie zrób:
var int:integer;
begin
...
int:=1000;
pisz(1,1,int2str(int));
...
end.

niewiem czy w ogóle test bedzie działał:P

--
Najpierw wypróbuj wszystkie możliwości potem pytaj;)

0

Drajwer : nie potrzebne sa stringi .. w obu przypadkach do listy jak i do kolejki maja byc dodawane intigery ..

1 użytkowników online, w tym zalogowanych: 0, gości: 1