// PascalABC.NET 3.1, сборка 1267 от 10.07.2016 const k=4; //количество классов u=18; // количество учеников в классе var a:array[1..k,1..u] of real; // массив с ростом n:array[1..k] of integer; // массив результатов i,j:integer; // счетчики циклов m:real; // средний рост ученика в классе begin for i:=1 to k do begin Writeln('Введите рост учеников ',i,'-го из классов'); m:=0; for j:=1 to u do begin Read(a[i,j]); m:=m+a[i,j] end; m:=m/u; n[i]:=0; for j:=1 to u do if abs(a[i,j]-m)>5.0 then Inc(n[i]); end; Writeln('Количество учеников с ростом, отличающимся от среднего'); Writeln('по каждому из классов более, чем на 5'); for i:=1 to k do Write(n[i]:5) end.
Пример решения для упрощенного случая, когда в классе на 18, а 5 учеников (чтобы меньше набирать) Введите рост учеников 1-го из классов 168 174 181 172 175 Введите рост учеников 2-го из классов 162 173 170 158 183 Введите рост учеников 3-го из классов 157 185 159 168 167 Введите рост учеников 4-го из классов 170 173 176 168 171 Количество учеников с ростом, отличающимся от среднего по каждому из классов более, чем на 5 2 3 3 0
Откуда берутся снежинки? Ребенок сам даст ответ: из облаков. А вот что происходит в этих «фабриках снега»? Облако, как все знают, этот просто скопления великого множества микроскопических капелек воды. Есть там и частицы пыли. Капли притягиваются к ним и примерзают в виде крохотных иголочек льда.
Этот кристаллик больше обычной капли и потому тяжелее. Из-за этого он выпадает из облака и летит вниз. Но ведь по пути, в воздухе тоже есть частицы влаги. И на падающем кристалле оседают новые иголочки. Они отрастают в стороны от кончиков кристалла. Пока снежинка долетит до земли, она становится красивой ветвистой звездочкой.
На пути к земле
В пути, пролетая через более теплые слои воздуха, они могут подтаивать, а потом снова нарастать. Форма кристалла зависит и от давления воздуха, ветра, от столкновений друг с другом. Часто несколько снежинок в пути слипаются или, наоборот, разламываются. Не будем углубляться в физику. Поверьте на слово ученым: двух совершенно одинаковых снежинок не бывает.
Если у вас дома есть хотя бы небольшая лупа, рассмотрите с ребенком снежинки, упавшие на варежку. Форма их может быть очень разной: пластинки с лучами на концах, 12- лучевые звезды, столбики с коронами, ежики, бокалы на ножках. В коллекциях специалистов – тысячи фотографий снежинок разной формы. В Японии есть даже музей снежинок. Замечательными фотогалереями снежинок вы можете полюбоваться на сайте SnowCrystals.com.
Осторожно – снежинка!
Обычно снежинка не больше клеточки в школьной тетради и очень легкая – 250 снежинок весит всего один грамм. Но и здесь есть свои рекорды: самую большую снежинку обнаружили в штате Монтана (США) в январе 1887 года. Вы не поверите – она была размером побольше стандартного листа А4! В 1944 г. в Москве выпадали снежные хлопья размером с блюдце.
Осталось несколько вопросов попроще. Почему снег скрипит, если по нему едешь на санках, или хрустит, когда просто идешь или лепишь снежки? Это шум от того, что ломаются и трутся друг о друга тысячи крошечных кристалликов льда. А отчего снежинки и снег – белого цвета? Его придают крошечные пузырьки воздуха, которые вмерзли в кристаллы.
Почему снег становится твердым, когда полежит? Солнце плавит верхний слой пушистого снега, превращая его в воду. А холодный воздух замораживает его снова. Такая корка на снегу называется настом.
Конечно, твердый наст не такой красивый и приятный, как пушистый снежок. Снежинок не разглядишь, снеговиков не полепишь. Но зато он говорит нам: «Тепло ушло ненадолго! Весна не за горами!»
const
k=4; //количество классов
u=18; // количество учеников в классе
var
a:array[1..k,1..u] of real; // массив с ростом
n:array[1..k] of integer; // массив результатов
i,j:integer; // счетчики циклов
m:real; // средний рост ученика в классе
begin
for i:=1 to k do begin
Writeln('Введите рост учеников ',i,'-го из классов');
m:=0;
for j:=1 to u do begin Read(a[i,j]); m:=m+a[i,j] end;
m:=m/u;
n[i]:=0;
for j:=1 to u do
if abs(a[i,j]-m)>5.0 then Inc(n[i]);
end;
Writeln('Количество учеников с ростом, отличающимся от среднего');
Writeln('по каждому из классов более, чем на 5');
for i:=1 to k do Write(n[i]:5)
end.
Пример решения для упрощенного случая, когда в классе на 18, а 5 учеников (чтобы меньше набирать)
Введите рост учеников 1-го из классов
168 174 181 172 175
Введите рост учеников 2-го из классов
162 173 170 158 183
Введите рост учеников 3-го из классов
157 185 159 168 167
Введите рост учеников 4-го из классов
170 173 176 168 171
Количество учеников с ростом, отличающимся от среднего
по каждому из классов более, чем на 5
2 3 3 0
Откуда берутся снежинки? Ребенок сам даст ответ: из облаков. А вот что происходит в этих «фабриках снега»? Облако, как все знают, этот просто скопления великого множества микроскопических капелек воды. Есть там и частицы пыли. Капли притягиваются к ним и примерзают в виде крохотных иголочек льда.
Этот кристаллик больше обычной капли и потому тяжелее. Из-за этого он выпадает из облака и летит вниз. Но ведь по пути, в воздухе тоже есть частицы влаги. И на падающем кристалле оседают новые иголочки. Они отрастают в стороны от кончиков кристалла. Пока снежинка долетит до земли, она становится красивой ветвистой звездочкой.
На пути к земле
В пути, пролетая через более теплые слои воздуха, они могут подтаивать, а потом снова нарастать. Форма кристалла зависит и от давления воздуха, ветра, от столкновений друг с другом. Часто несколько снежинок в пути слипаются или, наоборот, разламываются. Не будем углубляться в физику. Поверьте на слово ученым: двух совершенно одинаковых снежинок не бывает.
Если у вас дома есть хотя бы небольшая лупа, рассмотрите с ребенком снежинки, упавшие на варежку. Форма их может быть очень разной: пластинки с лучами на концах, 12- лучевые звезды, столбики с коронами, ежики, бокалы на ножках. В коллекциях специалистов – тысячи фотографий снежинок разной формы. В Японии есть даже музей снежинок. Замечательными фотогалереями снежинок вы можете полюбоваться на сайте SnowCrystals.com.
Осторожно – снежинка!
Обычно снежинка не больше клеточки в школьной тетради и очень легкая – 250 снежинок весит всего один грамм. Но и здесь есть свои рекорды: самую большую снежинку обнаружили в штате Монтана (США) в январе 1887 года. Вы не поверите – она была размером побольше стандартного листа А4! В 1944 г. в Москве выпадали снежные хлопья размером с блюдце.
Осталось несколько вопросов попроще. Почему снег скрипит, если по нему едешь на санках, или хрустит, когда просто идешь или лепишь снежки? Это шум от того, что ломаются и трутся друг о друга тысячи крошечных кристалликов льда. А отчего снежинки и снег – белого цвета? Его придают крошечные пузырьки воздуха, которые вмерзли в кристаллы.
Почему снег становится твердым, когда полежит? Солнце плавит верхний слой пушистого снега, превращая его в воду. А холодный воздух замораживает его снова. Такая корка на снегу называется настом.
Конечно, твердый наст не такой красивый и приятный, как пушистый снежок. Снежинок не разглядишь, снеговиков не полепишь. Но зато он говорит нам: «Тепло ушло ненадолго! Весна не за горами!»