Глава 3.Моделирование Практическая работа №9. Броуновское движение
1)
Работа в группах. Группы должны состоять из 3-5 человек. Каждый из вас проведёт эксперимент
с математической моделью броуновского движения для одного значения температуры (-200°С,
-100°С, 0°С, 100°С, 200°С).
Уровень A:
2)
Перейдите в каталог 9-brown. Откройте в браузере тренажёр brown. html.
3)
Выберите нужное значение температуры и проведите 5-6 сеансов моделирования по 30 секунд.
После каждого сеанса моделирования записывайте длину пути, который частица.
4)
Найдите среднее арифметическое полученных значений.
Уровень B:
5)
Объедините данные всех членов группы и постройте в электронных таблицах график
зависимости длины пути частицы от температуры.
Уровень C:
6)
Выполните задание 9 в рабочей тетради.

половина байта, так как одно поле может принимать только 1 из 2 значений, тоесть 1 клетка 1 бит. так как клеток 4, сталобыть это 4 бит. так как 1 байт = 8 бит то 4 бита это половина байта

program xxx;

  var i, n, s, k : integer;

                        a : array [1..20] of integer;

begin

  write('введите n=');

  readln(n)

  writeln('введите элементы массива а: ' );

  for i: =1 to n do

        readln(a[i]);

  s: =0;

  k: =0;

  for i: =1 to n do

      if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;

  if k=0 then write ('элементов кратных 8 - нет')

                      else write('сумма элементов кратных 8 =', s);

  readln

end.

у меня тоже даша получилось))

2)

var a,b,c: integer;

begin

  read(a,b,c);

  writeln('3 - ',100-a-b-c);

end.

3) много писанины. вообщем длина стороны считается d: =sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))

площадь находится по формуле герона

4)var a: integer;

begin

  read(a);

  writeln('plowad grani = ',a*a);

  writeln('plowad polnoj pov= ',a*a*6);

  writeln('objem= ',a*a*a);

end.