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 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 10 févr. 2009 à 14:52
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 10 févr. 2009 à 14:52
A voir également:
- Langage pascal
- D langage c ✓ - Forum C
- Turbo pascal download - Télécharger - Édition & Programmation
- Langage ascii - Guide
- My pascal - Télécharger - Édition & Programmation
- Langage linux - Forum Linux / Unix
1 réponse
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 005
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.