2.2 Обработка линейного массива.
После нажатия клавиши «Статистика» данные из компонента strngrd1 в двумерный массив a[i,j] , при этом происходит преобразование данных строкового типа String в Integer. После чего происходит поиск максимального элемента массива, а также максимального элемента за отдельный период. Ниже приведён пример алгоритма поиска максимального элемента массива за первый период.
рис.
var
a : array[1..12,1..4] of integer; // массив
summ,summ1,summ2,summ3: integer; // сумма элементов
m1,m2,m3: Integer; // среднее арифметическое
i,j: integer; // индекс
begin
// ввод массива
summ:=0;
summ1:=0;
summ2:=0;
summ3:=0;
m1:=0;
m2:=0;
m3:=0;
for i:= 1 to 12 do
begin
for j:=1 to 3 do
a[i,j] := StrToInt(strngrd1.Cells[i,j]);
end;
for i:= 1 to 12 do
begin
for j:=1 to 3 do
summ:=(a[i,j]) + summ;
summ1:=(a[i,1]) + summ1;
summ2:=(a[i,2]) + summ2;
summ3:=(a[i,3]) + summ3;
if m1< a[i,1] then //максимальное значенние за первый преиод
begin
m1:= a[i,1];
end;
if m2< a[i,2] then
begin
m2:= a[i,2];
end; if m3< a[i,3] then
begin
m3:= a[i,3];
end;
end;
//вывод результата
Form2.lbl1.Caption :=
'Максимальный элемент первого периода = ' + IntToStr(m1);
Form2.lbl2.Caption :=
'Максимальный элемент второго периода = ' + IntToStr(m2);
Form2.lbl6.Caption :=
'Максимальный элемент третьего периода = ' + IntToStr(m3);
Form2.lbl8.Caption :=
'Общая сумма: ' + IntToStr(summ);
Form2.lbl3.Caption :=
'Cумма за первый период: ' + IntToStr(summ1);
Form2.lbl4.Caption :=
'Cумма за второй период: ' + IntToStr(summ2);
Form2.lbl5.Caption :=
'Cумма за третий период: ' + IntToStr(summ3);
Form2.Visible:=True;
end;
Заключение
В данной курсовой работе мы рассмотрели программную обработку линейного массива изменений ценового ряда.
Не смотря на внешне кажущуюся простоту данной программы, он таит в себе ряд сложностей, которые реализуются с использованием всех основных приемов программирования. Для примера был использован язык Delphi. Результаты аналитического моделирования позволяют контролировать не только процесс изменения ценового ряда, но и активно используется с среде фондовых рынков, в работе тендеров, находит самое широкое применение в экономике.
Список литературы
1.Львовский М.Б. Методическое пособие по информатике. – М.: Градиент, 2007.
2. Вирт Н. Алгоритмы + структуры данных = программы. – М.: Мир, 2005. – С. 406.
3.Светозарова Г.И., Мельников А.А., Козловский А.В. Практикум по программированию: Учебное пособие для вузов. – М.: Наука, 1998.
4.Йенсен К., Вирт Н. Паскаль. Руководство для пользователя и описание языка. – М.: Финансы и статистика, 2002. – С. 151.
5.Перминов О. Н. Язык программирования Паскаль : Справочник. – М.: Радио и связь, 2000. – С. 128.
6. Вострикова З.П., Вострикова О.Ю., Туева С.С. Программирование экономических систем. – М.: Финансы и статистика, 2003.
7. Упражнения по обработке и созданию линейного массива: сборник. – М.: Академический проект, 2003.
8. Яворский А.А. Обработка массивов на языке Delphi и Pascal. – М.: Владос, 2001.
9. Программный анализ в экономике / Под ред. Завьялова А.Р. – М.: наука, 2003.
10. Большой экономический словарь. – СПб.: Армада, 2000.