Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Calculatrice 1.0
//fpc 3.0.0 program Calculatrice; var firstnumber: real; var secondnumber: real; var option: 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(option); if (option>5) then begin writeln('Choix non reconnu !'); exit; end; if (option=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 (option=1) then begin result:= firstnumber + secondnumber end; if (option=2) then begin result:= firstnumber - secondnumber end; if (option=3) then begin result:= firstnumber * secondnumber end; if (option=4) then begin result:= firstnumber / secondnumber end; writeln('Le résultat vaut: ',result:1:3, '!'); end.
run
|
edit
|
history
|
help
0
test02
test16
zadanye 3 b
Lineare Liste Aufbauen
Грицанова. Стр. 77. Задача 6.18
First programm
07 Ariketa
Pascal Epsilon
BIANCA SAMPAIO ALFRADIQUE 600615759
Naloga 8: 10.9.2008