Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.04.2017, 14:00   #11
ИвановБ
Пользователь
 
Регистрация: 19.12.2016
Сообщений: 70
По умолчанию

Цитата:
Сообщение от type_Oleg Посмотреть сообщение
const
T_LAPLACE=2.576; // t для доверительной вероятности 0.99
var dp:Double;
function fDp(t,w:Double;n:Integer):Double; // упрощенная формула, для больших n
begin
fDp:=t*Sqrt(w*(1-w)/n);
end;
Никак не выходит добавить правильно.
ИвановБ вне форума Ответить с цитированием
Старый 29.04.2017, 17:42   #12
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Держите, аттракцион невиданной щедрости.
Код:
program Prop;

var p1,p2,p3,dp,w,pMin,pMax:double;
    i,n,hits:integer;
    hit1,hit2:boolean;
const
 T_LAPLACE=2.576; //
 
function fDp(t,w:Double;n:Integer):Double; // 
begin
 fDp:=t*Sqrt(w*(1-w)/n);
end;
      
begin
 Randomize;
 write('p1 p2 p3 = :');
 read(p1,p2,p3);
 write('n = :');
 read(n);    
 hits:=0;
 for i:=1 to n do
  begin
   if Random>p1 then Continue;     // не  вышел  в такое положение - до свидания 
   hit1:=(Random<p2)and(Random<p3); // попала 1-я ракета
   hit2:=(Random<p2)and(Random<p3); // попала 2-я ракета
   if hit1 or hit2 then Inc(hits);
  end;
 w:=hits/n;
 Writeln('P=',w:6:4);
 dp:=fDp(T_LAPLACE,w,n);
 pMin:=w-dp;
 if pMin<0 then pMin:=0;
 pMax:=w+dp;
 if pMax>1 then pMax:=1;
 WriteLn('int: ',pMin:6:4,' .. ',pMax:6:4);
 ReadLn;
end.
вероятность я тогда неправильно посчитал, условия не разглядел.
На самом деле P=p1*(1-(1-p2*p3)^2)
Изображения
Тип файла: png prop.PNG (32.3 Кб, 48 просмотров)
type_Oleg вне форума Ответить с цитированием
Старый 29.04.2017, 19:27   #13
ИвановБ
Пользователь
 
Регистрация: 19.12.2016
Сообщений: 70
По умолчанию

Если "аттракцион" еще в силе, такая просьба не могли бы нарисовать алгоритм (блок-схему) к вашей программке?

Моя то уже не подходит.) И спасибо за помощь !!!
ИвановБ вне форума Ответить с цитированием
Старый 29.04.2017, 19:44   #14
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Ну это уж сами. Элементарно же.
type_Oleg вне форума Ответить с цитированием
Старый 30.04.2017, 12:02   #15
ИвановБ
Пользователь
 
Регистрация: 19.12.2016
Сообщений: 70
По умолчанию

Да все нарисовал, спасибо за помощь!!!
ИвановБ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задачи по теме "моделирование":1) построить модель на графе 2) построить табличную модель 3) решить задачу венгерским методом Елена3110 Помощь студентам 1 05.05.2013 11:03
В С++ найти интеграл функции, и построить график rybakov93 Помощь студентам 4 11.12.2012 13:56
Интеграл Psychoo Паскаль, Turbo Pascal, PascalABC.NET 2 07.11.2011 07:42
интеграл Feel401 Обсуждение статей 0 15.05.2011 12:27
Доверительный интервал для экспериментальной кривой rimini6131 Microsoft Office Excel 6 24.02.2011 15:32