Advertisement
Guest User

Untitled

a guest
Jan 18th, 2019
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.54 KB | None | 0 0
  1. program project1;
  2.  
  3.  
  4.  
  5. function check(h,m:integer):boolean;
  6. begin
  7. check:=true;
  8. if not (h in [0..23])
  9. or not (m in [0..59]) then
  10. check:=false;
  11. end;
  12. Var
  13. ms,hs,rs:string;
  14. h,m:integer;
  15. begin
  16. writeln('vvedite vremya v formate hh:mm');
  17. Readln(h, m);
  18.  
  19. if not check(h, m) then
  20. repeat
  21. writeln('vvedite vremya korrectno');
  22. Readln(h, m);
  23. until check(h, m);
  24. case h of
  25. 1:hs:='второго';
  26. 2:hs:='третьего';
  27. 3:hs:='четвёртого';
  28. 4:hs:='пятого';
  29. 5:hs:='шестого';
  30. 6:hs:='седьмого';
  31. 7:hs:='восьмого';
  32. 8:hs:='девятого';
  33. 9:hs:='десятого';
  34. 10:hs:='одиннадцатого';
  35. 11:hs:='двенадцатого';
  36. 12:hs:='первого';
  37. 13:hs:='второго';
  38. 14:hs:='третьего';
  39. 15:hs:='четвёртого';
  40. 16:hs:='пятого';
  41. 17:hs:='шестого';
  42. 18:hs:='седьмого';
  43. 19:hs:='восьмого';
  44. 20:hs:='девятого';
  45. 21:hs:='десятого';
  46. 22:hs:='одиннадцатого';
  47. 23:hs:='двенадцатого';
  48. 0:hs:='первого';
  49. end;
  50.  
  51. case m of
  52. 1:ms:='одна минута ';
  53. 2:ms:='две минуты ';
  54. 3:ms:='три минуты ';
  55. 4:ms:='четыре минуты ';
  56. 5:ms:='пять минут ';
  57. 6:ms:='шесть минут ';
  58. 7:ms:='семь минут ';
  59. 8:ms:='восемь минут ';
  60. 9:ms:='девять минут ';
  61. 10:ms:='десять минут ';
  62. 11:ms:='одиннадцать минут ';
  63. 12:ms:='двенадцать минут ';
  64. 13:ms:='тринадцать минут ';
  65. 14:ms:='четырнадцать минут ';
  66. 15:ms:='пятнадцать минут ';
  67. 16:ms:='шестнадцать минут ';
  68. 17:ms:='семнадцать минут ';
  69. 18:ms:='восемнадцать минут ';
  70. 19:ms:='девятнадцать минут ';
  71. 20:ms:='двадцать минут ';
  72. 21:ms:='двадцать одна минута ';
  73. 22:ms:='двадцать две минуты ';
  74. 23:ms:='двадцать три минуты ';
  75. 24:ms:='двадцать четыре минуты ';
  76. 25:ms:='двадцать пять минут ';
  77. 26:ms:='двадцать шесть минут ';
  78. 27:ms:='двадцать семь минут ';
  79. 28:ms:='двадцать восемь минут ';
  80. 29:ms:='двадцать девять минут ';
  81. 30:ms:='половина ';
  82. 31:ms:='тридцать одна минута ';
  83. 32:ms:='тридцать две минуты ';
  84. 33:ms:='тридцать три минуты ';
  85. 34:ms:='тридцать четыре минуты ';
  86. 35:ms:='без двадцати пяти минут ';
  87. 36:ms:='тридцать шесть минут ';
  88. 37:ms:='тридцать семь минут ';
  89. 38:ms:='тридцать восемь минут ';
  90. 39:ms:='тридцать девять минут ';
  91. 40:ms:='без двадцати минут ';
  92. 41:ms:='без девятнадцати минут ';
  93. 42:ms:='без восмнадцати минут ';
  94. 43:ms:='без семнадцати минут ';
  95. 44:ms:='без шестнадцати минут ';
  96. 45:ms:='без пятнадцати минут ';
  97. 46:ms:='без четырнадцати минут ';
  98. 47:ms:='без тринадцати минут ';
  99. 48:ms:='без двенадцати минут ';
  100. 49:ms:='без одиннадцати минут ';
  101. 50:ms:='без десяти минут ';
  102. 51:ms:='без девяти минут ';
  103. 52:ms:='без восьми минут ';
  104. 53:ms:='без семи минут ';
  105. 54:ms:='без шести минут ';
  106. 55:ms:='без пяти минут ';
  107. 56:ms:='без четырёх минут ';
  108. 57:ms:='без трёх минут ';
  109. 58:ms:='без двух минут ';
  110. 59:ms:='без одной минуты ';
  111. 0:ms:='';
  112. end;
  113. if (m in [40..59]) then
  114. case h of
  115. 1:hs:='два';
  116. 2:hs:='три';
  117. 3:hs:='четыри';
  118. 4:hs:='пять';
  119. 5:hs:='шесть';
  120. 6:hs:='семь';
  121. 7:hs:='восемь';
  122. 8:hs:='девять';
  123. 9:hs:='десять';
  124. 10:hs:='одиннадцать';
  125. 11:hs:='двенадцать';
  126. 12:hs:='час';
  127. 13:hs:='два';
  128. 14:hs:='три';
  129. 15:hs:='четыре';
  130. 16:hs:='пять';
  131. 17:hs:='шесть';
  132. 18:hs:='семь';
  133. 19:hs:='восемь';
  134. 20:hs:='девять';
  135. 21:hs:='десять';
  136. 22:hs:='одиннадцать';
  137. 23:hs:='двенадцать';
  138. 0:hs:='час';
  139. end;
  140. if m=0 then
  141. case h of
  142. 1:hs:='второй час';
  143. 2:hs:='третий час';
  144. 3:hs:='четвёртый час';
  145. 4:hs:='пятый час';
  146. 5:hs:='шестой час';
  147. 6:hs:='седьмой час';
  148. 7:hs:='восьмой час';
  149. 8:hs:='девятый час';
  150. 9:hs:='десятый час';
  151. 10:hs:='одиннадцатый час';
  152. 11:hs:='двенадцатый час';
  153. 12:hs:='первый час';
  154. 13:hs:='второй час';
  155. 14:hs:='третий час';
  156. 15:hs:='четвёртый час';
  157. 16:hs:='пятый час';
  158. 17:hs:='шестой час';
  159. 18:hs:='седьмой час';
  160. 19:hs:='восьмой час';
  161. 20:hs:='девятый час';
  162. 21:hs:='десятый час';
  163. 22:hs:='одиннадцатый час';
  164. 23:hs:='двенадцатый час';
  165. 0:hs:='первый час';
  166. end else
  167. if (m in [30..39]) then
  168. case h of
  169. 1:hs:='второго';
  170. 2:hs:='третьего';
  171. 3:hs:='четвёртого';
  172. 4:hs:='пятого';
  173. 5:hs:='шестого';
  174. 6:hs:='седьмого';
  175. 7:hs:='восьмого';
  176. 8:hs:='девятого';
  177. 9:hs:='десятого';
  178. 10:hs:='одиннадцатого';
  179. 11:hs:='двенадцатого';
  180. 12:hs:='первого';
  181. 13:hs:='второго';
  182. 14:hs:='третьего';
  183. 15:hs:='четвёртого';
  184. 16:hs:='пятого';
  185. 17:hs:='шестого';
  186. 18:hs:='седьмого';
  187. 19:hs:='восьмого';
  188. 20:hs:='девятого';
  189. 21:hs:='десятого';
  190. 22:hs:='одиннадцатого';
  191. 23:hs:='двенадцатого';
  192. 0:hs:='первого';
  193. end;
  194. rs:=ms+hs;
  195. writeln(rs);
  196.  
  197.  
  198.  
  199.  
  200. readln();
  201. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement