# Structures conditionnelles

## Exercice 1

VAR
    a: entier
DEBUT
    Ecrire("Saisir un nombre")
    Lire(a)
    Si (a mod 2 = 0)
        Ecrire("Le nombre est pair")
    Sinon
        Ecrire("Le nombre est impair")
    FinSi
    
FIN

## Exercice 2

VAR
    a, b: reels
DEBUT
    Ecrire("Saisir le 1e nombre")
    Lire(a)
    Ecrire("Saisir le 2e nombre")
    Lire(b)
    Si b != 0
        Ecrire(a Div b)
    Sinon
        Ecrire("Erreur: Division par 0")
    FinSi
FIN

## Exercice 3

VAR
    entreeUser: chaine
DEBUT
    Ecrire("Entrer E pour le salaire Employe, T pour le salaire Technicien ou C pour le salaire Cadre")
    Lire(entreeUser)
    Si (entreeUser == "E")
        Ecrire("Salaire employe: 18132E")
    SinonSi(entreeUser == "T")
        Ecrire("Salaire technicien: 24568E")
    SinonSi(entreeUser == "C")
        Ecrire("Salaire Cade: 31471E")
    Sinon
        Ecrire("Entree invalide")
    FinSi
FIN

## Exercice 4

VAR
    entreeUser: entier
DEBUT
    Ecrire("Saisir une temperature")
    Lire(entreeUser)
    Si (entreeUser <= 0)
        Ecrire("Eau")
        Si (entreeUser <= -3)
            Ecrire("Eau Salee")
            Si (entreeUser <= -5)
                Ecrire("Fuel")
                Si (entreeUser <= -13)
                    Ecrire ("Ordinaire")
                    Si (entreeUser <= -23)
                        Ecrire("Super")
                    FinSi
                FinSi
            FinSi
        FinSi
    Sinon
        Ecrire("Aucun liquide gele a cette temperature")
    FinSi
FIN

## Exercice 5

VAR
    nombreKilometres, res: reels
    nombreChevauxMoteur: entier
DEBUT
    Si (nombreChevauxMoteur == 4)
        Si (nombreKilometres < 5000)
            res = nombreKilometres * 0,466
        SinonSi (nombreKilometres < 20000)
            res = nombreKilometres * 0,262 + 1020
        Sinon
            res = nombreKilometres * 0,313
        FinSi
    SinonSi (nombreChevauxMoteur == 5)
        Si (nombreKilometres < 5000)
            res = nombreKilometres * 0,262 + 1020
        SinonSi (nombreKilometres < 20000)
            res = nombreKilometres * 0,287 + 1123
        Sinon
            res = nombreKilometres * 0,301 + 1178
        FinSi
    SinonSi (nombreChevauxMoteur == 6)
        Si (nombreKilometres < 5000)
            res = nombreKilometres * 0,313
        SinonSi (nombreKilometres < 20000)
            res = nombreKilometres * 0,343
        Sinon
            res = nombreKilometres * 0,360
        FinSi
    FinSi
    Si (nombreChevauxMoteur < 4 OU nombreChevauxMoteur > 6)
        Ecrire("Nombre de Chevaux Moteurs invalide")
    SinonSi (nombreKilometres < 0)
        Ecrire("Kilometrage inferieur a 0")
    Sinon
        Ecrire("Remboursement de " res "Euros")
    FinSi
FIN

## Exercice 6

VAR
    nbPhotocop: entier
    res: reel
DEBUT
    Ecrire("Entrer le nombre de photocopies")
    Lire(nbPhotocop)
    Si (nbPhotocop <= 10)
        res = nbPhotocop * 0,10
    SinonSi (nbPhotocop <= 30)
        res = 10 * 0,1 + (nbPhotocop - 10) * 0,07
    Sinon
        res = 10 * 0,1 + 20 * 0,07 + (nbPhotocop - 30) * 0,05
    FinSi
    Si (nbPhotocop <= 0)
        Ecrire("Aucune photocopie demandee")
    Sinon ("Le prix pour " nbPhotocop "photocopies est " res "Euros.")
    FinSi
FIN

## Exercice 7

VAR
    heure, minutes: entiers
DEBUT
    Ecrire("Entrer l'heure voulue")
    Lire(heure)
    Ecrire("Entrer les minutes")
    Lire(minutes)
    Si (minute < 59)
        Ecrire (heure ":" minutes + 1)
    SinonSi (heure < 23)
        Ecrire (heure+1 ":00")
    Sinon
        Ecrire ("00:00")
    FinSi
FIN

## Exercice 8

VAR
    Borne1Min, Borne1Max, Borne2Min, Borne2Max: entiers
DEBUT
    Ecrire("Entrer le minimum du premier intervalle")
    Lire(Borne1Min)
    Ecrire("Entrer le maximum du premier intervalle")
    Lire(Borne1Max)
    Ecrire("Entrer le minimum du deuxieme intervalle")
    Lire(Borne2Min)
    Ecrire("Entrer le maximum du deuxieme intervalle")
    Lire(Borne2Max)
    
    Si (Borne1Min < Borne2Max AND Borne2Min <= Borne1Max)
        Si (Borne1Min < Borne2Min)
            Ecrire(Borne2Min)
        Sinon
            Ecrire(Borne1Min)
        FinSi
        Ecrire(" ; ")
        Si (Borne1Max < Borne2Max)
            Ecrire(Borne1Max)
        Sinon
            Ecrire(Borne2Max)
        FinSi
    Sinon
        Ecrire("Pas d'intersection")
    FinSi
FIN