Problem ze stosem

[NataliaSt]

Witam:)
mam taki problem. Potrafie wczytać dane do stosu jednak nie potrafie ich wyswietlic ze stosu po wczytaniu wszystkich danych. Kod wygląda następująco
procedure wczytywanie;
begin
readln(a,b);
inc(licznik);
if licznik<N then
wczytywanie else
begin
writeln('koniec');
readln;
end;
end;

begin
readln(N);
licznik:=0;
wczytywanie
end.

N- ilość danych
a,b: para danych
i teraz zamiast napisu koniec chciałabym tam wyswietlac dane ze stosu tylko nie wiem jak to zrobić bardzo bardzo prosze jakiegos zdolnego informatyka o małą pomoc:):):)

-- 23 kwietnia 2009, 17:51 --

moderatorze można usunąć ten wątek udało mi się rozwiązać mój problem:)

[spajder]

przede wszystkim musisz zapisać te liczby do jakiejś tablicy. Zadeklaruj tablicę globalną, np. o nazwie tablica i przy wczytywaniu będziesz robił tak:

Kod: Zaznacz cały

readln(tablica[2*licznik + 1],tablica[2*licznik + 2]);

potem na koniec programu trzeba będzie wypisać te liczby z tablicy pętlą for.

ps. czemu w jednym wczytaniu pobierasz aż dwie liczby

[NataliaSt]

własnie w zaddaniu nei moge używać tablic ale już wpadłam na to co trzeba zrobić wieć mozna już zamknąć ten post ale dziekuję za pomoc:)

[Undre]

moderatorze można usunąć ten wątek udało mi się rozwiązać mój problem:)

Afaik nie to jest zamysłem for internetowych. Najlepiej wrzuć rozwiązanie problemu, a nuż ktoś skorzysta

[NataliaSt]

var
licznik,N:longint;
l:boolean;

procedure wczytywanie;
var
a,b,suma:longint;
begin
readln(a,b);
inc(licznik);
if licznik<N then
wczytywanie;
if l=true then
begin
suma:=a+b+1;
l:=false;
end else
suma:=a+b;
if suma<10 then
begin
write(suma)end else
begin
suma:=suma mod 10;
write(suma);
l:=true;
end;
end;

begin
readln(N);
i:=0;
licznik:=0;
wczytywanie;
readln;
end.