🗊Презентация Ввод данных с помощью датчика случайных чисел. (Урок 13-14)

Урок №13_14 Ввод данных с помощью датчика случайных чисел

Датчик случайных чисел Ещё один способ занесения данных в переменные – вызов датчика случайных чисел. Компьютер сам выдаёт число из заданного диапазона. Пример 1. Ввод значения С от 0 до 1случайным образом. Randomize; C:=Random; Пример 2. Ввод значения С от 0 до N-1случайным образом. Randomize; C:=Random(N); Пример 3. Как получить случайное число >0? Randomize; С:=Random(N-) +  Пример 4. Как получить число в интервале от а до в? Randomize; С:= a + random (b – a + 1)

Функция Random (N) выдает целочисленные значения в диапазоне от 0 до N-1 Например, чтобы сгенерировать число X в диапазоне -N..N , пишем так:  Randomize; X := Random (N + 1) - 2 * N; Если не написать сначала Randomize; , то будут генерироваться одни и те же числа.

Program Operation; uses crt; var A, B, C: real; Begin clrscr; A:=17.3; B:=3.4; C:=5.1; C:=A*B*C; Writeln (‘объем= ' , C) End.

Задание Переделать программы с предыдущих уроков, используя ввод данных с клавиатуры: Ввести длины рёбер a, b, c прямоугольного параллелепипеда случайным образом (от 1 до 10). Найти его объём V=abc и площадь поверхности S=2(ab+bc+ac). Найти расстояние между точками с заданными координатами х1 и х2 на числовой оси: |x2-x1|. Координаты ввести случайным образом (от -7 до 7). Задать площадь круга случайным образом (от 10 до 20). Найти его диаметр D и длину окружности L, ограничивающей этот круг, учитывая, что L= 2R; S= R2 Использовать =3.14 Напишите программу для вычисления дискриминанта квадратного уравнения. Коэффициенты A, B, C ввести случайным образом (от -5 до 10): D=B2-4*A*C