FORUM MP | Pascal : programme afficahe d un carré

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

programme afficahe d un carré
	Forum : PASCAL Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ PASCAL
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGES : [1] [2]

FORUM PASCAL
	Page précedente	Page suivante

superdj
Nouveau membre

Inscrit : 27/11/2006
Messages : 7

#116850 Posté le 27/11/06 à 19:06

je veut faire un programme en pascal qui lorsque je lui entre unla valeur d un coté n , qu il maffiche a lecran un carré , mais je doi le faire que en boucle while.

affichage pour n=5

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

voila
ensuite le meme mais pour untriangle.

merci d'avance de maidez ou me realiser ceci

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

superdj
Nouveau membre

Inscrit : 27/11/2006
Messages : 7

#116852 Posté le 27/11/06 à 19:08

eu y aune erreur la seconde colone est aligner a la fin du carré la c decaler dsl

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#116865 Posté le 27/11/06 à 20:40

C'est bon, j'ai réparé ton carré. Smiley

On peut très bien simuler une boucle for avec une boucle while :

var i : Integer; begin i := 0; // Affiche le côté du haut while i<5 do begin // Afficher un * i := i + 1; end; // Affiche les côtés de côté // ... // Affiche le côté du bas // ... end;

Je te laisse terminer, je présume que tu sauras le terminer.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

superdj
Nouveau membre

Inscrit : 27/11/2006
Messages : 7

#116870 Posté le 27/11/06 à 20:51

eu jme suis mal fait comprendre je sait qu'il faut le faire en while , c d'ailleur une condition imposer car on peut le faire en for se que d ailleur g reussi a faire , mais en while je bug mon program marche pas , si vous pouviez me le relaiser ke je compare ou jai beuger car la je sature jy sui dessu dps ke jai poster se sujet

HAUT DE PAGE

superdj
Nouveau membre

Inscrit : 27/11/2006
Messages : 7

#116878 Posté le 27/11/06 à 22:27

ok autan pour moi javé pas lu le fichier avec , mais monsouci now est comment aficher les cotés?

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#116880 Posté le 27/11/06 à 22:52

Merci d'éviter le langage SMS par respect pour ceux qui te lisent.
Montres ton code pour qu'on puisse voir ce qui ne va pas.
En fait, je ne vois pas le soucis pour afficher les côtes, quel est ton problème ?
Un indice, penses à imbriquer des while.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

superdj
Nouveau membre

Inscrit : 27/11/2006
Messages : 7

#116883 Posté le 27/11/06 à 23:09

ok bas mon souci est que je ne vois pas du tout comment les afficher par cette methode , pouvez vous maidez?

sion jai fait se program, qui fait un carré plein , mais pareil j ene vois pas comment vider se carré suis bloker dans les 2 cas.

Program var i,j,n:integer; ligne : string; begin ligne:=''; readln(n) ; i:=0; j:=0; if n>0 then begin while j<n do begin ligne:=ligne+'*'; j:=j+1; end; while i<n do begin writeln(ligne ) ; i:=i+1; end; end; end.

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#116884 Posté le 27/11/06 à 23:26

Comment ferais-tu avec des boucles for pour faire le carré ?
Tu reprends le code que tu fais avec des for et remplaces les for i := 1 to 4 par
i := 1 while i<4 do ... i := i + 1
A moins que tu ne saches pas le faire avec des for ? Pourtant tu as dit que oui. Smiley

Tu sais faire un ***** ?
Pourquoi ne pourrais-tu pas faire *___* ?
Soit tu affiches * puis 3 _ puis 1 *.
Soit tu fais une seule boucle et si ton incrément vaut la première valeur ou la dernière valeur, tu mets un *, sinon un _.

Au final, il n'y a pas de problème mais que des solutions. Smiley

__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

superdj
Nouveau membre

Inscrit : 27/11/2006
Messages : 7

#116887 Posté le 27/11/06 à 23:36

en for sa donen bien ceci ? svp corriger moi le?
Program aff;
const car='*';
n,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.

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#116899 Posté le 28/11/06 à 08:31

1. Merci de ne pas écrire en SMS.
2. Utilises les balises [ code] et [ /code ]

Je ne connais pas cette méthode : writeln(car,car:n-1);

Merci d'éditer ton message, je le corrigerai après.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM PASCAL

PAGES : [1] [2]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.