Bonjour tout le monde,
en fait, je veux faire un petit programme qui dessine des trapèzes mais là je bloque vraiment.
voilà ce que j'ai pu faire jusqu'à maintenant :
mais là il ne dessine que des trapèzes sous la forme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40 with Ada.Text_IO, Ada.Integer_Text_IO; use Ada.Text_IO, Ada.Integer_Text_IO; procedure Trapeze is C : Character ; -- Caractère de Dessin H : Integer ; -- Hauteur du trapèze (Nombre de lignes) L : Integer ; -- Taille de la grande base D : Integer ; -- Décalage (Nombre de points qu'on supprime -- à chaque ligne) procedure Dessin( C : Character ; H : Integer ; L: in out Integer ; D: Integer ) is begin for I in 1 .. H loop while L>0 loop for J in 1 ..L loop Put(C); end loop; L:=L-D; New_Line; end loop; end loop; end; begin Put("Caractère de Dessin: "); Get(C); Put("Hauteur du trapèze (Nombre de lignes): "); Get(H); Put("Taile de la grande base: "); Get(L); Put("Décalage (Nombre de points qu'on supprime à chaque ligne): "); Get(D); Dessin(C,H,L,D); end;
soit juste des trapèzes rectangles avec la grande base en haut ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 @@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@ @@@@@@@@@@@ @@@@@@@@ @@@@@ @@
voire même des triangles !! comme ici :
donc je ne peux pas contrôler la largeur de la petite base non plus !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 @@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@ @@@@@@@ @@@@ @
alors que je suis sensé faire un programme qui peut faire n'importe quel trapèze même décalé de la marge à gauche, c'est_à-dire au centre :s
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 @@@@@ @@@@@@@@ @@@@@@@@@@@ @@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@
si vous avez des idées même avec pascal ou C je suis preneur.
merci pour tout éclaircissement
Partager