Санкт-Петербургский Государственный морской технический университет
КУРСОВАЯ РАБОТА
По дисциплине "Информатика"
Вариант №3
Выполнил: студент группы 5175
Алексеев Ф.Е.
Проверил: преподаватель
Павлов П.В.
Санкт-Петербург
2011
Реферат
Работа состоит из 2-х частей, расположенных на 24 листах; в первой части 5 рисунков, во второй части 2 рисунка; в первой части 2 таблицы, во второй части 3 таблицы, список литературы.
Ключевые слова:
EXCEL, DELPHI, MICROSOFT WORD.
Работа посвящена табулированию заданной функции с записью данных в текстовые файлы .txt, переводу файлов с расширением .txt в формат EXCEL, построению графиков разных видов и выполнению некоторых вычислений. В файлах с расширением .txt столбцы выводятся с разделением в виде пробела. При помощи процедуры RANDOMIZE и генератора случайных чисел RANDOM делается выборка случайных чисел. Согласно данным выборкам создаются программы, выполняющие вычисления математического ожидания и разбиения выборки на интервалы с последующим подсчетом количества попавших в них чисел и построением гистограммы распределения.
При работе использовались:
BORLAND DELPHI 7, MICROSOFT Word, MICROSOFT Excel.
Содержание c
Введение 4
Исходные данные 5
а) Табулирование заданной функции 5
б) Случайные величины 5
1. Табулирование заданной функции. 6
1.1.Блок-схема алгоритма 7
1.2 Программа вычисления функции с выводом результата в файл с расширение .txt 8
1.3. Таблица результатов 9
1.4. Результат вычислений в Excel 10
1.5. График функции (в приложении Excel) 12
1.6. Столбчатая и круговая диаграммы по результатам таблицы в приложении Excel 13
2.Случайные величины 14
2.1. Текст программы Random и результаты ее работы 15
2.1.1. Программа, составляющая последовательность случайных чисел с выводом результатов в файл с расширением .txt. 15
2.1.2. Результаты работы программы п.2.1.1 (Random) 16
2.2 Проверка на статистическую устойчивость: математическое ожидание 17
2.3 Расчет дисперсии, СКВО, ассиметрии, эксцесса для последовательности п.2.1 18
2.4. Границы интервала случайных чисел 19
2.4.1. Программа, выполняющая разбиение диапазона случайных чисел на 6 равных частей и определяющая их количество в этих промежутках с выводом результатов в файл с расширением .txt 19
2.4.2. Результаты работы программы п.2.4.1 (интервалы) 20
2.5. Гистограмма распределения по результатам п. 2.4. 21
Заключение 22
Литература 23
Приложение 24
Введение
Настоящая работа выполнена на языке программирования BORLAND DELPHI 7 с использованием приложения MICROSOFT WORD и EXCEL, оформлена в соответствии с ГОСТ 7.32-01.
Исходные данные
а) Табулирование заданной функции
б) Случайные величины
xi = random(40)+random (60)·0.5 - random (80)·0.4; N=6.
1. Табулирование заданной функции.
Составить и изобразить блок-схему алгоритма (Word, Paint или другие графические редакторы).
Составить программу вычислений на языке программирования Delphi с выводом результата в файл с расширением .txt.
1.3. Выполнить вычисления по разработанной программе, записав результаты в виде таблицы с использованием приложения Excel.
1.4. Вычислить сумму и произведение значений аргумента и функции по столбцам, а так же определить max и min значения в столбцах.
1.5. По полученным результатам построить график функции с использованием приложения Excel.
1.6 По результатам таблицы построить столбчатые и круговые диаграммы по столбцам, выбрав наиболее наглядный вид графического отображения
Примечание:
Интервал и шаг при табулировании выбран так, чтобы разрыв заданной функции оказался приблизительно в центре. В выбранном интервале должно быть не менее 20 точек.
Словесный алгоритм и процедура записи результатов работы программы в Delphi в текстовый файл, относящийся к табулированию функции, оформлены в виде приложения.
1.1.Блок-схема алгоритма
1.2 Программа вычисления функции с выводом результата в файл с расширение .Txt
program AlexeevTab;
{$APPTYPE CONSOLE}
uses
SysUtils,
Math;
var
a,xn,xk,deltax,x,y:real;
t:text;
begin
Assignfile(t,'AlexeevTab.txt');
rewrite(t);
a:=2;
xn:=-10;
xk:=10;
deltax:=0.2;
x:=xn;
while x<=xk do
begin
If (x<a+2) then
y:=(a*sqr(x)*(x+1)+a*x)/(1+x*x+x)
else
y:=1+x/(1+x/(1+x/2));
writeln(t,x:2:2,' ',y:2:2);
x:=x+deltax;
end;
closefile(t);
end.
1.3. Таблица результатов
Таблица 1.3. Результат работа программы (файл Alexeev.txt)
-10.00 -20.00
-9.80 -19.60
-9.60 -19.20
-9.40 -18.80
-9.20 -18.40
-9.00 -18.00
-8.80 -17.60
-8.60 -17.20
-8.40 -16.80
-8.20 -16.40
-8.00 -16.00
-7.80 -15.60
-7.60 -15.20
-7.40 -14.80
-7.20 -14.40
-7.00 -14.00
-6.80 -13.60
-6.60 -13.20
-6.40 -12.80
-6.20 -12.40
-6.00 -12.00
-5.80 -11.60
-5.60 -11.20
-5.40 -10.80
-5.20 -10.40
-5.00 -10.00
-4.80 -9.60
-4.60 -9.20
-4.40 -8.80
-4.20 -8.40
-4.00 -8.00
-3.80 -7.60
-3.60 -7.20
-3.40 -6.80
-3.20 -6.40
-3.00 -6.00
-2.80 -5.60
-2.60 -5.20
-2.40 -4.80
-2.20 -4.40
-2.00 -4.00
-1.80 -3.60
-1.60 -3.20
-1.40 -2.80
-1.20 -2.40
-1.00 -2.00
-0.80 -1.60
-0.60 -1.20
-0.40 -0.80
-0.20 -0.40
-0.00 -0.00
0.20 0.40
0.40 0.80
0.60 1.20
0.80 1.60
1.00 2.00
1.20 2.40
1.40 2.80
1.60 3.20
1.80 3.60
2.00 4.00
2.20 4.40
2.40 4.80
2.60 5.20
2.80 5.60
3.00 6.00
3.20 6.40
3.40 6.80
3.60 7.20
3.80 7.60
4.00 8.00
4.20 2.78
4.40 2.85
4.60 2.92
4.80 2.99
5.00 3.06
5.20 3.13
5.40 3.20
5.60 3.26
5.80 3.33
6.00 3.40
6.20 3.47
6.40 3.54
6.60 3.60
6.80 3.67
7.00 3.74
7.20 3.81
7.40 3.87
7.60 3.94
7.80 4.01
8.00 4.08
8.20 4.14
8.40 4.21
8.60 4.28
8.80 4.35
9.00 4.41
9.20 4.48
9.40 4.55
9.60 4.62
9.80 4.68
10.00 4.75