Anonymous user
Integer comparison: Difference between revisions
no edit summary
(Add Plain English) |
No edit summary |
||
Line 2,157:
end</lang>
Each infix operator has prefix synonyms (equalp, equal?, lessp, less?, greaterp, greater?), where the 'p' stands for "predicate" as in [[Lisp]].
=={{header|LSE}}==
==={{header|avec SI}}===
<lang LSE>(* Comparaison de deux entiers en LSE (LSE-2000) *)
ENTIER A, B
LIRE ['Entrez un premier entier:',U] A
LIRE ['Entrez un second entier:',U] B
SI A < B ALORS
AFFICHER [U,' est plus petit que ',U,/] A, B
FIN SI
SI A = B ALORS
AFFICHER [U,' est égale à ',U,/] A, B
FIN SI
SI A > B ALORS
AFFICHER [U,' est plus grand que ',U,/] A, B
FIN SI</lang>
==={{header|avec ÉVALUER}}===
<lang LSE>(* Comparaison de deux entiers en LSE (LSE-2000) *)
ENTIER A, B
LIRE ['Entrez un premier entier:',U] A
LIRE ['Entrez un second entier:',U] B
EVALUER .VRAI.
QUAND A < B
AFFICHER [U,' est plus petit que ',U,/] A, B
QUAND A = B
AFFICHER [U,' est égale à ',U,/] A, B
QUAND AUTRE
AFFICHER [U,' est plus grand que ',U,/] A, B
FIN EVALUER</lang>
==={{header|avec SI..IS}}===
<lang LSE>(* Comparaison de deux entiers en LSE (LSE-2000) *)
ENTIER A, B
LIRE ['Entrez un premier entier:',U] A
LIRE ['Entrez un second entier:',U] B
AFFICHER [U, U, U, /] A, \
SI A < B ALORS ' est plus petit que ' SINON \
SI A = B ALORS ' est égale à ' SINON \
SI A > B ALORS ' est plus grand que ' SINON '?' IS IS IS, B
</lang>
=={{header|LSE64}}==
| |||