Calculatrice 1.0, Pascal

Calculatrice 1.0

//fpc 3.0.0

program HelloWorld;

var firstnumber: integer;
var secondnumber: integer;
var option: string;
var result: integer;

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(option);
    if(option='Addition')then
    begin
    writeln('Quel est ton premier nombre ?');                                                                                                                                                                                                                                                                            
    readln(firstnumber);
    writeln(firstnumber);
    writeln('Quel est ton deuxième nombre ?');
    readln(secondnumber);
    writeln(secondnumber);
    writeln('Le résultat vaut:');
    result := firstnumber + secondnumber ;
    writeln(result);
    end
    else if (option='Soustraction')then
    begin
    writeln('Quel est ton premier nombre ?');
    readln(firstnumber);
    writeln(firstnumber);
    writeln('Quel est ton deuxième nombre ?');
    readln(secondnumber);
    writeln(secondnumber);
    writeln('Le résultat vaut:');
    result := firstnumber - secondnumber ;
    writeln(result);
    end
    else if (option='Multiplication')then
    begin
    writeln('Quel est ton premier nombre ?');
    readln(firstnumber);
    writeln(firstnumber);
    writeln('Quel est ton deuxième nombre ?');
    readln(secondnumber);
    writeln(secondnumber);
    writeln('Le résultat vaut:');
    result := firstnumber * secondnumber ;
    writeln(result);
    end
    else if (option='Division')then
    begin
    writeln('Quel est ton premier nombre ?');
    readln(firstnumber);
    writeln(firstnumber);
    writeln('Quel est ton deuxième nombre ?');
    readln(secondnumber);
    writeln(secondnumber);
    writeln('Le résultat vaut:');
    result := firstnumber div secondnumber ;
    writeln(result);
    end
    else if (option='Sortir')then
    begin
    writeln('Au revoir cher utilisateur !');
    end

end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development