Mk83

Untitled

Nov 19th, 2019
159
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.12 KB | None | 0 0
  1. program Calculatrice;
  2.  
  3. var firstnumber: real;
  4. var secondnumber: real;
  5. var choice: real;
  6. var result: real;
  7.  
  8. begin
  9. writeln('Bienvenue dans la calculatrice !');
  10. writeln('Choisis une option:');
  11. writeln('1. Addition');
  12. writeln('2. Soustraction');
  13. writeln('3. Multiplication');
  14. writeln('4. Division');
  15. writeln('5. Sortir');
  16. readln(choice);
  17. if (choice=5) then
  18. begin
  19. writeln('Ciao Boloss !');
  20. exit;
  21. end;
  22. if (choice>5) then
  23. begin
  24. writeln('Au revoir cher utilisateur');
  25. exit;
  26. end;
  27. writeln('Quel est ton premier nombre?');
  28. readln(firstnumber);
  29. writeln('Quel est ton deuxième nombre?');
  30. readln(secondnumber);
  31. if (choice=1) then
  32. begin
  33. result:= firstnumber + secondnumber
  34. end;
  35. if (choice=2) then
  36. begin
  37. result:= firstnumber - secondnumber
  38. end;
  39. if (choice=3) then
  40. begin
  41. result:= firstnumber * secondnumber
  42. end;
  43. if (choice=4) then
  44. begin
  45. result:= firstnumber / secondnumber
  46. end;
  47. writeln('Le résultat vaut: ',result:1:3, '!');
  48. end.
Advertisement
Add Comment
Please, Sign In to add comment