DUzun's Web
Programare, proiecte personale, divertisment

program p21_129;

uses crt;

type timp=record

       s,m,o,z,p:integer;

     end;

​

function ts(t:timp):longint;

begin

 with t do ts:=s+m*60+o*3600+z*86400+p*604800;

end;

​

procedure st(l:longint;var t:timp);

begin

 with t do begin

  s:=l mod 60;   l:=l div 60;

  m:=l mod 60;   l:=l div 60;

  o:=l mod 24;   l:=l div 24;

  z:=l mod 7;    l:=l div 7;

  p:=l;

 end;

end;

​

function tostr(b:integer):string;

var s:string;

begin

 str(b,s);

 if length(S)=1 THEN s:='0'+s;

 tostr:=s;

end;

​

procedure timpIn(var t:timp);

begin

 with t do begin

  write('Sec: ');readln(s);

  write('Min: ');readln(m);

  write('Ore: ');readln(o);

  write('Zil: ');readln(z);

  write('Sap: ');readln(p);

 end;

 st(ts(t),t);

end;

​

Function TimpToStr(t:timp):string;

var SZ:string;

begin

 Str(T.Z,SZ);

 with t do tIMPtOsTR:=tOsTR(p)+'.'+sz+', '+tostr(o)+':'+tostr(m)+':'+tostr(s);

end;

​

function SecToStr(l:longint):string;

VAR   t:timp;

begin

 st(l,t);

 SecToStr:=TimpToStr(t);

end;

​

procedure timpOut(t:timp);

begin

 Write(SecToStr(TS(t)));

end;

​

var t1,t2:timp;n:INTEGER;

begin

clrscr;

writeln('Introdu timpul:');

writeln('T1'); timpIn(t1);

writeln('T2'); timpIn(t2);

writeln;

write('n=');Readln(n);

clrscr;

writeln('T1: '+TimpToStr(t1));

writeln('T2: '+TimpToStr(t2));

writeln('n=',n);

writeln;

writeln('a) T1 + T2:   ',SecToStr(ts(t1)+ts(t2)));

writeln('b) T1 - T2:   ',SecToStr(ts(t1)-ts(t2)));

writeln('c)  n * T1:   ',SecToStr(n*ts(t1)));

writeln('d) T1 mod T2: ',SecToStr(ts(t1)mod ts(t2)));

WriteLn('e)');

WriteLn('   T1>T2: ',TS(t1)>TS(t2));

WriteLn('   T1<T2: ',TS(t1)<TS(t2));

WriteLn('   T1=T2: ',TS(t1)=TS(t2));

readkey

end.

​