Programme Jeu Loto Facile

{Dans ce qui suit, il y a deux programmes principaux qui constituent une application de

la fonction random ou randomize sur Pascal, le premierconcerne un jeu de Loto Facile,

et le deuxième concerne un exercice sur des notes}

{Enoncé : exercice 1 : créer un programme qui permet de retourner un tirage aléatoire

de six nombres entre 0 et 48}

program LotoFacile;

//fait par pseudo-yes le 23/09/2015

uses crt;

const max=49;

var b1,b2,b3,b4,b5,b6:byte;

begin

randomize;

clrscr; //effacer l'écran

writeln('LotoFacile':45); //on met :45 pour centre le titre 'LotoFacile' et faire plus beau

writeln; // pour permettre de sauter une ligne

b1:= 1+random(max);

b2:= 1+random(max);

b3:= 1+random(max);

b4:= 1+random(max);

b5:= 1+random(max);

b6:= 1+random(max);

writeln('Le tirage est:');

writeln(b1:3, b2:3, b3:3, b4:3, b5:3, b6:3);

writeln('Veuillez appuyer sur une touche pour quitter'); {l'idée est de dire à l'utilisateur

de fermer en appuyant sur une touche,

il peut très bien fermer en appuyant

sur la croix rouge!}

repeat until keypressed;

end.

{Enoncé : écrire un programme en TurboPascal qui permet de retourner comme résultat

des notes entre 0 et 20 au quart de point }

program ExDeNotes;

//fait par pseudo-yes le 25/09/2015

uses crt;

const nmax=20; //nombre maximum de notes

type

indice=1..(nmax);

TabNotes=array[indice]OF real;

var T:TabNotes;

i:indice;

begin

randomize;

clrscr; //effacer l'écran

//Remplissage

...