вычислить постфиксное выражение, помогите решить задачу! |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
вычислить постфиксное выражение, помогите решить задачу! |
vold |
16.12.2010 18:55
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: 0 |
Необходимо вычислить постфиксное выражение.
вот моя тщетная попытка это решить: Код 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 9:40
Сообщение
#2
|
просто человек Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
выражение имеет вид цифрацифразнак? то есть двузначные числа не могут фигурировать?
еще не поняла, почему разбор несколько раз написан. может вводиться несколько выражений сразу? ну и наверное перед case c стоит это с прочитать... -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
vold |
18.12.2010 12:39
Сообщение
#3
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: 0 |
Всё, я сделал, оказалось все намного проще!
Код 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. |
Текстовая версия | 28.04.2024 10:53 |