Aide de faire 1 menu en pascal
Résolu/Fermé
sony
-
15 mars 2008 à 17:56
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 25 juin 2008 à 16:14
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 25 juin 2008 à 16:14
A voir également:
- Aide de faire 1 menu en pascal
- Menu déroulant excel - Guide
- Turbo pascal download - Télécharger - Édition & Programmation
- Menu démarrer windows 11 - Guide
- My pascal - Télécharger - Édition & Programmation
- Menu contextuel windows 11 - Guide
2 réponses
Salut!
je désire créer un écran en turbo pascal me permettant d'accéder à un environnement qui pourrait s'atteindre
de cet écran d'accueil. Ma pensée est expressive suivante le modèl ci-après:
Exemple:
******************************
*PROGRAMME DE MATHEMATIQUES*
******************************
1. ADDITION
2. SOUSTRACTION
3. MULTIPLICATION
je désire créer un écran en turbo pascal me permettant d'accéder à un environnement qui pourrait s'atteindre
de cet écran d'accueil. Ma pensée est expressive suivante le modèl ci-après:
Exemple:
******************************
*PROGRAMME DE MATHEMATIQUES*
******************************
1. ADDITION
2. SOUSTRACTION
3. MULTIPLICATION
25 juin 2008 à 16:14
program Maths; procedure Addition; begin writeln('CALCUL DE L''ADDITION'); end; procedure Soustraction; begin writeln('CALCUL DE LA SOUSTRACTION'); end; procedure Multiplication; begin writeln('CALCUL DE LA MULTIPLICATION'); end; procedure Menu; var b:byte; boucle:boolean; begin writeln('******************************'); writeln('* PROGRAMME DE MATHEMATIQUES *'); writeln('******************************'); writeln; writeln('1. ADDITION'); writeln('2. SOUSTRACTION'); writeln('3. MULTIPLICATION'); writeln; boucle:=true; while boucle do begin boucle:=false; write('Choix : '); readln(b); writeln; case b of 1:Addition; 2:Soustraction; 3:Multiplication; else boucle:=true; end; end; end; begin Menu; readln; end.