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

FORUM PASCAL
	Page précedente	Page suivante

superdj
Nouveau membre

Inscrit : 27/11/2006
Messages : 7

#117051 Posté le 29/11/06 à 17:33

j'ai enfin fini mon program en fait en y reflechissant bien se n'était pas dur , j'etai juste parti sur une mauvaise piste le voici :

var l,i : integer;
begin
read(l);
if (l=0) then write('se n est pas un carré‚');

i:=0;
while i<l do
begin
write('*');
i:=i+1;

end;
writeln;
i:=0;
while i<(l-2) do
begin
writeln('*','*':(l-1));
i:=i+1;
end;

i:=0;
while i<l do
begin
write('*');
i:=i+1;

end;

end.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

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

#117054 Posté le 29/11/06 à 18:10

superdj dit :
j'ai enfin fini mon program en fait en y reflechissant bien se n'était pas dur

Mais je n'en doutais pas. Smiley

Tu veux vraiment pas utiliser les balises [ CODE ] 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

PAGES : [1] [2]

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