1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| procedure menu_principal( t:tab choix :chaine)
var
i:entier
debut
choix1<--operateur
choix2<--numeros
choix3<--credit
choix4<--quitter
pour (i<--1;i<=4;i++) faire
t[1]<--choix1
t[2]<--choix2
t[3]<--choix3
t[4]<--choix4
fpour
afficher ("voici le menu principal:\n)
afficher(t[1] \n , t[2] \n , t[3] \n ,t[4] \n )
afficher("faites votre choix:")
lire (t[i])
afficher(procedure_choix())
fin
procedure choix()
var
operateur,numeros,credit:chaine
debut
si (menu principal()=choix1) alors
afficher(procedure_operateur)
sinon
si (menu principal()=choix2) alors
afficher(procedure_numeros)
sinon
si (menu principal()=choix3) alors
afficher(procedure_credit)
sinon
si (menu principal()=choix4) alors
afficher(procedure_quitter)
fsi
fsi
fsi
fsi
fin |
Partager