1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| procedure Form1.Button1Click(Sender..)
var n1n2 : integer; // < pour le résultat de l'op sur les deux premiers
n3n4 : integer; // < pour le résultat de l'op sur les deux derniers
resul : integer; // < pour le résultat final
begin n1n2 := 0;
// Pour les 2 premiers nombres :
case op1 of
'+' : n1n2 := N1 + N2;
'-' : n1n2 := N1 - N2;
'*' : n1n2 := N1 * N2;
end;
// Pour les 2 premiers nombres :
n3n4 := 0;
case op3 of
'+' : n3n4 := N3 + N4;
'-' : n3n4 := N3 - N4;
'*' : n3n4 := N3 * N4;
end;
// Et pour les 4 nombres : opérateur du milieu
resul := 0;
case op2 of
'+' : resul := n1n2 + n3n4;
'-' : resul := n1n2 - n3n4;
'*' : resul := n1n2 * n3n4;
end;
if Resul=0 then Button1.caption := 'Tu as gagné'
else Button1.caption := 'Tu as perdu';
end; |
