<em>(1*2+3-4+5:6+7):8=1</em>
1*2=2
2*3=6
6-4=2
2+5=7
7-6=1
1+7=8
8:8=1
<em />
<em></em>
<em></em>
<em></em>
<em></em>
<em></em>
<em></em>
Трудно сказать не видя структуры твоего калькулятора. Если у тебя два поля для ввода чисел (edit1 и edit2), а результат записываешь в Memo1 (кстати, а зачем именно тип Memo?), то можно сделать следующим образом (пример для кнопок "+" и "-")
procedure TForm1.PlusClick(Sender: TObject);
var x,y:real;
r:string;
begin
val(edit1.Text,x);
val(edit2.Text,y);
str(x+y,r);
Memo1.Lines[0]:=edit1.Text+'+'+edit2.Text+'='+r;
end;
procedure TForm1.MinusClick(Sender: TObject);
var x,y:real;
r:string;
begin
val(edit1.Text,x);
val(edit2.Text,y);
str(x-y,r);
Memo1.Lines[0]:=edit1.Text+'-'+edit2.Text+'='+r;
end;
1. P после инвертора даст ¬P
2. Далее ¬P & Q - тут и так понятно, написано на самом элементе.
3. R после инвертора даст ¬R
4. И оба сигнала (2) и (3) подаются на схему "ИЛИ", поэтому окончательно получаем F(P,Q,R)=(¬P & Q) | ¬R
Или, в другом виде
![F(P,Q,R)=\overline P\cdot Q+\overline R](https://tex.z-dn.net/?f=F%28P%2CQ%2CR%29%3D%5Coverline+P%5Ccdot+Q%2B%5Coverline+R)