Ładny brzuch
[FONT=Arial]Prosze o pomoc gdy nie moge, nie umiem , nie wiem jak zdejmowa ze stosu jak macie chwilke to luknijcie na moje notatki (a jak kto wie gdzie moge znale w necie takie programy jak stos kolejke i liste to piszcie)pozdro :rolleyes: :
program stack; uses crt; type strzal = ^talerz; talerz = record pole :integer; wsk :strzal; end; var s,top :strzal; d,i:integer; yes:boolean; znak:char; procedure push(d:integer;znak:char); begin while yes do begin writeln('Wpisz dane'); readln(d); top^.pole := d; writeln('Czy chcesz wrzucac dane na stos? (y/n)'); znak:=readkey; znak:=upcase(znak); if (znak='y') or (znak='Y') then yes:=true else yes:=False; if yes then begin new(s); s^.wsk := top; top := s; end; end; end; procedure zestosu(top:strzal); begin; while top^.wsk <> nil do begin writeln('Zdejmuje wartosc:'); writeln(top^.pole); s:=s^.wsk; top:=s; dispose(top); end; writeln('Zdejmuje wartosc:'); writeln(s^.pole); dispose(s); end; begin yes:=true; clrscr; new(top); top^.wsk := nil; push(d,znak); writeln;writeln; zestosu(top); readln; writeln(s^.pole);{tutaj spawdzam czy jest co zapisane i niestety jest } writeln(top^.pole);{tutaj te to samo} readln; end.
Uytkownik _Herkules_ edytowa ten post 12 czerwiec 2005, 20:42
1. http://pascal.lo2.opole.pl/ ( jest tam stos )
2. na google na pewno te si znajdzie.
3. mniej wane ale jak dajesz kod to umie go midzy znacznikami [code ] [/code ], a jak jest duo to w [codebox ]
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
program stack; uses crt; type strzal = ^talerz; talerz = record pole :integer; wsk :strzal; end; var s,top :strzal; d,i:integer; yes:boolean; znak:char; procedure push(d:integer;znak:char); begin while yes do begin writeln('Wpisz dane'); readln(d); top^.pole := d; writeln('Czy chcesz wrzucac dane na stos? (y/n)'); znak:=readkey; znak:=upcase(znak); if (znak='y') or (znak='Y') then yes:=true else yes:=False; if yes then begin new(s); s^.wsk := top; top := s; end; end; end; procedure zestosu(top:strzal); begin; while top^.wsk <> nil do begin writeln('Zdejmuje wartosc:'); writeln(top^.pole); s:=s^.wsk; top:=s; dispose(top); end; writeln('Zdejmuje wartosc:'); writeln(s^.pole); dispose(s); end; begin yes:=true; clrscr; new(top); top^.wsk := nil; push(d,znak); writeln;writeln; zestosu(top); readln; writeln(s^.pole);{tutaj spawdzam czy jest co zapisane i niestety jest } writeln(top^.pole);{tutaj te to samo} readln; end.
Uytkownik _Herkules_ edytowa ten post 12 czerwiec 2005, 20:42
1. http://pascal.lo2.opole.pl/ ( jest tam stos )
2. na google na pewno te si znajdzie.
3. mniej wane ale jak dajesz kod to umie go midzy znacznikami [code ] [/code ], a jak jest duo to w [codebox ]