Witam.
Mam do napisania kalkulator obsługujący proste wyrażenia +-*/ oraz nawiasy przy użyciu ONP.
Zaciąłem się w momencie zapełniania stosów znaków i argumentów.
Otóż chciałbym aby wyświetlona została zawartość tych stosów.
A wyświetlane są tylko ostatni argument i ostatni znak.
Proszę o pomoc.
Oto kod programu:
program calcONP;
var
wejscie : string;
wyjscie : ansistring;
stos : array[1..400] of char;
procedure analiza (var wejscie : string);
var
i : integer;
begin
for i :=1 to length(wejscie) do
begin
case wejscie[i] of
'+' : stos := wejscie[i];
'-' : stos := wejscie[i];
'*' : stos := wejscie[i];
'/' : stos := wejscie[i];
else
wyjscie := wejscie[i];
end;
end;
for i:=1 to length(wyjscie) do
writeln(wyjscie);
writeln;
for i:=1 to length(stos) do
writeln(stos);
writeln;
end;
begin
writeln('podaj ciag: ');
readln(wejscie);
analiza(wejscie);
readln;
end.