Triangle d'etoiles

Fermé

hiba125 Messages postés 5 Date d'inscription vendredi 31 mars 2017 Statut Membre Dernière intervention 8 avril 2017 - 8 avril 2017 à 06:48
tarek_dotzero Messages postés 817 Date d'inscription jeudi 19 juillet 2007 Statut Membre Dernière intervention 12 avril 2022 - 4 mai 2017 à 01:56

comment je peux faire ceci avec le language pascal.
voila ma solution mais elle n'etait pas vraie avec tous les 'n' je ne sais pas pourquoi??

program untitled;

uses crt;
var
i ,j,n: byte;
p:string;
BEGIN
readln (n);
p:='*';
for i:=1 to n do
begin
for j:=1 to i-1 do
begin
writeln(p);
p:=p+('*');
end;
end;
end.
merci!!

A voir également:

Triangle d'etoiles
Samsung triangle rouge thermomètre ✓ - Forum Téléphones & tablettes Android
Périphérique pci triangle jaune - Forum Pilotes (drivers)
Triangle away - Télécharger - Utilitaires
Triangle clavier ✓ - Forum Loisirs / Divertissements
Décrypter une adresse mail caché par des étoiles ✓ - Forum Hotmail / Outlook.com

1 réponse

Réponse 1 / 1

tarek_dotzero Messages postés 817 Date d'inscription jeudi 19 juillet 2007 Statut Membre Dernière intervention 12 avril 2022 120
4 mai 2017 à 01:56

Bonjour,

Vous n'avez pas besoin de deux boucles vu que p grandit à chaque fois. Alors, une seule boucle, la première, suffit. Vous n'avez plus besoin du "j" aussi :

BEGIN
	
	ReadLn(n);
	p := '*';
	
	For i:=1 to n Do
	Begin
		WriteLn(p);
		p := p + '*';
	End;
	
END.

Testé, fonctionne.

Discussions similaires

Symbole Attention dans Word

decrypter une adresse mail cache par des etoiles

Clavier azerty crochet < et >

pour faire un triangle avec son clavier windows

transformer les etoiles en mots de passe