58 lines
1.2 KiB
Plaintext
58 lines
1.2 KiB
Plaintext
fact id_fonction fact
|
|
( symbole PARENTHESE_OUVRANTE
|
|
entier mot_clef entier
|
|
$f id_variable $f
|
|
) symbole PARENTHESE_FERMANTE
|
|
{ symbole ACCOLADE_OUVRANTE
|
|
si mot_clef si
|
|
$f id_variable $f
|
|
= symbole EGAL
|
|
1 nombre 1
|
|
| symbole OU
|
|
$f id_variable $f
|
|
= symbole EGAL
|
|
0 nombre 0
|
|
alors mot_clef alors
|
|
{ symbole ACCOLADE_OUVRANTE
|
|
retour mot_clef retour
|
|
1 nombre 1
|
|
; symbole POINT_VIRGULE
|
|
} symbole ACCOLADE_FERMANTE
|
|
sinon mot_clef sinon
|
|
{ symbole ACCOLADE_OUVRANTE
|
|
retour mot_clef retour
|
|
fact id_fonction fact
|
|
( symbole PARENTHESE_OUVRANTE
|
|
$f id_variable $f
|
|
- symbole MOINS
|
|
1 nombre 1
|
|
) symbole PARENTHESE_FERMANTE
|
|
* symbole FOIS
|
|
$f id_variable $f
|
|
; symbole POINT_VIRGULE
|
|
} symbole ACCOLADE_FERMANTE
|
|
} symbole ACCOLADE_FERMANTE
|
|
main id_fonction main
|
|
( symbole PARENTHESE_OUVRANTE
|
|
) symbole PARENTHESE_FERMANTE
|
|
entier mot_clef entier
|
|
$a id_variable $a
|
|
; symbole POINT_VIRGULE
|
|
{ symbole ACCOLADE_OUVRANTE
|
|
$a id_variable $a
|
|
= symbole EGAL
|
|
lire mot_clef lire
|
|
( symbole PARENTHESE_OUVRANTE
|
|
) symbole PARENTHESE_FERMANTE
|
|
; symbole POINT_VIRGULE
|
|
ecrire mot_clef ecrire
|
|
( symbole PARENTHESE_OUVRANTE
|
|
fact id_fonction fact
|
|
( symbole PARENTHESE_OUVRANTE
|
|
$a id_variable $a
|
|
) symbole PARENTHESE_FERMANTE
|
|
) symbole PARENTHESE_FERMANTE
|
|
; symbole POINT_VIRGULE
|
|
} symbole ACCOLADE_FERMANTE
|
|
symbole FIN
|