mirror of
https://github.com/LucasVbr/interpreteur-lir.git
synced 2026-05-13 17:21:52 +00:00
programme de démo ajouté au niveau de l'exécutable
This commit is contained in:
@@ -0,0 +1,37 @@
|
||||
10 affiche "Bienvenue dans le programme Median3Entiers.lir"
|
||||
20 affiche
|
||||
30 affiche "Entrez le premier entier : "
|
||||
40 entre premier
|
||||
50 affiche "Entrez le deuxième entier : "
|
||||
60 entre deuxieme
|
||||
70 affiche "Entrez le troisième entier : "
|
||||
80 entre troisieme
|
||||
90 procedure 1000
|
||||
100 affiche "Median( "
|
||||
110 affiche premier
|
||||
120 affiche ", "
|
||||
130 affiche deuxieme
|
||||
140 affiche ", "
|
||||
150 affiche troisieme
|
||||
160 affiche ") = "
|
||||
170 affiche median
|
||||
180 affiche
|
||||
250 stop
|
||||
|
||||
1000 si premier <= deuxieme vaen 1100
|
||||
1010 si deuxieme <= troisieme vaen 1200
|
||||
1020 vaen 1520
|
||||
|
||||
1100 si deuxieme <= troisieme vaen 1520
|
||||
1110 si premier <= troisieme vaen 1540
|
||||
1120 vaen 1500
|
||||
|
||||
1200 si premier <= troisieme vaen 1500
|
||||
1220 vaen 1540
|
||||
|
||||
1500 var median = premier
|
||||
1510 vaen 1550
|
||||
1520 var median = deuxieme
|
||||
1530 vaen 1550
|
||||
1540 var median = troisieme
|
||||
1550 retour
|
||||
@@ -0,0 +1,13 @@
|
||||
10 affiche "Entre ton nom : "
|
||||
20 entre $nom
|
||||
30 affiche "Bienvenue "+$nom
|
||||
35 affiche
|
||||
40 var an=2021
|
||||
50 affiche "Quelle est ton année de naissance ? "
|
||||
60 entre naissance
|
||||
65 si naissance > an vaen 50
|
||||
70 affiche "Tu as autour de "
|
||||
80 affiche an-naissance
|
||||
90 affiche "ans "
|
||||
100 affiche
|
||||
200 stop
|
||||
@@ -0,0 +1,28 @@
|
||||
10 affiche "Bienvenue dans le programme"
|
||||
20 affiche
|
||||
30 var instant = 2021
|
||||
40 procedure 500
|
||||
50 var $message = "Vous êtes " + $prenom
|
||||
60 var $message = $message + " "
|
||||
65 var $message = $message + $nom
|
||||
70 affiche $message
|
||||
80 affiche
|
||||
90 affiche "age : "
|
||||
100 affiche age
|
||||
110 affiche " ans"
|
||||
120 vaen 150
|
||||
124 affiche
|
||||
125 affiche "erreur vaen si affiché"
|
||||
150 affiche
|
||||
200 affiche "Merci d'avoir utilisé ce programme !"
|
||||
400 stop
|
||||
500 affiche "Saisissez votre nom : "
|
||||
510 entre $nom
|
||||
520 affiche "Saisissez votre prénom : "
|
||||
530 entre $prenom
|
||||
540 affiche "Saisissez votre année de naissance (entier) : "
|
||||
550 entre naissance
|
||||
560 procedure 1000
|
||||
570 retour
|
||||
1000 var age = instant - naissance
|
||||
1010 retour
|
||||
@@ -0,0 +1,35 @@
|
||||
10 affiche "Bienvenue dans le programme factorielle.lir !"
|
||||
20 affiche
|
||||
30 affiche "Entrez un entier : "
|
||||
40 entre entier
|
||||
45 procedure 500
|
||||
50 procedure 1000
|
||||
60 affiche entier
|
||||
70 affiche "! = "
|
||||
80 affiche factorielle
|
||||
90 affiche
|
||||
200 stop
|
||||
|
||||
500 si entier >= 0 vaen 600
|
||||
510 affiche "n! est définie sur l'ensemble des entiers naturels"
|
||||
520 stop
|
||||
600 retour
|
||||
|
||||
1000 var factorielle = 1
|
||||
1010 var entierCourant = 2
|
||||
1011 var ancienFactorielle = factorielle
|
||||
1012 var test = factorielle
|
||||
1015 si entierCourant > entier vaen 1100
|
||||
1016 si ancienFactorielle <> test vaen 1060
|
||||
1017 var ancienFactorielle = factorielle
|
||||
1020 var factorielle = factorielle * entierCourant
|
||||
1025 var test = factorielle / entierCourant
|
||||
1030 var entierCourant = entierCourant + 1
|
||||
1040 vaen 1015
|
||||
1050 vaen 1100
|
||||
1060 affiche "dépassement de la capacité des entiers pour "
|
||||
1070 affiche entier
|
||||
1080 affiche "!"
|
||||
1090 affiche
|
||||
1095 stop
|
||||
1100 retour
|
||||
Reference in New Issue
Block a user