[Dev-Pascal] Dessin d'un carré de x étoiles de côté, x entré par l'utilisateur

[elseif]

Bonjour tout le monde,

J'ai récemment débuté en Pascal et j'ai un petit truc à faire mais je cale, j'ai tout essayé mais ça ne marche pas. Le but du programme est que l'utilisateur entre un chiffre et que le programme affiche le carré de ce chiffre en '*'. Exemple :

L'utilisateur entre 10 , le programme écrit :

**********
**********
**********
**********
**********
**********
**********
**********
**********
**********

Donc un carré de 10 sur 10.

Voici où j'en suis :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
program lecarre(input,output);
var a:string;
var cpt:integer;
var b:integer;
begin
repeat
a:='*';
cpt:=0;
writeln('Entrez un chiffre');
readln(b);
readln();
while cpt<b do
begin
writeln(a);
a:=a * '*';
inc(cpt);
end
until b=0;
readln;
 
end.

Le compilateur me donne l'erreur "Operator is not overloaded" à la ligne "a:=a * '*';"

Voilà, merci d'avance pour vos réponses.

[tabouet]

Bonsoir,

Mon pascal remonte à quelques années mais si mes souvenirs sont bons, avec

Code :

a:=a * '*';

Tu multiplies une chaîne de caractères (string) par une autre...
Si tu veux concaténer tes chaînes, il faut que tu utilises + ou concat()

J'ai testé ton programme, ça marche pas trop

A bientôt,
Alexis

[Alcatîz]

Bonjour,

C'est assez logiquement l'opérateur + qui permet d'ajouter une chaîne à une autre :

Code :

a := a + '*';

Sans te donner une solution toute faite, voici une piste de réflexion : l'utilisateur a entré un nombre b, qui est à la fois la largeur et la hauteur du carré.
Donc, tu peux une première fois faire une boucle qui construit une chaîne de b étoiles, puis une seconde boucle qui affiche b fois la chaîne que tu as construite.

[tabouet]

Bonsoir,

J'ai pensé la même chose, mais je pensais pouvoir trouver une solution un peu plus simple.

A bientôt,
Alexis

[elseif]

Bonjour , merci beaucoup de vos reponses. J'avais finallement trouver le moyen de creer le programme mais j'ai utilisé des commandes que je ne connaissai pas ,je les vu sur un tutoriel puis je les est utilisé mais je ne le connais pas. La commande que je ne comprend pas est le suivant "Inc" . Par example comme dans le programme que j'ai fait "Inc(g)"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
Program Devoir (input,output);
Var t,g,lq: integer;
 
begin
writeln( 'Entrez un nombre' );
readln (lq);{Enregistre la valeur que l'utilisateur a entrer dans la variable "lq"}
t:=1;{La valeur de t prend "1"}
While t<=lq do {tant que "t" est plus petit ou egal a "lq" faire:}
      Begin
      g:=1;{g prend la valeur 1}
      While g<=lq do {tant que "g" est plus petit ou egale a "lq" faire }
      Begin
      Write('x');{Ecrire "X"}
      Inc (g);
      End;
      Writeln ;
      Inc(t);
      End;
Readln;
end.

[droggo]

Lie,

Un simple petit (tout petit) programme de test aurait répondu à ta question, il faut savoir se prendre en mains !

Inc pour incrémente.

Avec la forme que tu utilises, ça ajoute 1 à la variable passée en argument, une autre forme permet de forcer une autre valeur pour l'incrémentation : Inc(la_variable,increment).