90 lines
1.1 KiB
Plaintext
90 lines
1.1 KiB
Plaintext
a entier
|
|
|
|
DEBUT
|
|
|
|
ECRIRE "Entrez un nombre"
|
|
|
|
LIRE a
|
|
|
|
SI a < 0 ALORS
|
|
ECRIRE a . " est négatif"
|
|
SINON SI a > 0 ALORS
|
|
ECRIRE a . " est positif"
|
|
SINON
|
|
ECRIRE a . " est égal à 0"
|
|
FINSI
|
|
|
|
FIN
|
|
|
|
|
|
----------------------------------
|
|
|
|
a entier
|
|
b entier
|
|
|
|
DEBUT
|
|
|
|
ECRIRE "Entrez deux nombres"
|
|
|
|
LIRE a
|
|
LIRE b
|
|
|
|
SI ((a < 0) OU (b < 0)) OU !((a < 0) ET (b < 0))
|
|
ALORS ECRIRE "Le produit de " a . " par " . b " est négatif"
|
|
SINON ECRIRE "Le produit de " a . " par " . b " est positif"
|
|
FINSI
|
|
|
|
FIN
|
|
|
|
----------------------------------
|
|
|
|
v entier
|
|
route chaine de caractères
|
|
|
|
DEBUT
|
|
|
|
ECRIRE "Entrez la valeur de la vitesse"
|
|
LIRE v
|
|
|
|
ECRIRE "Entrez le type de route"
|
|
LIRE route
|
|
|
|
SI (v > 130) OU
|
|
(route = "Départementale" ET v > 90 ) OU
|
|
("Ville" ET v > 50)
|
|
ALORS
|
|
ECRIRE "Excès de vitesse !"
|
|
|
|
SINON
|
|
ALORS
|
|
ECRIRE "Pas d'excès de vitesse."
|
|
|
|
FINSI
|
|
|
|
FIN
|
|
|
|
|
|
----------------------------------
|
|
|
|
|
|
t entier
|
|
s entier
|
|
m entier
|
|
h entier
|
|
|
|
DEBUT
|
|
|
|
ECRIRE "Entrer le temps en millisecondes"
|
|
LIRE t
|
|
|
|
ms = t%1000 //50
|
|
t = (t - ms) / 1000
|
|
s = t%60 //6
|
|
t = (t - s)
|
|
m = t%60 //1
|
|
t = (t - m) / 60
|
|
h = t%60 //1
|
|
|
|
ECRIRE "Temps : h . "h " . m . "m " . s . "s " . ms . "ms"
|
|
|
|
FIN |