pascal > test en pascal

Titretest en pascal
Postée le01-12-2011
Affichée142
Mini-lien
Description

Ca vient de ce site : http://tdprog.free.fr/pascal/td-pascal/lancedes/lancedes.html

EtatNe contient pas d'erreurs. Ne contient pas d'erreurs.
Code d'insertion
Options
Afficher les numéros de lignes  Mettre la source en plein ecran  Selectionner la source  Partager sur Facebook 
Téléchargement Telecharger en format txt  Telecharger en format pdf
Plein ecran
var nbTirages:Integer;
BEGIN
 randomize;
 repeat
  write('Nombre de tirages : '); readln(nbTirages);
  if nbTirages>0 then
   begin
    initEff;
    tirages(nbTirages);
    calcFreq;    
    afficheTout;
   end;
 until nbTirages<=0;
END.