Discussion :

[superdj]

Comment faire un programme en Pascal qui considère en entrée un entier non nul L et qui affiche en sortie un quadrilatère droit dont les côtés sont de longueur L caractères.

Je sais qu'il faut utiliser les boucles mais je suis bloqué.
(pour l'info jvé faire dodo donc je verrai les reponses demain aurevoir)

[JoseF]

Bonjour (oui ça va de soit)

je ne pense pas qu'on va te faire ton programme pendant que toi tu dors... si tu ne nous en dis pas un peu plus et notamment où tu bloques (un peu plus précisement..)
Ne pourrais-tu pas nous donner le code de ce que tu as dejà fait (là ou tu es en panne ?)


voilà bonne journée.

JoseF

[superdj]

Bonjour
Ok c'était une façon de parler.
Sinon, quand je le fais j'ai des problèmes d'alignement des caractères, mon rectangle obtenu à l'écran n'est pas en phase, les arêtes sont décalées.

[krachik]

bonjour pourquoi tu hesites a nous montrer ce queut as deja fait pour qu'on voit,
je pense qu'il suffit de revoir ton algo de revoir tes boucles et tes affichages,
est ce que tu veux c'est ça?
lire un entier
exemple L=4
et on obtient

Code :

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

1
2
3
4
5
 
                  aaaa
                  a  a
                  a  a
                  aaaa

ce que tu veux obtenir?
pour commencer montre ce que tu as de ja fait
on vera

[superdj]

ok, et c'est exactement ceci que je veux obtenir pour l'info. Voilà ce que j'ai fait, j'obtiens ainsi 2 côtés du rectangle mais mon souci c'est que lorsque je répète l'opération pour obtenir les 2 autres, tout est décalé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var n,i,long : integer;
begin
write('donner n');readln(n);
i:=1;
while i<=n do begin
writeln('*':n);
i:=1;
while i<= long do begin
writeln('*':n);
i:=i+1;
end;
 
end;
end.

[krachik]

tu sûr que tu obtient ce que tu dis

j'obtien ainsi 2 cotés du recangle mais mon souci c'est que lorsque je repete l'operaion pour obtenir les 2 autres bas tous est decalé

car ton prog m'a tout l'air de s'embarquer dans une boucle inifie
d'abord il sert a quoi ta variable long,et quand tu l'utilise non seulement il n'est pas initialisé pas en plus il n'est pas incrementé ni decrémenté
si tu met dans la boucle

Code :

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

writeln('*':n);

et si n=4 tu auras

Code :

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

1
2
3
4
5
 
      *
      *
      *
      *

en plus c'est pas la peine d'utiliser la boucle while une boucle for est plus adaptée
voila ce que je trouve moi je ne l'ai pas encore testé mais je pense que ça devrait marcher:

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
 
Program aff;
     const car='*';
     var ncar,i:integer;
begin
    write('Entrer entier:');
    readln(ncar);
    for i:=1 to ncar do
        write(car);
    writeln;
    for i:=1 to ncar-2  do   
         writeln(car,car:n-1);
    for i:=1 to ncar do
         write(car);
    readln;
end.

[JoseF]

il y a une petite erreur dans le code mais on la trouve facile

writeln(car,car:n-1);

voila un programme bien indenté et qui fonctionne !

une chose est sûre, en posant les bonnes questions (et en français) et avec le code, celà permet d'avancer dans la résolution des problèmes !

Dans le monde du travail c'est pareil !

[thewho]

Bonjour,

(pour l'info jvé faire dodo donc je verrai les reponses demain aurevoir)

Je n'avais pas encore lu ton post, ce qui fait que j'arrive en retard.

C'est bien dommage, car je t'aurais volontier demandé où tu habites, histoire de t'ammener les croissants bien frais pour le petit dejeuner.

[superdj]

je suis bien d'accord avec vous mais le probleme est que se programme est a faire en boucle while .

et merci pour les croissants

[superdj]

Voila mon nouveau programme , mais le pb c'est que j'ai toujour qu'une partie du rectangle , je narrive pas a avvoir qqch de correct pour le rest,

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
var n,i : integer;
begin
write('donner n');readln(n);
i:=1;
while i<= n do begin
write('*');
i:=i+1;
end;
i:=1;
while i<=n do begin
 
writeln('*');
i:=i+1;
end;
end.

[ALT]

Ton pb, si tu regardes ce que tu as écrit, c'est que tu n'as que la première ligne & la première colonne.

Pas de pb pour faire la deuxième ligne.
Reste la deuxième colonne.
Là, tu as deux solutions :

• tu crées une ligne (varible de type chaîne) du style '* *" qu'il te suffit de répéter autant de fois que nécessaire (dans ta deuxième boucle, à la place des writeln('*'), ce sera parfait).
• Ou bien tu utilises les fonctions de console (en particulier : gotoxy(ligne, colonne)), ce qui, accessoirement, devrait te permettre de créer ton carré en deux boucles while imbriquées.

[superdj]

eu je comprend pas se que tu me dit , moi mon idée est de faire u boucle dans une boucle.
mais l'ideal saerai de pouvoir mettre une commande qui dirai mettre une etoile en premier puis ensuite un nombre d 'espace a definir puis une etoile a la fin , mais je vois pas comment faire