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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92
| program calculator (output);
var op1 : integer; {On définit les variables. op1=opération, nbr1=premier nombre à opérer, nbr2: 2e nombre à opérer}
nbr1: real;
nbr2: real;
begin
writeln ('Bonjour. Bienvenue dans Pasculatrice ALPHA par Bam. Veuillez choisir une opération');
writeln ('Multiplication, tapez 1.');
writeln ('Division tombant juste, tapez 2');
writeln ('Division donnant un nombre à virgule, tapez 3');
writeln ('Modulo, tapez 4');
writeln ('Addition, tapez 5');
writeln ('Soustraction, tapez 6'); {On dit à l'user les opérations disponibles}
writeln ('Appuyez sur ENTREE pour confirmer');
readln (op1); {On demande à remplir la variable de l'opération. Jusque là rien de compliqué}
end.
if op1=1 {si l'user tape 1}
then {On lui demande de choisir les deux nombres à multiplier}
begin
writeln ('Choisissez le premier réel à multiplier');
readln (nbr1);
writeln ('Choisissez le deuxième réel à multiplier');
readln (nbr2);
writeln (' ',nbr1,'*',nbr2,'='); {On effectue l'opération}
end.
if op1=2 {si l'user tape 2}
then
begin
writeln ('Choisissez le premier réel à diviser');
readln (nbr1);
writeln ('Choisissez le deuxième réel à diviser');
readln (nbr2);
write (' ',nbr1,'div',nbr2,'='); {On effectue l'opération}
end.
if op1=3 {si l'user tape 3}
then
begin
writeln ('Choisissez le premier réel à diviser');
readln (nbr1);
writeln ('Choisissez le deuxième réel à diviser');
readln (nbr2);
write (' ',nbr1,'/',nbr2,'='); {On effectue l'opération}
end.
if op1=4 {si l'user tape 4}
then
begin
writeln ('Choisissez le premier réel pour le modulo');
readln (nbr1);
writeln ('Choisissez le deuxième réel pour le modulo');
readln (nbr2);
write (' ',nbr1,'mod',nbr2,'='); {On effectue l'opération}
end.
if op1=5 {si l'user tape 5}
then
begin
writeln ('Choisissez le premier réel pour l''addition');
readln (nbr1);
writeln ('Choisissez le deuxième réel pour l''addition');
readln (nbr2);
write (' ',nbr1,'+',nbr2,'='); {On effectue l'opération}
end.
if op1=6 {si l'user tape 6}
then
begin
writeln ('Choisissez le premier réel pour la soustraction');
readln (nbr1);
writeln ('Choisissez le deuxième réel pour la soustraction');
readln (nbr2);
write (' ',nbr1,'-',nbr2,'='); {On effectue l'opération}
end.
{Faut que je trouve une formule pour qu'une fois ENTREE pressé, on retourne au début} |
Partager