La calculatrice, Pascal

La calculatrice

//fpc 3.0.0

program HelloWorld;
var number1: integer;
var number2: integer;
var answer: integer;
var option: string;

begin
    writeln('Bienvenue dans la calculatrice!');
    writeln('Choisis un option:');
    writeln('1. Addition');
    writeln('2. Soustraction');
    writeln('3. Multiplication');
    writeln('4. Division');
    writeln('5. Sortir');
    readln (option);
    if (option = '1') then
    begin
        writeln('Quel est ton premier nombre?');
        readln(number1);
        writeln('Quel est ton deuxième nombre?');
        readln(number2);
        answer := number1 + number2;
        writeln('Le résultat vaut ',answer,'!');
    end
    else
        if (option = '2') then
        begin
             writeln('Quel est ton premier nombre?');
             readln(number1);
             writeln('Quel est ton deuxième nombre?');
             readln(number2);
             answer := number1 - number2;
             writeln('Le résultat vaut ',answer,'!');
        end
    else
       if (option = '3') then
        begin
             writeln('Quel est ton premier nombre?');
             readln(number1);
             writeln('Quel est ton deuxième nombre?');
             readln(number2);
             answer := number1 * number2;
             writeln('Le résultat vaut ',answer,'!');
        end     
     else
       if (option = '4') then
        begin
             writeln('Quel est ton premier nombre?');
             readln(number1);
             writeln('Quel est ton deuxième nombre?');
             readln(number2);
             answer := number1 div number2;
             writeln('Le résultat vaut ',answer,'!');
        end     
     else
       if (option = '5') then
        begin
            exit;
        end    
end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development