[JuVi]

Плз скажите как написать прогу которая решет то что напишет пользователь
Например
14+2+(3+6)+(4+2+12)
или
12+2+43+123+2
или
(123+32)+(96+33+75)

P.S: Тесть самое простое (только плюсом, скобками и целими числами!)
Пожалуйста

[JuVi]

удалите ету тему )) я уже догнал)))))

Ладно но ето о4ень тупой способ)))

procedure TForm1.Button1Click(Sender: TObject);
begin
qq:=strtoint(edit1.text);
ww:=strtoint(edit3.text);
rr:=strtoint(edit5.Text);
if (edit2.text='+') then
begin
if (edit4.text='+') then (memo1.Text:=inttostr(qq+ww+rr));
if (edit4.text='*') then (memo1.Text:=inttostr(qq+ww*rr));
if (edit4.text='-') then (memo1.Text:=inttostr(qq+ww-rr));
end;
if (edit2.text='-') then
begin
if (edit4.text='+') then (memo1.Text:=inttostr(qq-ww+rr));
if (edit4.text='*') then (memo1.Text:=inttostr(qq-ww*rr));
if (edit4.text='-') then (memo1.Text:=inttostr(qq-ww-rr));
end;
if (edit2.text='*') then
begin
if (edit4.text='+') then (memo1.Text:=inttostr(qq*ww+rr));
if (edit4.text='*') then (memo1.Text:=inttostr(qq*ww*rr));
if (edit4.text='-') then (memo1.Text:=inttostr(qq*ww-rr));
end;

end;

протсо каждое чило прийдетса записивать в edit1, edi3, edi5, а знаки в edi2, edi4 НО / не работоет)

[mak-karpov]

Кто не читал правила, то когда "ты уже догнал", нужно описать, как догонял!