Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Laba2_1;
- uses
- System.SysUtils;
- var
- 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);
- 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);
- 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);
- 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);
- 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);
- 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);
- 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);
- 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);
- 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);
- 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);
- 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);
- 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);
- function AboveZero(Arr: array of Integer): Integer;
- var
- i: Integer;
- AboveZeroNum: Integer;
- begin
- Write('Your temperatures of this month: ');
- AboveZeroNum := 0;
- for i := 0 to High(Arr) do
- begin
- Write(Arr[i], ' ');
- if (Arr[i] < 0) then
- AboveZeroNum := AboveZeroNum + 1;
- end;
- Writeln('');
- AboveZero := AboveZeroNum;
- end;
- procedure Main();
- var
- DaysCount: Integer;
- DigitF: Integer;
- Counter: Integer;
- begin
- while True do
- begin
- try
- Write('Enter days:');
- Readln(DaysCount);
- if not(DaysCount = 31) and not(DaysCount = 28) and not(DaysCount = 30)
- then
- Writeln('Month with entered number of days does not exist , enter the number of days')
- else
- break;
- except
- Writeln('Enter integer value');
- break;
- end;
- end;
- if (DaysCount = 31) then
- begin
- Writeln('1 --- March');
- Writeln('2 --- December');
- Writeln('3 --- October');
- Writeln('4 --- August');
- Writeln('5 --- July');
- Writeln('6 --- May');
- Writeln('7 --- January');
- Writeln('Choose 1,2,3,4,5,6 or 7 ');
- while True do
- begin
- try
- Write('Enter : ');
- Readln(DigitF);
- if (DigitF < 1) or (DigitF > 7) then
- Writeln('You have chosen an unknown number ,please try again ')
- else
- break;
- except
- Writeln('Enter integer value');
- break;
- end;
- end;
- case (DigitF) of
- 1:
- Counter := AboveZero(March);
- 2:
- Counter := AboveZero(December);
- 3:
- Counter := AboveZero(October);
- 4:
- Counter := AboveZero(August);
- 5:
- Counter := AboveZero(July);
- 6:
- Counter := AboveZero(May);
- 7:
- Counter := AboveZero(January);
- end;
- end;
- if (DaysCount = 30) then
- begin
- Writeln('1 --- September');
- Writeln('2 --- June');
- Writeln('3 --- April');
- Writeln('4 --- October');
- Writeln('Choose 1,2,3 or 4 ');
- while True do
- begin
- try
- Write('Enter : ');
- Readln(DigitF);
- if (DigitF < 1) or (DigitF > 4) then
- Writeln('You have chosen an unknown number ,please try again ')
- else
- break;
- except
- Writeln('Enter integer value');
- break;
- end;
- end;
- case (DigitF) of
- 1:
- Counter := AboveZero(September);
- 2:
- Counter := AboveZero(June);
- 3:
- Counter := AboveZero(April);
- 4:
- Counter := AboveZero(November);
- end;
- end;
- if (DaysCount = 28) then
- begin
- Writeln('February');
- Counter := AboveZero(February);
- end;
- Writeln('Number of days with a temperature below zero : ', Counter);
- Readln;
- end;
- begin
- Main();
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement