Page 480 - IT2

Exercice 2: Le cerf-volant

Variable U : Caractère [ 20 , 20 ]
Variable M : Entier
Début
Répéter
Afficher ( "Donner la taille paire: " )
Saisir ( M )
Si Modulo ( M , 2 ) <> 0 Alors
Afficher ( "La taille doit être paire!" )
FinSi
Jusqu'à Modulo ( M , 2 ) = 0 Et M >= 0
cerf_volant ( U , M )
Fin

Procédure cerf_volant ( T : Caractère [ 20 , 20 ] ; N : Entier )
Variable i , j : Entier
Variable dessiner : Chaîne
Début
Pour i <- 1 à N + 1
Pour j <- 1 à N + 1
Si i = N / 2 + 1 Alors
T [ i , j ] <- ’-’
Sinon
T [ i , j ] <- ’’
FinSi
FinPour
T [ i , N / 2 + 1 ] <- ’|’
FinPour

j <- N / 2
Pour i <- 1 à N / 2
T [ i , j ] <- ’/’
T [ i , N / 2 + 1 + i ] <- ’\’
j <- j - 1
FinPour

j <- N + 1
Pour i <- N / 2 + 2 à N + 1
T [ i , i - N / 2 - 1 ] <- ’\’
T [ i , j ] <- ’/’
j <- j - 1
FinPour

T [ N / 2 + 1 , N / 2 + 1 ] <- ’’

Pour i <- 1 à N + 1
dessiner <- ""
Pour j <- 1 à N + 1
dessiner <- dessiner & T [ i , j ]
FinPour
Afficher ( dessiner )
FinPour
Fin

Dossier 3: Conception et modélisation d'un système d'information

Filière Epreuve Session 3/13
TDI Synthèse V1(Correction) Juillet 2014