Discussion :

[GTbenj]

Bonjour à tous,
la question que je vais poser a été maintes fois demandées sur ce forum, mais je bloque sur la traduction en ADA, car il me signale à chaque fois des erreurs.
Etant débutant, je vais essayer d'être le plus clair possible

l'exercice consiste à afficher un triangle isocèle à N lignes, avec des étoiles et des espaces:
ex: N=5

Code :

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

1
2
3
4
5
6
 
    *
   *** 
  *****
 *******
*********

j'ai trouvé le lien entre le nombre de lignes, le numéro de la ligne et le nombre d'étoiles et d'espaces:
N=5
i(n° de la ligne)
Nb d'espaces : N-i
Nb d'étoiles: 2i-1




j'ai donc essayé quelque chose qui ne marche pas, et pour cause, j'ai lu qu'il faudrait 2 for, or je n'en utilise qu'un, mais je ne vois pas l'utilité d'un deuxième for, voilà le code qui ne marche pas^^:

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
 
WITH Ada.Text_IO;USE Ada.Text_IO;
WITH Ada.Integer_Text_IO;USE Ada.Integer_Text_IO;
 
PROCEDURE Exo4 IS
   N:Integer;
 
BEGIN
 
   Put("entrer le nb de lignes");
   Get(N);
 
   FOR I IN 1..N LOOP
      Put((N-I)*(" "));
      Put((2*I-1)*("*"));
      New_Line;
   END LOOP;
 
END Exo4;

et les erreurs lors de la compilation:
exo4.adb:17:18: expected type "Standard.Integer"
exo4.adb:17:18: found a string type
exo4.adb:18:20: expected type "Standard.Integer"
exo4.adb:18:20: found a string type

Si quelqu'un pouvait m'aiguiller

[amateurc]

l'ada est un langage très typé dans le put quand tu a différent type précisé la fonction n'est pas surchargé ainsi

Code :

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

Put((N-I)*(" "));

tu a un entier (N-I), un caractère * qui peut ici etre interprété comme un opérateur est un espace donc pour enlever les erreurs de compilation en gardant le code ca donnerait ceci mais je ne pense pas que ce soit ce soit le résultat escompté :

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
WITH Ada.Text_IO;USE Ada.Text_IO;
WITH Ada.Integer_Text_IO;USE Ada.Integer_Text_IO;
 
PROCEDURE Exo4 IS
   N:Integer;
 
BEGIN
 
   Put("entrer le nb de lignes");
   Get(N);
 
   FOR I IN 1..N LOOP
      Put(integer'image(N-I) & "*" & " ");
      Put(integer'image(2*I-1) & "*" & "*");
      New_Line;
   END LOOP;
 
END Exo4;

[GTbenj]

oui, ce n'est pas le résultat escompté, car il m'affiche le chiffre (N-I), puis étoile pour le premier put, et le chiffre (2I-1), et 2 étoiles.

Code :

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

      Put(integer'image(N-I) & "*" & " ");

en réalité, le * est une multiplication, et non un caractère à afficher.
Il doit y avoir un moyen de représenter un certain nombre d'espaces puis d'étoiles, certainement avec un deuxième for, mais je vois pas comment.

Sinon, à quoi correspond

Code :

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

integer'image

merci de ton aide en tout cas

[amateurc]

mais d'apres ce que je vois vous avez deja les valeurs N-I et 2*(I-1), donc je conseille une fonction espace qui affiche une certain nombre d'espace le n-i et une fonction etoile qui affiche juste le nombre d'étoile

Code :

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

1
2
3
4
5
 
for i in 1..N loop
espace(N-1);
etoile(2i-1);
end loop;

et dans les fonctions etoile et espace tu auras tes boucles


le integer'image convertit un entier en chaine ce qui permet l'affichage dans le cas ou put n'est pas surchagé

[GTbenj]

euh, je n'ai pas trop compris, il faudrait donc mettre 3 boucles en tout ?

[amateurc]

il en faut une pour le nombre d'espace, une pour le nombre d'étoile et une autre pour le nombre de ligne

[GTbenj]

ok merci je regarde ça et je te tiens au courant

[GTbenj]

j'ai essayé ceci

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
BEGIN
 
   Put("entrer le nb de lignes");
   Get(N);
 
   FOR I IN 1..N LOOP
      for J in N-I..0 loop
         put(" ");
      for K in 1..2*I-1 loop
         put("*");
       END LOOP;
       END LOOP;
      New_line;
   END LOOP;
 
 
END Exo4;

mais j'obtiens juste la base du triangle, la dernière ligne
j'avais déjà essayé ce genre de solution quasi identique

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
BEGIN
 
   Put("entrer un nombre entier positif:");
   Get(N);
   FOR I IN 0..N-1 LOOP
        new_line;
         for J in N-I..1  loop
           Put(" ");
         for J in 0..2*I loop
           put("*");
         END LOOP;
      END LOOP;
   END LOOP;
 
END Exo4;

mais c'est le même resultat
merci quand même, tu as peut être d'autres idées, parce que je suis à sec

[amateurc]

comme je te l'ai suggéré les fonctions sont d'une grande aide je t'en donne une ainsi que sont application dans ton code après a toi d'adapter à l'étoile :

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
WITH Ada.Text_IO;USE Ada.Text_IO;
WITH Ada.Integer_Text_IO;USE Ada.Integer_Text_IO;
 
PROCEDURE Exo4 IS
 
	procedure espace(e:integer) is
	begin
		for i in 1..e loop
			put("  ");
		end loop;
	end espace;
 
	N:Integer;
 
	BEGIN
 
	Put("entrer le nb de lignes : ");
	Get(N);
 
	FOR I IN 1..N LOOP
	    espace(N-I);
            put("juste pour voir les espaces avant");
	    New_Line;
	END LOOP;
 
END Exo4;

[GTbenj]

merci pour la fonction espace, en effet ça marche bien, malheureusement, j'ai du mal avec les étoiles(pas faute d'avoir essayé), j'ai tenté avec un while, pour qu'il rajoute +2 étoiles à chaque ligne, également avec un for, mais ça ne marche pas.
je te remercie pour l'aide, mais au vu des cours, je ne pense pas qu'il faille utiliser des fonctions, mais uniquement deux boucles for, en tout cas, j'ai mieux compris le problème même si cela ne s'avère pas si simple au niveau de la traduction en ada

si quelqu'un voit mon problème, je suis preneur, en tout cas je finirais bien par avoir la réponse, et je la posterais par la même occasion

[GTbenj]

voilà, il fallait créer en fait une boucle pour les lignes, les espaces, et les étoiles

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
with Ada.Text_IO;USE Ada.Text_IO;
with Ada.Integer_Text_IO;use Ada.Integer_Text_IO;
 
procedure Exo4 is
   N : Integer;
begin
   Put("entrer le nb de lignes");
   Get(N);
   for Lignes in 1..N loop
      for Espaces in 1..N-Lignes loop
         Put(" ");
      end loop;
      for Etoiles in 1..2*Lignes-1 loop
         Put("*");
      end loop;
      New_Line;
   end loop;
end Exo4;