АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Текст программы вычислений

Читайте также:
  1. Creating a VHDL Source (создание файла, содержащего текст программы на языке VHDL).
  2. Ex.4. Using new vocabulary retell the text. / Використовуючи нову лексику перекажіть текст.
  3. Ex.5. Using new vocabulary retell the text. / Використовуючи нову лексику перекажіть текст (впр.2).
  4. Ex.6. Using new vocabulary retell the text. / Використовуючи нову лексику перекажіть текст.
  5. HTML - Урок 3. Форматирование текста
  6. II. Требования к структуре образовательной программы дошкольного образования и ее объему
  7. II.2 Стилистическая характеристика рекламного текста
  8. III. Требования к условиям реализации основной образовательной программы дошкольного образования
  9. IV. Требования к результатам освоения основной образовательной программы дошкольного образования
  10. MS Excel.Текстовые функции, примеры использования текстовых функций.
  11. SWOT-анализ раздела «Цели образовательной программы»
  12. The subject title (Заголовок к тексту)

Program kursovic_2;

var q,q1:text;

i,kol:integer;

vel:real;

mas:array[0..6] of real;

inter,rnd,rnd2,rnd3,real;

BEGIN

randomize;

assign(q,’D:\Program Files\kursovic_2\kursovic.dat’);

rewrite(q);

for i:=1 to 40 do

BEGIN

rnd1:=random(100)*0,3;

rnd2:=random(45);

rnd3:=random(30);

writeln((rnd1+rnd2-rnd3):7:3);

writeln(q,(rnd1+rnd2-rnd3):7:3);

end;

close(q);

assign(q1,’D:\Program Files\kursovic_2\kursovic1.dat’);

rewrite(q1);

reset(q);

mas[6]:=-1.7e38;

mas[0]:=1.7e38;

for i:=1 to 40 do

BEGIN

readln(q,vel);

if vel>mas[6] then mas[6]:=vel;

if vel<mas[0] then mas[0]:=vel;

end;

inter:=(mas[6]-mas[0])\6;

for i:=1 to 5 do mas[i]:=mas[i-1]+inter;

mas[6]:=mas[6]+1;

for i:=1 to 6 do

BEGIN

reset(q);

kol:=0;

while not eof(q) do

BEGIN

readln(q,vel);

if (vel<mas[i]) and (vel>=mas[i-1]) then

kol:=kol+1;

end;

writeln(‘i=’, i:2, ’ kol=’, kol:3);

writeln(q1, i:2, ’: ’ kol:3);

end;

close(q1);

end.

 

 

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

 

интервал количество чисел
   
   
   
   
   
   

 

 

По этим значениям строится столбчатая гистограмма распределения.

 

В приложении Excel дан расчет математического ожидания приведенной в заданной формуле.

№ случайные мат. ожидание
  21,20 21,20
  27,20 24,20
  42,20 30,20
  36,60 31,80
  -0,10 25,42
  36,50 27,27
  9,40 24,71
  33,30 25,79
  6,80 23,68
  17,90 23,10
  31,40 23,85
  19,80 23,52
  3,10 21,95
  56,10 24,39
  46,70 25,87
  30,60 26,17
  16,30 25,59
  7,40 24,58
  47,20 25,77
  7,00 24,83
  -7,20 23,30
  35,90 23,88
  22,80 23,83
  32,60 24,20
  10,30 23,64
  26,40 23,75
  30,40 23,99
  10,30 23,50
  23,70 23,51
  39,80 24,05
  21,10 23,96
  -6,50 23,01
  26,30 23,11
  33,60 23,41
  11,90 23,09
  13,50 22,82
  30,00 23,01
  41,70 23,51
  12,50 23,22
  6,10 22,79

 

По полученным расчетам строится график математического ожидания.


1 | 2 | 3 |

Поиск по сайту:

Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.004 сек.)