Ошибки здесь могут быть самыми тупыми.
program стек;
uses crt;
type infotyyp= integer;
pinutyyp= ^pinutype;
pinutyyp= record
element: infotyyp;
Tipp: pinutyyp;
end;
var top: pinutyyp;
avaldis: string;
i: integer;
a,b,c: real;
begin
readln(avaldis);
Create(top);
for i:=1 to length(avaldis) do
begin
writeln('Введите выражение в виде postfiks:');
if avaldis[i] in ['0'..'9'] then
begin
val(avaldis[i],pinutyyp^.element);
push(top, element);
end
else
begin
pop(top, element);
a:=pinutyyp^.element;
pop(top, element);
b:=pinutyyp^.element;
case avaldis[i] of
'+': c:=a+b;
'-': c:=a-b;
'*': c:=a*b;
'/': c:=a/b;
end;
end;
end;
writeln('Ответ:',c);
readln;
end.
Сообщение отредактировано: Oleg_Z -