Forum programistyczne
Marzec 28, 2024, 09:39:05 *
Witamy, Gość. Zaloguj się lub zarejestruj.

Zaloguj się podając nazwę użytkownika, hasło i długość sesji
Aktualności: Forum programistyczne wystartowało. Potrzebujesz pomocy przy pisaniu programu, masz problem programistyczny?

Zapraszamy do rejestracji!!!
 
   Strona główna   Pomoc Szukaj Zaloguj się Rejestracja  

Strony: [1]
  Drukuj  
Autor Wątek: Pascal - listy, kolejki, stosy  (Przeczytany 5941 razy)
degrengolada
Nowy użytkownik
*
Wiadomości: 1


Zobacz profil Email
« : Maj 30, 2010, 19:31:50 »

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.
Zapisane
Strony: [1]
  Drukuj  
 
Skocz do:  



praca doktorska Dlaczego system klasyfikacji stworzony przez Karola Linneusza został określony jako system naturalny? czyszczenie fotowoltaiki
Działa na MySQL Działa na PHP Powered by SMF 1.1.20 | SMF © 2006-2007, Simple Machines Prawidłowy XHTML 1.0! Prawidłowy CSS!