Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 27.10.2009, 17:27   #1
Chaplen89
Новичок
Джуниор
 
Регистрация: 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.
помогите пожалста!
Chaplen89 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
почему так? помогите решить 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