Форум программистов, компьютерный форум, киберфорум
Наши страницы

Математическое ожидание, дисперсия - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Дана строка символов... http://www.cyberforum.ru/cpp-beginners/thread320055.html
Помогите пожалуйста решить задачку на C++ Дана строка символов. Заменить в строке сочетание символов "ты" на "вы". Заранее спасибо)
C++ Как вы считаете книга по С++ нормальная Б. Страуструп - "Программирование: принципы и практика использования C++ http://www.cyberforum.ru/cpp-beginners/thread320046.html
C++ Даны числа x, y, x1, y1, x2, y2. Проверить истинность высказывания: «Точка с координатами (x, y) лежит внутри прямоугольника, левая верхняя вершина ко
Даны числа x, y, x1, y1, x2, y2. Проверить истинность высказывания: «Точка с координатами (x, y) лежит внутри прямоугольника, левая верхняя вершина которого имеет координаты (x1, y1), правая нижняя —...
Проверить истинность высказывания: «Среди трех данных целых чисел есть хотя бы одна пара совпадающих». C++
Проверить истинность высказывания: «Среди трех данных целых чисел есть хотя бы одна пара совпадающих».
C++ Реализовать односвязный список данных вида "Страна, город, количество населения" http://www.cyberforum.ru/cpp-beginners/thread320031.html
Поставлена задача реализовать односвязный список данных вида Страна город количество населения Обеспечить выполнение операций: добавление элемента в список удаление элемента из списка...
C++ Раскраска графа в два цвета (алгоритм BlackWhiteColoring) Здраствуйте! Хотела попросить помочь с программой. Дан неориентированный граф, его раскраска производится следующим образом: приписываем его вершинам цвета таким образом, что никакие две смежные... подробнее

Показать сообщение отдельно
shilovec5377
29 / 54 / 1
Регистрация: 26.05.2011
Сообщений: 752
15.06.2011, 22:47
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Там более менее подписано, что находим:
procedure TForm2.Button2Click(Sender: TObject);
 Var
Y,k,Me,R,Z,Xmax,Xmin,i:integer;
q3,q1,asimetria,mediana,med,q2,q,maxM, sigma,xx2,vd,Ex,moi,cv,n,Xi,ser:real;
 
 
begin
Xi:=0;
n:=0;
 Z:=( StrToInt (edit1.text));
Xmax:=strtoint(StringGrid1.Cells[z,0]);
Xmin:=strtoint(StringGrid1.Cells[1,0]);
 for i := 1 to  z   do
 Begin
 moi:=moi+(StrTofloat(StringGrid1.Cells[i,0])*StrTofloat(StringGrid1.Cells[i,1]));
     n:=n+StrTofloat(StringGrid1.Cells[i,1]);
 Xi:=Xi+StrToFloat(StringGrid1.Cells[i,0]);
     cv:=(1/n)*(moi);
   R:=Xmax-Xmin;
 End;
{----------------moda----------------------------------}
 Z:=( StrToInt (edit1.text));
 maxM:=strtofloat(StringGrid1.Cells[1,1]);
for i:=1 to   z  do
if (strtofloat(StringGrid1.Cells[i,1]))>maxM then
begin
  maxM:=strtofloat(StringGrid1.Cells[i,1]);
   k:=i;
end;
  Me:=strtoint(StringGrid1.Cells[k,0]);
{----------------------vd----------------------------}
  for i := 1 to z do
    begin
xx2:=xx2+(sqr(StrTofloat(StringGrid1.Cells[i,0])))*(StrTofloat(StringGrid1.Cells[i,1]));
    end;
vd:=  (xx2/n)-sqr(cv);
 sigma:=sqrt(vd);
{--------------------эксцесс------------------------}
for i := 1 to z do
    begin
q2:=q2+sqr(strtofloat((StringGrid1.Cells[i,0]))-(cv))*sqr(strtofloat((StringGrid1.Cells[i,0]))-(cv));
    end;
q:=n*(sqr(sigma)*sqr(sigma));
  Ex:=(q2/q )-3;
 
{-------------------асиметрия----------------------}
 for i := 1 to z do
    begin
q2:=q2+sqr(strtofloat((StringGrid1.Cells[i,0]))-(cv))*(strtofloat((StringGrid1.Cells[i,0]))-(cv));
    end;
q:=n*(sqr(sigma)* (sigma));
  asimetria:=(q2/q);
{--------------------mediana-----------------------}
 
     begin
if z mod 2=0 then  ser:=(strtofloat(StringGrid1.Cells[z div 2,0])+strtofloat(StringGrid1.Cells[(z div 2+1),0]))/2
             else  ser:= strtofloat(StringGrid1.Cells[(z div 2+1),0])/2;
 
     end;
Memo1.Lines.Text:='Размах вариации = '+RealToStr(R,2)+#13+'Среднее Выборочное = '+RealToStr(cv,2)+#13+
'Мода = '+RealToStr(Me,2)+#13+'Выборочная дисперсия = '+RealToStr(vd,2)
+#13+'Среднее квадратическое отклонение = '+RealToStr(sigma,2)+#13+'Эксцесс = '+RealToStr(Ex,2)+#13+
'Медиана = '+RealToStr(ser,2)+#13+'Асиметрия = '+RealToStr(asimetria,2);
 
end;
Добавлено через 1 минуту
Вот exe-шник
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru