* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

Г л а в а VIII. М а т е м а т и ч е с к и е ф у н к ц и и 'методом Монте-Карло CLS 'Чистим экран 'запрашиваем количество точек p 1 : INPUT "укажите количество вбрасываний:-"; N M = 0 'счетчик, для числа попаданий в круг RANDOMIZE N F O R i = 0 T O N 'вбрасываем точку в квадрат x # = 2 * RND(1) — 1 y # = 2 * RND(1) — 1 I F x # 2 + y # 2 < = 1 T H E N M = M + 1 'Попала в круг NEXT i S # = 4 * M / N PRINT "Площадь единичного круга равна"; S#; " при — "; N; "вбрасываний" PRINT "закончить?(0-да)" z$ = INPUT$(1) I F V A L ( z $ ) <> 0 GOTO p 1 A A 59 Пример 8.7.2. Слегка модернизированная п р о г р а м м а примера 8.9.1., к о т о р а я вычисляет, как часто уравнения вида ax 2+bx+c=0 имеет действительные корни, если коэф­ фициенты a, b, c лежат в интервале [-10;+10]. Используется генератор случай¬ ных чисел. A 'Программа нахождения корней квадратного уравнения 'Ах 2+Bx+C=0 'где A,B,C задаются случайным образом 'в интервале [ - 1 0 ; + 1 0 ] . Подсчитывается, какая часть уравнений имеет ^вещественные корни, результат выводится на экран монитора CLS 'Очистка экрана p 1 : INPUT "введите число уравнений:-"; N RANDOMIZE N M = 0 'счетчик для подсчета числа уравнений, которые имеют 'действительные корни F O R i = 1 T O N 'генерация коэффициентов a = 20 * RND(1) — 10 b = 20 * RND(1) — 10 c = 20 * RND(1) — 10 ' Вычисляем дискриминант d = b 2 — 4 * a * c ' Проверяем значение дискриминанта I F d > = 0 T H E N M = M + 1 'уравнение имеет вещ.корни NEXT i PRINT "Вероятность того, что уравнение имеет вещественные корни:-";M/N p 2 : PRINT "Закончить работу?(0-да)" z$ = INPUT$(1) I F V A L ( z $ ) <> 0 THEN GOTO p 1 ELSE END Л A