Advertisement
Guest User

Untitled

a guest
Dec 12th, 2019
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.15 KB | None | 0 0
  1. program Laba2_1;
  2.  
  3. uses
  4. System.SysUtils;
  5. var
  6. December: array[0..30] of Integer = (1, -2, -3, +1, +3, -4, +6, -2, +3, +1, -2, -3, +1, +3, -4, +6, -2, +3, +1, -2, -3, +1, +3, -4, +6, -2, +3, -7, -8, -9, -6);
  7. January: array[0..30] of Integer = ( -7, -8, -9, -11, -13, -18, -24, -12, -12, -6, -7, -8, -9, -13, -13, -18, -24, -12, -12, -6, -7, -8, -9, -11, -13, -18, -24, -12, -12, -6, -5);
  8. February: array[0..30] of Integer = (-7, -10, -2, -14, -15, -16, -24, -12, -12, -6, -7, -8, -9, -11, -13, -18, -24, -12, -12, -6, -7, -8, -9, -11, -13, -18, -24, -6, -11, -6, -5);
  9. March: array[0..30] of Integer = (+1, -2, -3, +1, +3, -4, +6, -2, +3, +1, -2, -3, +1, +3, -4, +6, -2, +3, +1, -2, -3, +1, +3, -4, +6, -2, +3, -7, -8, -9, -6);
  10. April: array[0..29] of Integer = (+3, +4, +5, +3, +4, +5, +7, +4, +6, +6, +3, +4, +5, +3, +4, +5, +7, +4, +6, +6, +3, +4, +5, +3, +4, +5, +7, +4, +6, +6);
  11. May: array[0..30] of Integer = (+7, +8, +9, +10, +14, +12, +7, +8, +9, +10, +14, +12, +7, +8, +9, +10, +14, +12, +7, +8, +9, +10, +14, +12, +7, +8, +9, +10, +14, +12, +22);
  12. June: array[0..30] of Integer = (+7, +8, +9, +10, +14, +12, +7, +8, +9, +10, +14, +12, +7, +8, +9, +10, +14, +12, +7, +8, +9, +10, +14, +12, +7, +8, +9, +10, +14, +12, +22);
  13. July: array[0..30] of Integer = (+7, +8, +9, +10, +14, +12, +7, +8, +9, +10, +14, +12, +7, +8, +9, +10, +14, +12, +7, +8, +9, +10, +14, +12, +7, +8, +9, +10, +14, +12, +22);
  14. August: array[0..30] of Integer = (+3, +4, +5, +3, +4, +5, +7, +4, +6, +6, +3, +4, +5, +3, +4, +5, +7, +4, +6, +6, +3, +4, +5, +3, +4, +5, +7, +4, +6, +6, +7);
  15. September: array[0..29] of Integer = (-1, -2, +1, +2, +4, -1, -2, +1, +2, +4, -1, -2, +1, +2, +4, -1, -2, +1, +2, +4, -1, -2, +1, +2, +4, -1, -2, +1, +2, +4);
  16. October: array[0..30] of Integer = (-7, -8, -9, -11, -13, -18, -24, -12, -12, -6, -7, -8, -9, -13, -13, -18, -24, -12, -12, -6, -7, -8, -9, -11, -13, -18, -24, -12, -12, -6, -5);
  17. November: array[0..30] of Integer = (-7, -8, -9, -11, -13, -18, -24, -12, -12, -6, -7, -8, -9, -13, -13, -18, -24, -12, -12, -6, -7, -8, -9, -11, -13, -18, -24, -12, -12, -6, -5);
  18.  
  19. function AboveZero(Arr: array of Integer): Integer;
  20. var
  21. i: Integer;
  22. AboveZeroNum: Integer;
  23. begin
  24. Write('Your temperatures of this month: ');
  25. AboveZeroNum := 0;
  26. for i := 0 to High(Arr) do
  27. begin
  28. Write(Arr[i], ' ');
  29. if (Arr[i] < 0) then
  30. AboveZeroNum := AboveZeroNum + 1;
  31. end;
  32. Writeln('');
  33. AboveZero := AboveZeroNum;
  34. end;
  35.  
  36. procedure Main();
  37. var
  38. DaysCount: Integer;
  39. DigitF: Integer;
  40. Counter: Integer;
  41. begin
  42. while True do
  43. begin
  44. try
  45. Write('Enter days:');
  46. Readln(DaysCount);
  47. if not(DaysCount = 31) and not(DaysCount = 28) and not(DaysCount = 30)
  48. then
  49. Writeln('Month with entered number of days does not exist , enter the number of days')
  50. else
  51. break;
  52. except
  53. Writeln('Enter integer value');
  54. break;
  55. end;
  56. end;
  57. if (DaysCount = 31) then
  58. begin
  59. Writeln('1 --- March');
  60. Writeln('2 --- December');
  61. Writeln('3 --- October');
  62. Writeln('4 --- August');
  63. Writeln('5 --- July');
  64. Writeln('6 --- May');
  65. Writeln('7 --- January');
  66. Writeln('Choose 1,2,3,4,5,6 or 7 ');
  67. while True do
  68. begin
  69. try
  70. Write('Enter : ');
  71. Readln(DigitF);
  72. if (DigitF < 1) or (DigitF > 7) then
  73. Writeln('You have chosen an unknown number ,please try again ')
  74. else
  75. break;
  76. except
  77. Writeln('Enter integer value');
  78. break;
  79. end;
  80. end;
  81. case (DigitF) of
  82. 1:
  83. Counter := AboveZero(March);
  84. 2:
  85. Counter := AboveZero(December);
  86. 3:
  87. Counter := AboveZero(October);
  88. 4:
  89. Counter := AboveZero(August);
  90. 5:
  91. Counter := AboveZero(July);
  92. 6:
  93. Counter := AboveZero(May);
  94. 7:
  95. Counter := AboveZero(January);
  96. end;
  97. end;
  98. if (DaysCount = 30) then
  99. begin
  100. Writeln('1 --- September');
  101. Writeln('2 --- June');
  102. Writeln('3 --- April');
  103. Writeln('4 --- October');
  104. Writeln('Choose 1,2,3 or 4 ');
  105. while True do
  106. begin
  107. try
  108. Write('Enter : ');
  109. Readln(DigitF);
  110. if (DigitF < 1) or (DigitF > 4) then
  111. Writeln('You have chosen an unknown number ,please try again ')
  112. else
  113. break;
  114. except
  115. Writeln('Enter integer value');
  116. break;
  117. end;
  118. end;
  119. case (DigitF) of
  120. 1:
  121. Counter := AboveZero(September);
  122. 2:
  123. Counter := AboveZero(June);
  124. 3:
  125. Counter := AboveZero(April);
  126. 4:
  127. Counter := AboveZero(November);
  128. end;
  129. end;
  130. if (DaysCount = 28) then
  131. begin
  132. Writeln('February');
  133. Counter := AboveZero(February);
  134. end;
  135. Writeln('Number of days with a temperature below zero : ', Counter);
  136. Readln;
  137. end;
  138.  
  139. begin
  140. Main();
  141. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement