Algorithme Fermé

Question

Bonjour, 
je suis étudiante en Informatique  à l'institut nigérien d'enseigne, technologique au NIGER je voudrais une résolution de mes exercices d'algorithme 


Configuration: Windows XP / Firefox 5.0

nicocorico · Answer

ici, on ne donne que des conseils, en programmation il faut avant tout comprendre par soi-même, ou passer son chemin...

femme · Answer

écrire un algorithme qui permettant de convertir un temps donné en  heures ; minutes et secondes

nicocorico · Answer

Franchement, c'est très facile, puisqu'il suffit de diviser par 60...

metarefsalem · Answer

Ce programme en Pascal répond à votre question essayez de vous en inspirer.
Bonne chance.

program Conversion;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function Convertir(Temps, Parametre : Cardinal) : Cardinal;
var X, P, U : Cardinal;
begin
X := Temps;
P := Parametre;
U := 0;
while X >= P do begin
U := U + 1;
X := X - P;
end;
Result := U;
end;

var Temps : Cardinal;
Reste : Cardinal;
H, Min, Sec, Parametre : Cardinal;

begin

// Le temps donné est supposé en Secondes

WriteLn('Entrez la valeur a convertir');
ReadLn(Temps);

parametre := 3600;

H := Convertir (Temps, Parametre);
Reste := Temps - (H * 3600);

Parametre := 60;
Min := Convertir (Reste, Parametre);
Sec := Reste - (Min * 60);

WriteLn('Heures : ', H);
WriteLn('Minutes : ', Min);
WriteLn('Secondes : ', Sec);

ReadLn;

{ TODO -oUser -cConsole Main : placez le code ici }
end.

nicocorico · Answer

Je me permet un petit commentaire sur ce programme:   
Dans l'appel d'une fonction, les paramètres sont transférés tant que possible par les registres, il est donc inutile et lourd de les recharger dans des variables locales, idem pour le résultat... La fonction devient ainsi:   

function Convertir(Temps, Parametre : Cardinal) : Cardinal;    
begin    
  Result := 0;    
  while Temps >= Parametre do    
  begin    
     Result := Result + 1;    
     Temps:= Temps - Parametre;     
  end;    
end;   
De plus, une simple division remplace aisément la boucle, à condition de compléter avec un Mod dans l'appelant:   

function Convertir(Temps, Parametre : Cardinal) : Cardinal;    
begin    
  If Parametre > 0 then  Result := Temps div Parametre else Result:= 0;    
end;    
Idem pour le corps, il est inutile de passer par des variables, et même par la fonction, et la fonction Mod est plus élégante, le programme devient alors :  
program Conversion;    

{$APPTYPE CONSOLE}    

uses  SysUtils;    
var Temps : Cardinal;    

begin    
// Le temps donné est supposé en Secondes    

  WriteLn('Entrez la valeur a convertir');    
  ReadLn(Temps);    

  WriteLn('Heures : ', Temps div 3600);    
  WriteLn('Minutes : ', (Temps div 60) mod 60);    
  WriteLn('Secondes : ', Temps mod 60);    

  ReadLn;    
end.

Algorithme

5 réponses

Discussions similaires