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 16760 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 12 février 2025 - 10 févr. 2009 à 14:52

Bonjour,
svp :un algo qui afiche 3 lignes de 20 etoiles.(langage pascal)
merci.

A voir également:

Langage pascal
Pascal langage - Télécharger - Édition & Programmation
Langage ascii - Guide
Turbo pascal download - Télécharger - Édition & Programmation
Langage binaire - Guide
Langage pascal - Télécharger - Édition & Programmation

1 réponse

Réponse 1 / 1

KX Messages postés 16760 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 12 février 2025 3 020
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.

Discussions similaires

que signifie les petits rectangles blancs à la fin de mes sms ?

bns

Que signifie "clc" ?