В АВС паскале пишет ошибка: массив имеет другое количество размерностей ! Эта пример-задача из учебника 10 кл Семакин стр 179. program Example_2;
type month=array[1..12] of real;
year=array[2001..2010] of month;
var Tabl: year;
s:array[2001..2010] of real;
i,j,k: integer;
begin
for i:=2001 to 2010 do
for j:=1 to 12 do
begin
write(j:2, '.', i:4, ': ');
readln (Tabl[i,j])
end;
for i:=2001 to 2010 do
begin
s[i]:=0;
for j:=6 to 8 do
s[i]:=s[i]+Tabl l[i,j];
s[i]:=[i]/3
end;
k:=2001;
for i:=2002 to 2010 do
if s[i]>s[k] then k:=i;
writeln('ñàìîå òåïëîå ëåòî áûëî â ',k, '-ì ãîäó')
end.
Пчелиная напасть
Жил я в детстве в деревне. Всем был доволен: и рекой, и лесом, и полной свободой.
У хозяина дома, в котором мы жили, было несколько ульев с пчёлами. Пчёлы - миролюбивые существа, если их не обижать. И верно: наши пчёлы никого не кусали, не трогали.
Никого, кроме меня. Стоило мне выйти из избы, как какая-нибудь пчела обязательно меня укусит. А бывали дни, когда меня жалили и по нескольку раз.
- Балуешься ты много, - говорила мать, - вот они тебя и кусают.
- Не балуюсь, — оправдывался я. — Совсем их не трогаю.
Время шло, и не было дня, чтобы я избежал этой пчелиной напасти.
Хотел я спросить нашего хозяина, почему пчёлы меня не любят, но побоялся. А вышло так, что я всё равно не избежал разговора с хозяином.
800*600*16 (16 бит на пиксель это 65 536 цветов)=7680000 - бит информационный вес одного поля кадра.
Допустим частота обновления экрана монитора 60 Гц, тогда
7680000*60 (Гц)=460800000 бит в секунду * 60 (секунд)= 27648000000 бит - информационная емкость потока фильма в течении 1 минуты.
Постичаем в байтах
27648000000/8/1024/1024/1024=3.2186 Гигабайт - объём информационного потока
Задача №3
за одну секунду пройдет 36 мегабайт
2 часа = 7200 секунд *36=259200 мегабайт=253.12 Гбайт
Подробнее - на -