Dev pascal

arnaul2 Messages postés 103 Date d'inscription Statut Membre Dernière intervention -
KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention - 28 sept. 2012 à 19:46

Bonjour,
J'aimerai mettre dans mon programme la fonction qui compte les secondes, genre à la fin du programme ca dit en combien de temps on a joué.

Program Jeu;
uses crt;

var
name: string [10];
nombre, juste,a,b,compteur: integer;

begin
clrscr;
compteur:=1;
juste:= 25650;
{a:=25;}
{b:=5;}

{GOTOXY(a,b);}
writeln;

Writeln(' BIENVENUE AU JUSTE PRIX ');

writeln;
Write (' comment vous appelez vous ? ');
readln (name);
writeln;
writeln (' Suivez bien les intructions ' , name );
writeln;
writeln;
writeln('/// VOUS DEVEZ TROUVER UN NOMBRE QUI SE SITUE ENTRE 0 ET 30000 \\\');
writeln;

writeln (' Vous avez 30 secondes ---- top c''est parti');
repeat
writeln;

readln (nombre);

writeln;
writeln;

If nombre < juste then
Begin
writeln('c''est plus');
writeln;
End
Else
Begin
if nombre > juste then
writeln ( ' c''est moins');
writeln;
End;

Until nombre=juste;

compteur:=compteur+1;

if nombre <= juste then

sound(b);
writeln(' VOUS AVEZ GAGNE !!!!!!!! ');
Delay(40);
writeln;
writeln('avec ', compteur ,' essais ');
Nosound;

readln;

end.

A voir également:

Dev pascal
Turbo pascal - Télécharger - Édition & Programmation
Dev pascal - Télécharger - Édition & Programmation
Massgrave dev - Accueil - Windows
Dev c++ - Télécharger - Langages
My pascal - Télécharger - Édition & Programmation

1 réponse

Réponse 1 / 1

KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention 3 020

Tu devrais utiliser la procédure getTime(var h,m,s,c:word).

Exemple (calcule l'heure en secondes)

function realOfGetTime:real;
var h,m,s,c:word;
begin
   getTime(h,m,s,c);
   result:=h*3600+m*60+s+real(c)/100;
end;

Discussions similaires

probleme bluetooth avec sony mex-bt2500

controleur ethernet pci \ven-8086&DEV-103B&SU

A quoi sert uses crt dans le programme PASCAL

Comment voir l’épisode 11 de la saison 1 Pascal le grand frère avec Maud ?

Votre réponse

Discussions similaires