[Delphi] Div / Mod - Zeiten addieren

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von didda, 4. November 2006 .

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 4. November 2006
    Div / Mod - Zeiten addieren

    JO moin, hab als hausaufgabe bekommen kleines Pascal-Programm zu schreiben in dass man Zeiten eingibt und das soll die dann addieren, das Prog hab ich, seht ihr hier:
    Code:
    program zeiten_prozedur_2;
    
    {$APPTYPE CONSOLE}
    
    uses
     SysUtils;
    
    var
     m_sum, m_uebertrag, s_sum, s1, s2, m1, m2, d_sum: integer;
    
    procedure add_times(s1, m1, s2, m2: integer; var s_sum, m_sum,d_sum: integer);
    begin
    
     m_sum := (m1 + m2) mod 60;
     m_uebertrag := (m1 + m2) div 60;
     s_sum := s1 + s2 + m_uebertrag;
     d_sum := s_sum div 24;
    
    end;
    
    begin
     write('Gib die Stunden der ersten Zeit ein: ');
     readln(s1);
     Write('Gib die Minuten der ersten Zeit ein: ');
     readln(m1);
     write('Gib die Stunden der zweiten Zeit ein: ');
     readln(s2);
     Write('Gib die Minuten der zweiten Zeit ein: ');
     readln(m2);
     add_times(s1, m1, s2, m2, s_sum, m_sum,d_sum);
     write('Es sind insgesamt ',d_sum,' Tage,', s_sum, ' Stunden und ', m_sum, ' Minuten');
     readln;
    end.
    so, das dumme is ja dann halt, wenn ich zb 12:13 und 13:12 addiere komm ich auf 25 stunden und 25 minuten, nu will ich noch einbauen dass das Prog mir wenn die stunden über 24 sind es mit div halt noch die anzahl der tage daraus macht, klappt auch soweit, nur hab ich dann 1 tag, 25 stunden und 25 minuten, also irgendwas hab ich da vergessen oder? o_O
     

  2. Anzeige
  3. #2 4. November 2006
    AW: Div / Mod - Zeiten addieren

    jo, du sagst es doch selbst - du hast 25 stunden. davon musste noch anzahl tage * 24 abziehen.
     
  4. #3 4. November 2006
    AW: Div / Mod - Zeiten addieren

    thema erledigt, ich hab einfach nur s_sum := d_sum mod 24; vergessen -.-
     

  5. Videos zum Thema
Die Seite wird geladen...