fork(1) download
copy 
  1. program L4A2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8.  
  9. {Hotp – часы и Motp – минуты. Известно время в пути: Hp – часы и Mp – минуты.
  10. Четыре целых числа – часы и минуты отправления поезда, а также часы и минуты продолжительности поездки.
  11. Выходные данные
  12. Время прибытия: «HH час. : MM мин.»
  13. количество полных суток – целое число.  }
  14.  
  15. var Hotp, Motp, Mp, Hp, Days, Hours, Min: integer;
  16.  
  17. {Считывание данных}
  18. procedure input(var Hotp, Motp, Hp, Mp:integer);
  19. begin
  20.   readln(Hotp);
  21.   readln(Motp);
  22.   readln(Hp);
  23.   readln(Mp);
  24. end;
  25.  
  26. {Вычисление количества дней}
  27. function getDays(Hp, Mp:integer):integer;
  28. begin
  29.    result:= (Hp*60+Mp) div 1440;
  30. end;
  31.  
  32. {Вычислеиие времени прибытия в часах}
  33. function getTimeH(Hotp, Motp, Hp, Mp:integer):integer;
  34. var tempH, tempM:integer;
  35. begin
  36.    tempH:=Hotp+Hp;
  37.    tempM:=Motp+Mp;
  38.    if (tempM >= 60) then
  39.    begin
  40.      while tempM >= 60 do
  41.      begin
  42.        tempH:=tempH+1;
  43.        tempM:=tempM-60;
  44.      end;
  45.    end;
  46.    if (tempH >= 24) then
  47.    begin
  48.      while (tempH >= 24) do
  49.      begin
  50.        tempH:=tempH-24;
  51.        result:=tempH;
  52.      end;
  53.    end
  54.    else result:=tempH;
  55. end;
  56.  
  57. {Вычисление времени прибытия в минутах}
  58. function getTimeM(Motp, Mp:integer):integer;
  59. var tempM:integer;
  60. begin
  61.   tempM:=Motp+Mp;
  62.   if (tempM >= 60) then
  63.   begin
  64.     while tempM >= 60 do
  65.     begin
  66.       result:=tempM-60;
  67.     end;
  68.   end
  69.   else result:= tempM;
  70. end;
  71.  
  72. {Выводит результа}
  73. procedure output(Min, Hours, Days:integer);
  74. begin
  75.   if (Min > 9) and (Hours > 9)
  76.   then
  77.     begin
  78.       writeln(Hours,' hours : ',Min,' minutes');
  79.       writeln(Days,' days');
  80.     end
  81.   else
  82.     if (Min > 9) and (Hours < 10)
  83.     then
  84.       begin
  85.         writeln('0',Hours,' hours : ',Min,' minutes');
  86.         writeln(Days,' days');
  87.       end
  88.     else
  89.       if ( Min < 10) and (Hours < 10)
  90.       then
  91.         begin
  92.           writeln('0',Hours,' hours : ','0',Min,' minutes');
  93.           writeln(Days,' days');
  94.         end
  95.       else
  96.         begin
  97.           writeln(Hours,' hours : ','0',Min,' minutes');
  98.           writeln(Days,' days');
  99.         end
  100. end;
  101.  
  102. begin
  103.   input(Hotp, Motp, Hp, Mp);
  104.   Days:=getDays(Hp, Mp);
  105.   Hours:=getTimeH(Hotp, Motp, Hp, Mp);
  106.   Min:=getTimeM(Motp, Mp);
  107.   output(Min, Hours, Days);
  108.   readln();
  109. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.pas:3: warning: unknown compiler directive `apptype console'
prog.pas:6: error: module/unit interface `SysUtils' could not be imported
stdout
copy 
Standard output is empty
https://ideone.com/KWanlM
language:
Pascal (gpc 20070904)
created:
10 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!