Calculatrice(TROP compliqué), Pascal

Calculatrice(TROP compliqué)

program Calculatrice;

var firstnumber: real;
var secondnumber: real;
var choice: real;
var result: real;

begin
    writeln('Bienvenue dans la calculatrice !');
    writeln('Choisis une option:');
    writeln('1. Addition');
    writeln('2. Soustraction');
    writeln('3. Multiplication');
    writeln('4. Division');
    writeln('5. Sortir');
    readln(choice);
    if (choice>5) then
    begin
        writeln('Ciao Boloss !');
        exit;
    end;
    if (choice=5) then
    begin
        writeln('Au revoir cher utilisateur');
        exit;
    end;
    writeln('Quel est ton premier nombre?');
    readln(firstnumber);
    writeln('Quel est ton deuxième nombre?');
    readln(secondnumber);
    if (choice=1) then
    begin
        result:= firstnumber + secondnumber
    end;
    if (choice=2) then
    begin
        result:= firstnumber - secondnumber
    end;
    if (choice=3) then
    begin
        result:= firstnumber * secondnumber
    end;
    if (choice=4) then
    begin
        result:= firstnumber / secondnumber
    end;
    writeln('Le résultat vaut: ',result:1:3, '!');
end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development