Математика

[terminadoor]

Скажите идею как сделать программу калькулятор. Пример: 2+2(IN),4(OUT) Возможние знаки +,-,*,/. вот моя наработка:

program supermath;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a,b,c,d,e,f,g,h,j,k,l,m,n,o,p,count,code,pri:int64;
var i:longint;
var act,num:array[0..100] of string;
var res:array[1..100] of int64;
var s1,s2,s3,s,s4:string;
var plus,minus,divide,multiply:boolean;
begin
readln(s);
count:=1;
for i:=1 to 100 do begin
act[i]:='+';
num[i]:='0';
end;
while (pos('+',s)>0) or (pos('-',s)>0) or (pos('*',s)>0) or (pos('/',s)>0) do begin
a:=pos('+',s);
b:=pos('-',s);
c:=pos('*',s);
d:=pos('/',s);
if a=0 then a:=99999999;
if b=0 then b:=99999999;
if c=0 then c:=99999999;
if d=0 then d:=99999999;
plus:=(a<>0) and (a<b) and (a<c) and (a<d);
minus:=(b<>0) and (b<a) and (b<c) and (b<d);
multiply:=(c<>0) and (c<a) and (c<b) and (c<d);
divide:=(d<>0) and (d<a) and (d<b) and (d<c);
if plus then begin
num[count]:=copy(s,1,a-1);
act[count]:=copy(s,a,1);
delete(s,1,a);
inc(count);
end;
if minus then begin
num[count]:=copy(s,1,b-1);
act[count]:=copy(s,b,1);
inc(count);
delete(s,1,b);
end;
if multiply then begin
num[count]:=copy(s,1,c-1);
act[count]:=copy(s,c,1);
delete(s,1,c);
inc(count);
end;
if divide then begin
num[count]:=copy(s,1,d-1);
act[count]:=copy(s,d,1);
delete(s,1,d);
inc(count);
end;
a:=pos('+',s);
b:=pos('-',s);
c:=pos('*',s);
d:=pos('/',s);
if not (a>0) or (b>0) or (c>0) or (d>0) then num[count]:=s;
end;
i:=1;
while i<99 do begin
e:=strtoint(num[i]);
f:=strtoint(num[i+1]);
plus:=false;
minus:=false;
multiply:=false;
divide:=false;
plus:=pos('+',act[i])>0;
minus:=pos('-',act[i])>0;
multiply:=pos('*',act[i])>0;
divide:=pos('/',act[i])>0;
if plus then g:=e+f;
if minus then g:=e-f;
if multiply then g:=e*f;
if divide then g:=trunc(e/f);
res[1]:=res[1]+g;
inc(i,2);
end;
writeln(res[1]);
readln;
end.

Но прога функционирует неправильно. Если сами знаки +,все хорошо. Иначе - нет. Помогоите пожалуйста или дайте ссилку на подобную тему.
Спосибо.

[puporev]

Что-то Вы наворотили, без бутылки не разберешь. Если нужен сложный калькулятор, принимающий формулу из строки, почитайте в инете или на этом форуме про обратную польскую запись.

[Сергей089]

TerMinAdoOR, напишите, пожалуйста, ваш пример и ответ, который должна дать программа.

Если она на строчку 2*5-6+3 должна дать ответ 7, то попробуйте эту программу:

program supermath;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a,b,c,d,e,f,g,h,j,k,l,m,n,o,p,count ,code,pri:int64;
i:longint;
num:array[0..100] of string;
s1,s2,s3,s,s4:string;
plus,minus,divide,multiply:boolean;
act:string;


begin
readln(s);
count:=1;
for i:=1 to 100 do
num[i]:='0';
while (pos('+',s)>0) or (pos('-',s)>0) or (pos('*',s)>0) or (pos('/',s)>0) do
begin
a:=pos('+',s);
b:=pos('-',s);
c:=pos('*',s);
d:=pos('/',s);
if a=0 then a:=99999999;
if b=0 then b:=99999999;
if c=0 then c:=99999999;
if d=0 then d:=99999999;
plus:=(a<>0) and (a<b) and (a<c) and (a<d);
minus:=(b<>0) and (b<a) and (b<c) and (b<d);
multiply:=(c<>0) and (c<a) and (c<b) and (c<d);
divide:=(d<>0) and (d<a) and (d<b) and (d<c);
if plus then begin
num[count]:=copy(s,1,a-1);
act:=act+s[a];
delete(s,1,a);
inc(count);
end;
if minus then begin
num[count]:=copy(s,1,b-1);
act:=act+s[b];
inc(count);
delete(s,1,b);
end;
if multiply then begin
num[count]:=copy(s,1,c-1);
act:=act+s[c];
delete(s,1,c);
inc(count);
end;
if divide then begin
num[count]:=copy(s,1,d-1);
act:=act+s[d];
delete(s,1,d);
inc(count);
end;
a:=pos('+',s);
b:=pos('-',s);
c:=pos('*',s);
d:=pos('/',s);
if not (a>0) or (b>0) or (c>0) or (d>0) then num[count]:=s;
end;
i:=2;
g:=strtoint(num[1]);
while (i<99) and (act<>'') do
begin
f:=strtoint(num[i]);
plus:=false;
minus:=false;
multiply:=false;
divide:=false;
plus:='+'=act[1];
minus:='-'=act[1];
multiply:='*'=act[1];
divide:='/'=act[1];
delete(act,1,1);
if plus then g:=g+f;
if minus then g:=g-f;
if multiply then g:=g*f;
if divide then g:=trunc(g/f);
inc(i);
end;
writeln(g);
readln;
end.

[Сергей089]

Только она не учитывает приоритет операций.