Affiche les sequences d'heures d'une journee

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 491 fois - Téléchargée 34 fois

Contenu du snippet

Affiche les sequences d'heures d'une journee de 00:00 a 24:59.
Ca ne sert pas a grand chose mais je suis contente de l'avoir fait.

Source / Exemple :


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.

A voir également

Ajouter un commentaire Commentaires
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
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);
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Airbgat)