6.4.. Putovanje traje n sekundi. Izrańćunaj koliko je to sati, minuta i sekundi.

Opis rješenja: Sat ima 3600 sekundi. Dijeljenjem vremena u sekundama sa 3600 dobijamo sate sat := n DIV 3600. Ostatak sekundi (sek1) se dijeli sa 60 i dobijamo minute, a ostatak dijeljenja sek1 sa 60 su sekunde.

Opis programa:

Listing programa:

PROGRAM p06412012;
USES
  WinCRT;
VAR 
   n, sat, min, sek1, sek :  integer;
BEGIN
  Write('Proteklo sekundi: ');
  Readln (n);
  sat := n DIV 3600;
  sek1  := n MOD 3600;
  min := sek1 DIV 60;
  sek := sek1 MOD 60;
  Writeln('Proteklo ', sat:3,' sati', min:6,' ',' minuta',' i', sek:4, ' ',' sekundi');
END.

Ispis na ekranu:

Index

Funkcije DIV i MOD sa primjerima
Dijeljenja sa 2
Ostatka dijeljenja sa 2
Dijeljenje sa 10 i 100
Sekunde u sate, minute i sekunde

Index