2.4. Границы интервала случайных чисел
2.4.1. Программа, выполняющая разбиение диапазона случайных чисел на 6 равных частей и определяющая их количество в этих промежутках с выводом результатов в файл с расширением .Txt
program AlexeevRandomIntervals;
{$APPTYPE CONSOLE}
uses
SysUtils,
Math;
Type Mas1=array[1..50] of real;
Const N=6;
Var x:Mas1;
i,kol_vo:integer;
max,min,step,min1,max1:real;
f,t:text;
begin
Assignfile(t,'Alexeev1Random.txt');
rewrite(t);
Assignfile(f,'AlexeevRandomIntervals.txt');
rewrite(f);
Randomize;
for i:=1 to 50 do
begin
x[i]:=random(40)+random (60)*0.5 - random (80)*0.4;
writeln(t,x[i]:2:2);
end;
min:=x[1]; max:=x[1];
for i:=2 to 50 do
begin
if x[i]<min then min:=x[i];
if x[i]>max then max:=x[i];
end;
step:=(max-min)/N;
min1:=min;
max1:=min+step;
while max1<=max do
begin
kol_vo:=0;
for i:=1 to 50 do
begin
if (x[i]>=min1) and (x[i]<=max1) then
kol_vo:=kol_vo+1;
end;
writeln(f,min1:2:2,'..',max1:2:2,' ',kol_vo);
min1:=max1;
max1:=max1+step;
end;
closefile(t);
closefile(f);
end.
2.4.2. Результаты работы программы п.2.4.1 (интервалы)
Таблица 2.4.2. Результаты определения границ интервала, текстовый файл AlexeevRandomIntervals.txt
|
-7.70..3.72 |
7 |
|
3.72..15.13 |
9 |
|
15.13..26.55 |
13 |
|
26.55..37.97 |
12 |
|
37.97..49.38 |
7 |
|
49.38..60.80 |
1 |
2.5. Гистограмма распределения по результатам п. 2.4.
Рис. 2.5. Гистограмма распределения случайных чисел
Заключение
Результаты работы полностью соответствуют заданию. Разработаны программные коды, построены графики, приведены результаты вычислений в виде таблиц.
Литература
Додж М., Кайнет К. Эффективная работа с EXCEL 7.0, СПб: Питер, 1997.
MICROSOFT CORP, Ресурсы MICROSOFT OFFICE, M. PRESS, 1997.
Персон Р. EXCEL для WINDOWS 95.СПб: BHV – Санкт-Петербург, 1996.
Гроздова В.А. Введение в специальность программиста. М.: ИД ФОРУМ – ИНФРА-М, 2007.
Бобровский С. Delphi 5:учебный курс. СПб:Питер, 2001
Приложение
Для того, чтобы иметь возможность строить графики функций, получаемых в результате вычислений по соответствующим программам на языке Delphi 7, с использованием приложения EXCEL, нужно числовые данные расчета из программы DELPHI переслать в файл с расширением .txt, который может быть создан пользователем ранее.
Для этого в программе DELPHI должно быть выполнено следующее:
- в разделе описания переменных должна быть описана текстовая переменная, например (F: text);
- после начало главной программы должно следовать обращение к стандартным процедурам
assignfile(F,'File.txt')
………………..
……………….. (операторы программы)
………………..
writeln(F,…)
- перед последней в программе операторной скобкой “end”. Записывается стандартная процедура closefile (F);
- стандартная процедура assignfile (F,'File.txt')связывает текстовую переменную F с некоторым именем файла .txt.
- стандартная процедура rewrite создает новый файл и открывает его для записи и чтения. Если файл с таким именем уже существует, его содержимое стирается, а сам файл открывается заново. Например, оператор rewrite(F); открывает существующий файл, связанный с текстовой переменной F. Стандартная процедура closefile закрывает открытый ранее файл, связанный с указанной в качестве параметра текстовой переменной. Например, оператор closefile (F) закрывает файл, имя которого связано с текстовой переменной F.