Презентация по информатике на тему "Программирование на языке Паскаль-Случайные числа"

• 1 слайд

  Программирование
  на языке Паскаль
  Случайные числа
  

• 2 слайд

  Случайные числа
  Случайные явления: везде…
  бросание монеты ("орел" или "решка")
  падение снега
  броуновское движение
  помехи при телефонной связи
  шум радиоэфира
  Случайные числа – это такая последовательность чисел, для которой невозможно предсказать следующее даже зная все предыдущие.
  Проблема: как получить на компьютере?
  Возможные решения:
  использовать внешний источник шумовых помех
  с помощью математических преобразований
  

• 3 слайд

  Псевдослучайные числа
  Псевдослучайные числа – это такая последовательность чисел, которая обладает свойствами случайных чисел, но каждое следующее число вычисляется по заданной формуле.
  Примеры:
  Случайные целые числа [0,m) (линейный конгруэнтный метод)
  
  Случайные вещественные числа [0,1]
  
  Литература:
  Д. Кнут, Искусство программирования для ЭВМ, т.2.
  дробная часть числа
  a, c, m - целые числа
  простое число
  230-1
  например, k = 5
  

• 4 слайд

  Распределение случайных чисел
  Модель: снежинки падают на отрезок [a,b]
  a
  b
  a
  b
  распределение
  равномерное
  неравномерное
  Сколько может быть разных распределений?
  ?
  

• 5 слайд

  Распределение случайных чисел
  Особенности:
  распределение – это характеристика всей последовательности, а не одного числа
  равномерное распределение одно, компьютерные датчики (псевдо)случайных чисел дают равномерное распределение
  неравномерных – много
  любое неравномерное можно получить с помощью равномерного
  a
  b
  a
  b
  равномерное распределение
  равномерное распределение
  

• 6 слайд

  Генератор случайных чисел в Паскале
  Целые числа в интервале [0,N]:
  var x: integer;
  ...
  x := random ( 100 ); { интервал [0,99] }
  Вещественные числа в интервале [0,1]
  var x: real;
  ...
  x := random; { интервал [0,1] }
  
  

• 7 слайд

  Случайные числа
  Задача: заполнить прямоугольник
  400 на 300 пикселей равномерно
  точками случайного цвета
  Как получить случайные координаты точки?
  x := random ( 400 );
  y := random ( 300 );
  Как добиться равномерности?
  обеспечивается автоматически при использовании
  функции random
  Как получить случайный цвет?
  Pen (1, random(256), random(256), random(256));
  Point ( x, y );
  

• 8 слайд

  Программа
  program qq;
  var x, y, k, code, i: integer;
  stop: boolean;
  begin
  stop := False;
  repeat
  x := random(400);
  y := random(300);
  Pen(1, random(256), random(256), random(256));
  Point(x, y );
  if IsEvent then begin
  Event(k, code, i);
  if (k = 1) and (code = 27) then stop := True;
  end;
  until stop;
  end.
  случайные координаты
  случайный цвет
  выход по клавише Esc
  

• 9 слайд

  "4": Ввести с клавиатуры координаты углов прямоугольника и заполнить его точками случайного цвета.
  
  
  
  
  "5": Заполнить треугольник точками случайного цвета (равномерно или неравномерно).
  Подсказка: возьмите равнобедренный треугольник с углом 45о.
  Задания
  (100,100)
  (300,200)