Ada

[Ada][per cent] calcul du pourcenage

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Ada][per cent] calcul du pourcenage

lady287

Bonjour,

Je pensais avoir 0.0 dans la liste des pourcenages alors que j'ai une de valeurs égale à 7.14.

J'ai beau relire le code, je vois encore pas ce qui va pas.

Merci pour votre aide.

Code :

type Log_Enum is (None, Organizer, Computer, Planning, Makefile, 
             Manpage, Project, HOWTO, HISTORY, Test, 
             Moneybox, Activity, Stocks, Bank);
   
   type Session_Record is
      record
     Top : Time := Clock;
     Bot : Time := Clock;
      end record;
   
   procedure Open (Session : in out Session_Record);
   procedure Close (Session : in out Session_Record);
   
   type Session_Array is array (Log_Enum) of Session_Record;
   
   type Rate_Type is delta 0.01 digits 5 range 0.0..100.0;
   
   type Log_Record is
      record
     Total : Long_Long_Float := 0.0;
     Rate  : Rate_Type := 0.0;
      end record;
   
   type Log_Array is array (Log_Enum) of Log_Record;
   
   procedure Statistic (Sessions : in Session_Array; Logs : in out Log_Array);

Code :

procedure Statistic (Sessions : in Session_Array; Logs : in out Log_Array) is
      Total : Long_Long_Float := 0.0;
   begin
      for Session in Sessions'Range loop
     if Sessions(Session).Bot > Sessions(Session).Top then
        declare
           Elapsed : constant Duration := Sessions(Session).Bot - Sessions(Session).Top;
        begin
           if Elapsed > 1.0 then
          Logs(Session).Total := Logs(Session).Total + Long_Long_Float(Elapsed);
          Total := Total + Logs(Session).Total;
           end if;
        end;
     end if;
      end loop;
          
      for Log in Logs'Range loop
     if Logs(Log).Total /= 0.0 then
        Logs(Log).Rate := Rate_Type((Logs(Log).Total / Total) * 100.0);
     else
        Logs(Log).Rate := 0.0;
     end if;
      end loop;
      
   end Statistic;

Publicité

lady287

Ca y est j'ai trouvé.

J'initialize à 1970 est quand je ferme la sessions j'affecte clock à Bot alors que top est pas à jour.

Ce qui fait une sacret difference.

lady287

[:oh shi-] Du coup ce code provoque une divvision par zéro.

lady287

Ca y est !

Code :

with Ada.Calendar;
use Ada.Calendar;
 
package Sky.Logs is
   
   type Log_Enum is (None, Organizer, Computer, Planning, Makefile, 
             Manpage, Project, HOWTO, HISTORY, Test, 
             Moneybox, Activity, Stocks, Bank);
   
   type Session_Record is
      record
     Top : Time := Time_Of(2399, 12, 31, 86399.99);
     Bot : Time := Clock;
      end record;
   
   procedure Open (Session : in out Session_Record);
   procedure Close (Session : in out Session_Record);
   
   type Session_Array is array (Log_Enum) of Session_Record;
   
   type Rate_Type is delta 0.01 digits 5 range 0.0..100.0;
   
   type Log_Record is
      record
     Total : Long_Long_Float := 0.0;
     Rate  : Rate_Type := 0.0;
      end record;
   
   type Log_Array is array (Log_Enum) of Log_Record;
   
   procedure Statistic (Sessions : in out Session_Array; Logs : in out Log_Array);
   
   procedure Save (Logs : in Log_Array; Filename : in String);
   procedure Restore (Logs : out Log_Array; Filename : in String);
   
   
   Log_Filename : constant String := "sky-logs.txt";
 
end Sky.Logs ;

Code :

with Ada.Text_Io;
use Ada.Text_Io;
with Ada.Calendar.Formatting;
package body Sky.Logs is
   procedure Open (Session : in out Session_Record) is
   begin
      Session.Top := Clock;      
   end Open;
     
   procedure Close (Session : in out Session_Record) is
   begin
 
      Session.Bot := Clock;      
   end Close;
   
   Total : Long_Long_Float := 0.0;
   
   procedure Statistic (Sessions : in out Session_Array; Logs : in out Log_Array) is
      
      Sum : Long_Long_Float := 0.0;
   begin
      
    for Session in Sessions'Range loop
       
      if Sessions(Session).Bot > Sessions(Session).Top then
 
        declare
           Elapsed : constant Duration := Sessions(Session).Bot - Sessions(Session).Top;
        begin
           
           
           if Elapsed > 0.0 then
          
          Logs(Session).Total := Logs(Session).Total + Long_Long_Float(Elapsed);
          
          Total := Total + Logs(Session).Total;
          
          Sessions(Session).Top := Time_Of(2399, 12, 31, 86399.99);
          
           end if;
        end;
     end if;
    end loop;
    
    if Total > 0.0 then
       
       for Log in Logs'Range loop
          
          if Logs(Log).Total >= 1.0 then
         
         Sum := Logs(Log).Total / Total;
         
         Logs(Log).Rate := Rate_Type(Sum * 100.0);
         
          else
         Logs(Log).Rate := 0.0;
          end if;
       end loop;      
    end if;
 
   end Statistic;
   
   procedure Save (Logs : in Log_Array; Filename : in String) is
      File : File_Type;
   begin
      begin
     Open(File, Out_File, Filename);
      exception
     when others =>
        Create(File, Out_File, Filename);
      end;
      for log in Logs'Range loop
     Put_Line(File, Long_Long_Float'Image(Logs(Log).Total));
     Put_Line(File, Rate_Type'Image(Logs(Log).Rate));
      end loop;
      Close(File);
   end Save;
      
      
   procedure Restore (Logs : out Log_Array; Filename : in String) is
      File : File_Type;
   begin
      Open(File, In_File, Filename);
      for Log in Logs'Range loop
     if not End_Of_File(File) then
        Logs(Log).Total := Long_Long_Float'Value(Get_Line(File));
        Logs(Log).Rate := Rate_Type'Value(Get_Line(File));
        Total := Total + Logs(Log).Total;
     end if;
      end loop;
      Close(File);
   end Restore;
 
end Sky.Logs ;

FORUM HardWare.fr

Programmation

Ada

[Ada][per cent] calcul du pourcenage

Sujets relatifs
[Ada][computerman/Skywalker]Outil de développement pour le langage Ada	Question vitesse calcul
[Ada][Adacore] Problème d'édition de lien avec GPS	calcul à virgule fixe, résolution et interpolation linéaire
[Divers] Calcul Clé Modulo	[Ada] Ecrire un programme de gestion de valeur en ligne de commande
C# - comment faire un algorithme de calcul de parité d'un octet	calcul le frais total
UPDATE sql avec calcul de la valeur à modifier	WGS84 : calcul point d'intersection de 2 segments en 3D (lat/lng/alt)
Plus de sujets relatifs à : [Ada][per cent] calcul du pourcenage

Page générée en 0.068 secondes