Автор: vold 16.12.2010 22:55
Необходимо вычислить постфиксное выражение.
вот моя тщетная попытка это решить:
Код
var c:char;
c1,c2:integer;
c3:real;
begin
Writeln('vvedite postfiksnoe virazhenie');
read(c);
c1:=ord(c)-ord('0');
read(c);
c2:=ord(c)-ord('0');
case c of
'-': c3:=c1-c2;
'*': c3:=c1*c2;
'/': c3:=c1/c2;
'+': c3:=c1+c2;
end;
while (not eoln) do
begin
read(c);
c1:= ord(c)-ord('0');
case c of
'-': c3:=c3-c1;
'*': c3:=c3*c1;
'/': c3:=c3/c1;
'+': c3:=c3+c1;
end;
writeln(c3);
end.
я понял, что необходимо считывать по одному элементу и если встречается цифра запоминать, если снова цифра - запомнить, если знак, то произвести вычисления между этими числами.
я не знаю где я ошибся, т.к. опыта написания программ у меня ооочень мало, подскажите где я совершил ошибку и как следует исправить.
Автор: мисс_граффити 17.12.2010 13:40
выражение имеет вид цифрацифразнак? то есть двузначные числа не могут фигурировать?
еще не поняла, почему разбор несколько раз написан. может вводиться несколько выражений сразу?
ну и наверное перед case c стоит это с прочитать...
Автор: vold 18.12.2010 16:39
Всё, я сделал, оказалось все намного проще!
Код
program laba3;
var c:char;
c1,c2:integer;
c3:real;
begin
Writeln('vvedite postfiksnoe virazhenie');
read(c);
c1:=ord(c)-ord('0');
read(c);
c2:=ord(c)-ord('0');
read(c);
case c of
'-': c3:=c1-c2;
'*': c3:=c1*c2;
'/': c3:=c1/c2;
'+': c3:=c1+c2;
end;
read(c);
while c<>'.'{(not eoln)} do
begin
c1:= ord(c)-ord('0');
read(c);
case c of
'-': c3:=c3-c1;
'*': c3:=c3*c1;
'/': c3:=c3/c1;
'+': c3:=c3+c1;
end;
read(c);
end;
writeln(c3);
readln;
end.