Discussion :

[monrow]

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 :

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;

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
 
@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@
@@@@@@@@@@@
@@@@@@@@
@@@@@
@@

soit juste des trapèzes rectangles avec la grande base en haut ...

voire même des triangles !! comme ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@
@@@@@@@@@@
@@@@@@@
@@@@
@

donc je ne peux pas contrôler la largeur de la petite base non plus !


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

[plegat]

Salut

si vous avez des idées même avec pascal ou C je suis preneur.

même sans langage on a des idées

Ton programme considère que tu ne fais le décalage qu'à droite, donc normal que tu obtiennes des triangles en sortie.
Rajoute des espaces en début de ligne pour créer ton décalage à gauche.

[monrow]

Merci pour votre réponse.

voilà j'ai ajouté deux nouvelles variables pour un décalage à gauche (Dg) et pour l'espace total avec lequel on veut éloigner la figure de la gauche, mais là j'ai toujours des cas où ça ne marche pas

voilà mon code :

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
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO,  Ada.Integer_Text_IO;
 
procedure trapeze is
 
   C:Character;
   H,E,L,Dg,Dd : Integer;
 
   procedure Dessin (C : Character; H : Integer ; E : in out Integer; L : in out Integer ; Dg : Integer ; Dd : Integer ) is
 
   begin
 
      for I in 1..H loop
         for J in 1..E loop
            Put(" ");
         end loop;
         for K in 1..L loop
            Put(C);
         end loop;
         New_Line;
         E:=E+Dg;
         L:=L+Dd-Dg;
      end loop;
   end;
 
begin
   Get(C);Get(H);Get(E);Get(L);Get(Dg);Get(Dd);
   Dessin(C,H,E,L,Dg,Dd);
end;

pour @ 6 4 20 2 -3 ça donner un résultat plus ou moins satisfaisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    @@@@@@@@@@@@@@@@@@@@
      @@@@@@@@@@@@@@@
        @@@@@@@@@@
          @@@@@

Mais pour @ 6 4 20 -2 3 voilà ce que ça donne :s

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    @@@@@@@@@@@@@@@@@@@@
  @@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

je ne sais vraiment pas ce que je dois faire ...

[plegat]

Mais pour @ 6 4 20 -2 3 voilà ce que ça donne :s

Figure normale. Tu t'attendais à quoi? A ce que l'ordi sortent les lignes de l'écran?

je ne sais vraiment pas ce que je dois faire ...

Au choix:

1. Réfléchir un peu
2. Faire une simulation à la main (avant de râler que l'ordi fait n'importe quoi)... et accessoirement se demander ce que ça va faire un "for J in 1..E loop" quand E vaut 0...
3. Passer des paramètres "intelligents" (ou mettre des tests de validité dans le code). Pourquoi passer en paramètre le décalage initial à gauche E? Ca doit/peut être calculé automatiquement par le programme non?