|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
27.10.2009, 17:27 | #1 |
Новичок
Джуниор
Регистрация: 27.10.2009
Сообщений: 2
|
ПОмогите!!!!!!!!! так надо, так надо, ну оченьььььььььььь
прога не идет почему то, не могу ошибку найти. нужно чтобы прога строку в виде обратной польской записи( ну типа 2 3 +) переводила в арифметическое выражение(2 +3).
делала в делфе, в консольном приложении: program Project1; {$APPTYPE CONSOLE} type chain=^elem; elem=record data:integer; next:chain; end; var d,v:chain; ch:string; procedure writestack(var p:chain; x:integer); var temp:chain; begin new(temp); temp^.data:=x; temp^.next:=p; p:=temp; end; function readstack(var p:chain):integer; var t:chain; begin readstack:=p^.data; t:=p; p:=p^.next; dispose(t); end; function operation(a,b:integer; e:char):integer; begin case e of '+'peration:=b+a; '-'peration:=b-a; '*'peration:=b*a; '/'peration:=b div a; end; end; function calculate(p:chain; str:string):integer; var a,b,i,x,k:integer; begin for i:=1 to length(str) do begin val(str[i],x,k); if (k=0) then writestack(p,k) else begin a:=readstack(p); b:=readstack(p); writestack(p, operation(a,b,str[i])); end; end; calculate:=p^.data; end; begin write('Vvedite OPZ:'); readln(ch); write(calculate(d,ch)); end. помогите пожалста! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
почему так? помогите решить | evgenrpo | Общие вопросы C/C++ | 6 | 31.05.2009 22:43 |
Помогите решить 2 задачки срочно надо а то меня повешают на практике мне надо к 2 июня!!! | серега222 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 27.05.2009 17:46 |
Помогите определить что с компом не так?? | molodoyy | Компьютерное железо | 15 | 02.01.2009 22:06 |
Помогите исправить прогу так чтобы препода удовлетворяла))) | 812 | Помощь студентам | 3 | 25.05.2008 12:34 |