Langage pascal
Fermé
oh9007
Messages postés
41
Date d'inscription
mardi 10 février 2009
Statut
Membre
Dernière intervention
15 septembre 2010
-
10 févr. 2009 à 08:52
KX Messages postés 16734 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 24 avril 2024 - 10 févr. 2009 à 14:52
KX Messages postés 16734 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 24 avril 2024 - 10 févr. 2009 à 14:52
A voir également:
- Langage pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- Langage ascii - Guide
- My pascal - Télécharger - Édition & Programmation
- Débuter langage batch windows - Guide
- Dev-pascal - Télécharger - Édition & Programmation
1 réponse
KX
Messages postés
16734
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
24 avril 2024
3 015
10 févr. 2009 à 14:52
10 févr. 2009 à 14:52
program SansNom; var nombreLigne, nombreEtoile, indiceLigne, indiceEtoile:integer; begin write('Nombre de ligne = '); readln(nombreLigne); write('Nombre d''etoile = '); readln(nombreEtoile); for indiceLigne:=1 to nombreLigne do begin for indiceEtoile:=1 to nombreEtoile do write('*'); writeln; end; writeln; write('Fin du programme. Appuyer sur Entree'); readln; end.