fork download 
  1. program ideone;
  2. 	var a,b,c,d,e : integer;
  3. 	var ds,v,m : integer;
  4.  
  5. 	// funkcija grazina longint, nes integer yra permazas (-32768 to 32767)
  6. 	function toMinutes(days, hours, minutes : integer) : longint;  
  7. 	var minInDay, minInHour : integer; 
  8. 	begin
  9. 		minInDay:= 1440;
  10. 		minInHour:= 60;
  11.  
  12. 		toMinutes:= days*minInDay + hours*minInHour + minutes;
  13. 	end;
  14.  
  15. begin
  16. 	// imituoju nuskaityma is failo
  17. 	a:=28;
  18. 	b:=15;
  19. 	c:=15;
  20. 	d:=48;
  21. 	e:=01;
  22. 	ds:=30;
  23. 	v:=15;
  24. 	m:=15;
  25. 	// keliones laikas
  26. 	b:= b + d;
  27. 	c:= c + e;
  28. 	// paverciam minutes i valandas
  29. 	b:= b + c div 60;
  30. 	c:= c mod 60;
  31. 	// paverciam valandas i dienas
  32. 	a:= a + b div 24;
  33. 	b:= b mod 24;
  34.  
  35. 	writeLn('Atvyks: ', a, 'd ', b, 'h ', c, 'min', ' | minutes: ', toMinutes(a,b,c));
  36. 	writeLn('Susitikimas: ', ds, 'd ', v, 'h ', m, 'min', ' | minutes: ', toMinutes(ds,v,m));
  37. 	writeLn();
  38.  
  39. 	// Patikra su if
  40. 	if ((a<ds) OR ((a=ds) AND (b<v)) OR ((a=ds) AND (b=v) AND (c<=m)))
  41.       then WriteLn('If check: Taip')
  42.       else WriteLn('If check: Ne');
  43.  
  44.     // Patikra su minutemis
  45.     if (toMinutes(a,b,c) <= toMinutes(ds,v,m))
  46.       then WriteLn('Minutes check: Taip')
  47.       else WriteLn('Minutes check: Ne');
  48. end.
Success #stdin #stdout 0s 276KB
comments (?)
stdin 
Standard input is empty
stdout 
Atvyks: 30d 15h 16min | minutes: 44116
Susitikimas: 30d 15h 15min | minutes: 44115

If check: Ne
Minutes check: Ne
https://ideone.com/7d3Ofc
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!