Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
aefrt
test
Complemento da VS ICC II - 1º Semestre 2017
kk
for for fib
Tri1
zad27-notoptimal
4 ariketa
sorting_direct_choise_no_optimized
shift array to left_new