Времена года состоят из четырех сезонов: лето, когда дни наиболее длинные, а солнце поднимается высоко над горизонтом; зима - дни короткие, а ночи длинные; межсезонные времена года весна и осень, на которые приходится период переходной смены сезонов лета и зимы.
времена года летовремена года зима
Весна - март, апрель, май. Природа начинает пробуждение после зимней спячки, начинается период роста и цветения растений.
Лето - июнь, июль, август. Период активного размножения и роста растительного мира.
Осень - сентябрь, октябрь, ноябрь. Замедление роста, подготовка природы к зимнему сну.
Зима - декабрь, январь, февраль. Период затишья, длительного сна природы.
(для умеренного пояса, центральной части России)
Лето, сменяет прохладная осень, потом наступает зимняя стужа и после приходит долгожданная весенняя оттепель - и так бесконечное количество раз, из года в год. В чём же таинство этого природного явления и почему происходит смена времен года на Земле?
Чтобы в полной мере визуально представить картину как это происходит, стоит рассказать, как движется земной шар в космосе.
Этих движений два:
1) Земля вокруг своей оси (условной линии, проходящей через центр северного и южного полюсов) совершает за сутки полный оборот. Благодаря этому астрономическому явлению день сменяет ночь. Когда на континентах, обращённых к Солнцу, горячий полдень, на неосвещаемых континентах - глубокая ночь.
2) Земля перемещается по эллипсовидной траектории вокруг Солнца, совершая полный оборот в течение 1 года.
Const n=6; a:array[1..n] of string= ('Иванов','Петров','Сидоров','Козлов','Баранкин','Пупкин'); b:array[1..n] of real=(15,13.9,16.1,14.2,14.5,15.3); // массивы используются чтобы избежать в примере ручного ввода var i,j,k:integer; t:real; s:string; sa:array[1..n] of string; sb:array[1..n] of real; begin for i:=1 to n do begin sa[i]:=a[i]; sb[i]:=b[i] end; // сортировка по возрастанию времени for i:=1 to n-1 do for j:=1 to n-1 do if sb[j]>sb[j+1] then begin s:=sa[j]; sa[j]:=sa[j+1]; sa[j+1]:=s; t:=sb[j]; sb[j]:=sb[j+1]; sb[j+1]:=t end; // вывод for i:=1 to 4 do Writeln(sa[i],' - ',sb[i]) end.
Пример Петров - 13.9 Козлов - 14.2 Баранкин - 14.5 Иванов - 15
Четыре времени года:
Времена года состоят из четырех сезонов: лето, когда дни наиболее длинные, а солнце поднимается высоко над горизонтом; зима - дни короткие, а ночи длинные; межсезонные времена года весна и осень, на которые приходится период переходной смены сезонов лета и зимы.
времена года летовремена года зима
Весна - март, апрель, май. Природа начинает пробуждение после зимней спячки, начинается период роста и цветения растений.
Лето - июнь, июль, август. Период активного размножения и роста растительного мира.
Осень - сентябрь, октябрь, ноябрь. Замедление роста, подготовка природы к зимнему сну.
Зима - декабрь, январь, февраль. Период затишья, длительного сна природы.
(для умеренного пояса, центральной части России)
Лето, сменяет прохладная осень, потом наступает зимняя стужа и после приходит долгожданная весенняя оттепель - и так бесконечное количество раз, из года в год. В чём же таинство этого природного явления и почему происходит смена времен года на Земле?
Чтобы в полной мере визуально представить картину как это происходит, стоит рассказать, как движется земной шар в космосе.
Этих движений два:
1) Земля вокруг своей оси (условной линии, проходящей через центр северного и южного полюсов) совершает за сутки полный оборот. Благодаря этому астрономическому явлению день сменяет ночь. Когда на континентах, обращённых к Солнцу, горячий полдень, на неосвещаемых континентах - глубокая ночь.
2) Земля перемещается по эллипсовидной траектории вокруг Солнца, совершая полный оборот в течение 1 года.
n=6;
a:array[1..n] of string=
('Иванов','Петров','Сидоров','Козлов','Баранкин','Пупкин');
b:array[1..n] of real=(15,13.9,16.1,14.2,14.5,15.3);
// массивы используются чтобы избежать в примере ручного ввода
var
i,j,k:integer;
t:real;
s:string;
sa:array[1..n] of string;
sb:array[1..n] of real;
begin
for i:=1 to n do begin sa[i]:=a[i]; sb[i]:=b[i] end;
// сортировка по возрастанию времени
for i:=1 to n-1 do
for j:=1 to n-1 do
if sb[j]>sb[j+1] then begin
s:=sa[j]; sa[j]:=sa[j+1]; sa[j+1]:=s;
t:=sb[j]; sb[j]:=sb[j+1]; sb[j+1]:=t
end;
// вывод
for i:=1 to 4 do Writeln(sa[i],' - ',sb[i])
end.
Пример
Петров - 13.9
Козлов - 14.2
Баранкин - 14.5
Иванов - 15