Structures conditionnelles
Exemple
d'utilisation
31–4
Structures de contrôle
(suite)
Exemple. Les lignes suivantes recherchent le plus petit diviseur
premier d'un nombre. On teste successivement s'il est divisible par 2,
3, 5 et 7. En cas de succès à l'un de ces tests, on passe directement à
la suite du programme (après le
: If mod(n,2)=0 Then
Text "p=2"
:
: ElseIf mod(n,3)=0 Then
Text "p=3"
:
: ElseIf mod(n,5)=0 Then
Text "p=5"
:
: ElseIf mod(n,7)=0 Then
Text "p=7"
:
: Else
Text "Pas de diviseur inférieur à 10"
:
: EndIf
Voici un exemple d'utilisation pour l'étude d'une équation du second
degré
: degre2()
: Prgm
: Local a,b,c
: ClrIO
: Prompt a,b,c
: If a=0 Then
Disp "Cette équation n'est pas de degré 2"
:
: Else
bñ-4aùc " d
:
If d>0 Then
:
Disp "D > 0, 2 solutions"
:
Disp solve(aùx^2+bùx+c=0,x)
:
ElseIf d=0 Then
:
Disp "D = 0, une racine double"
:
Disp x=-b/(2ùa)
:
Else
:
Disp "D < 0, pas de solution réelle"
:
Disp cSolve(aùx^2+bùx+c=0,x)
:
Endif
:
: Endif
: EndPrgm
On lance ce programme à partir de l'écran de calcul en tapant
degre2() ¸
).
EndIf
2
+
+ =
a x
b x c
0
Les opérations de
saisie et d'affichage
sont effectuées dans
l'écran PrgmIO.
Appuyez sur ‡ pour
revenir dans l'écran
de calcul.