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:)
Problem ze stosem
-
- Użytkownik
- Posty: 735
- Rejestracja: 7 lis 2005, o 23:56
- Płeć: Mężczyzna
- Lokalizacja: Łódź
- Podziękował: 2 razy
- Pomógł: 133 razy
Problem ze stosem
przede wszystkim musisz zapisać te liczby do jakiejś tablicy. Zadeklaruj tablicę globalną, np. o nazwie tablica i przy wczytywaniu będziesz robił tak:
potem na koniec programu trzeba będzie wypisać te liczby z tablicy pętlą for.
ps. czemu w jednym wczytaniu pobierasz aż dwie liczby
Kod: Zaznacz cały
readln(tablica[2*licznik + 1],tablica[2*licznik + 2]);
ps. czemu w jednym wczytaniu pobierasz aż dwie liczby
- Undre
- Użytkownik
- Posty: 1430
- Rejestracja: 15 lis 2004, o 02:05
- Płeć: Mężczyzna
- Lokalizacja: UĆ
- Podziękował: 3 razy
- Pomógł: 92 razy
Problem ze stosem
Afaik nie to jest zamysłem for internetowych. Najlepiej wrzuć rozwiązanie problemu, a nuż ktoś skorzystaNataliaSt pisze:moderatorze można usunąć ten wątek udało mi się rozwiązać mój problem:)
- NataliaSt
- Użytkownik
- Posty: 71
- Rejestracja: 14 sty 2009, o 15:03
- Płeć: Kobieta
- Podziękował: 21 razy
- Pomógł: 1 raz
Problem ze stosem
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.
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.