program heure; uses Forms; Var temps:integer; Procedure heureminute(t:integer); Var h,m :integer; Begin h:=t div 60; m:=t-(h*60); IF h<10 then write(0,h)Else write(h); Write(':'); IF m<10 then write(0,m)Else write(m); Write(' '); end; Begin For temps:=0 to 1499 do heureminute(temps); Readln; end.
L'usage de l'unité forms n'est pas nécessaire et sera remplacée par une directive {$APPTYPE CONSOLE}. De même, la directive {$R *.res} n'a pas de sens pour une application console.Un conseil : pour toute fonction que l'on écrit, il est souhaitable d'initialiser le résultat dès le début. Ca peut éviter des effets inattendus.
Arf...C'était tellement "énorme" que ça m'a échappé : la fonction ne renvoie AUCUNE valeur. Ce qui est un non sens.A la place de "function", tu devrais mettre "procedure" :procedure HeureMinute(t: integer);
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 872 283 membres 4 nouveaux aujourd'hui 16 148 membres club