procedure TForm1.Button1Click(Sender: TObject);
var 
masx1: array[0..499] of real; 
masy1: array[0..499] of real; 
a,s: real; 
i,m: integer; 
begin 
m:=0; 
Randomize; 
for i:=0 to 499 do 
begin 
masx1[i]:=RandomRange(-4,6); 
masy1[i]:=RandomRange(-3,7); 
end; 
 
for i:=0 to 499 do 
begin 
a:=Power((masx1[i]-1),2)+Power((masy1[i]-2),2); 
if a<=25 then Inc(m); 
 
end; 
s:=100*(m/500); 
Edit1.Text:=FloatToStr(s);

это часть кода, площадь круга при 500 точках, всего 4 испытания, и по 4 наблюдения на каждом испытании, всего 16 площадей получается)

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

05.11.2016, 20:20

Ответы с готовыми решениями:

Найти мат.ожидание,дисперсию и среднекв.отклонение
имеется программа,нужно в пятом мемо вывести дисперсию, матожидание и среднеквад.откл. Как это...

Вычисление площади по элементу круга
Помогите пожалуйста с написанием кода программы по задаче: Пусть элементами круга являются...

Вычисления по заданному радиусу и значению переменной площади круга.
Составьте программу вычисления по заданному радиусу и значению переменной площади круга (если ...

Составить программу для вычисления площади одной из фигур: квадрата, круга или прямоугольника по значению x
Пожалуйста помогите. Составить программу для вычисления площади одной из фигур: квадрата, круга...

	05.11.2016, 20:20

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

05.11.2016, 20:20

Помогаю со студенческими работами здесь

Определите размер шара, используя сумму трехзначных чисел в качестве площади круга, окружности круга и радиуса
Определите размер шара, используя сумму трехзначных чисел в качестве площади круга, окружности...

Вычисление площади и периметра квадрата и прямоугольника, описанных вокруг круга заданной площади S
Составить программу для вычисления площади и периметра квадрата и прямоугольник, описанных вокруг...

Функция определения площади круга и площади кольца
Написать функцию определения площади круга и найти площадь кольца, заданного двумя радиусами.

Найти отношение площади круга к площади трапеции
В круг вписана трапеция. Большее основание составляет с боковой стороной угол а, а с диагональю...

Присвоить Z значение 1, если площадь круга с радиусом АВ больше площади круга с радиусом CD
Задание такое: Даны четыре точки А(х1,у1), В(х2,у2), С(х3,у3), D(х4,у4) и Z. Присвоить Z значение...

мат. ожидание
подскажите, ответ №5, правильно?

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх