PDA

View Full Version : mala pommoc


armix
05.11.2003., 18:39
Učitati dva vremena u obliku sati,minuti i sekundi i naci njihovu razliku ispisati je u satama minutama i sekundama.

IZVINJAVAM SE STO VAS OMETAM;pa ako neko moze do petka.

HVAlA

armix
05.11.2003., 19:11
ali fazon je da ako broj sekundi prede 60 da se automatski prebaci na minute...
mozeli

if x>60 then ...

program se radi u pascalu

nes sam ja bio odradio al mi nestima bas najbolje

leo
05.11.2003., 19:28
posalji sta si do sada napravia

armix
05.11.2003., 20:19
program s_m_s (input,output);
var h,m,s:integer;
h1,m1,s1:integer;
h2,m2,s2:integer;
begin
writeln ('Unesi prvo vrijeme u obliku h,m,s');
read (h);
writeln ('Unesi sate',h:5);
read (m);
Writeln ('unesi minute',m:5);
read (m);
writeln ('Unesi sekunde ',s:5);

writeln ('Unesi drugo vrijeme u obliku h1,m1,s1');
read (h1);
writeln ('Unesi sate',h1:5);
read (m1);
Writeln ('unesi minute',m1:5);
read (s1);
writeln ('Unesi sekunde ',s1:5);

h2:=h-h1;
m2:=m-m1;
s2:=s-s1 ;
writeln ('Rezultat je:');
writeln ('h',h2:5);
writeln ('m',m2:5);
writeln ('s',s2:5);

end.









:s
e ovo sam odradio na brzinu,za dvi tri minute ne obracaj paznju na ove komentare,(text).
mozda ja i skontam al za svaki slucaj nek mi neko pomoggne

treba sad pri ispisu da prebaci vise od 60 sekundi u minute i tako dalje minute u sate....ja cu pokusati to veceras da urradim ali za slucaj da neuspijem ;moolim i za vasu pomoc :s

:s

armix
05.11.2003., 20:30
if s2 > 59 then m2:=s2-59 ;

MaxB
05.11.2003., 22:49
A sto kazes na ovo:
t1 := s1 + 60*m1+ 60*60*h1;
t2 := s2 + 60*m2+ 60*60*h2;

Delta := t1 - t2;
if Delta < 0 then Delta := Delta * -1;

// i sad tu Deltu prebacis u H:M:S onako kako smo ti to pokazali za prosli tvoj problem