Лабораторное занятие № 13 Тема: Создание проекта по обработке одномерных массивов
Цель: Приобретение навыков использования компонента String Grid для обработки одномерного массива в системе Delphi.
ТО и ПО: OC Windows 7, Delphi 2010.
МО: методические указания.
Задание: Создать проект, осуществляющий операции с массивом: сложение элементов массива, нахождение произведения элементов массива, нахождение среднего арифметического, подсчет количества четных элементов в массиве.
Индивидуальное задание: Самостоятельно написать обработчик события для вычисления наименьшего числа.
Описание хода выполнения работы:
Запустила систему программирования Delphi 2010.
Создала Delphi – проект.
Со страницы Standart палитры компонентов поместила на форму компоненты: TLabel, TEdit, TGroupBox, TButton/
Со страницы Additional палитры компонентов поместила на форму компонент TStringGrid.
Заполнила значения свойств визуальных компонентов (рис. 13.1).
Интерфейс размещения компонентов для диалога с пользователем представлены на рисунке 13.1.
Рисунок 13.1
Настроила свойства для StrinGrid, а именно:
RowCount – 1;
Options.goEditing – True;
Name – Str.
Написала код обработчика для кнопки вычисления суммы элементов массива:
procedure TForm2.Button4Click(Sender: TObject);
var
i,s,j:integer;
begin s:=0; j:=0;
for i:=1 to (str.ColCount-1) do
begin
s:=s+strtoint(str.Cells[i,0]); end;
showmessage('Сумма элементов равна ='+''+inttostr(s)); end;
Сделала отладку и тестирование программы, результат представлен на рисунке 13.2.
Рисунок 13.2
Написала код обработчика для кнопки вычисления среднего арифметического элементов массива:
procedure TForm2.Button3Click(Sender: TObject);
var i,j:integer; s:real;
begin s:=0; j:=0;
for i:=1 to (str.ColCount-1) do
begin
s:=s+strtofloat(str.Cells[i,0]);
j:=j+1; end;
Сделала отладку и тестирование программы, результат представлен на рисунке 13.3.
Рисунок 13.3
showmessage('Среднее арифметическое ='+''+floattostr(s/j)); end;
Написала код обработчика для кнопки подсчета количества четных элементов массива:
procedure TForm2.Button1Click(Sender: TObject);
var i,j:integer;
begin j:=0;
for i:=1 to (str.ColCount-1) do
begin
if(strtoint(str.Cells[i,0]) mod 2)=0 then
j:=j+1; end;
showmessage('Количество четных элементов ='+''+inttostr(j)); end;
Сделала отладку и тестирование программы, результат представлен на рисунке 13.4.
Рисунок 13.4
Самостоятельно написала код обработчика для кнопки подсчета количества нечетных элементов массива:
procedure TForm2.Button2Click(Sender: TObject);
var i:integer; j:real;
begin j:=0;
for i:=1 to (str.ColCount-1) do
begin
if(strtoint(str.Cells[i,0]) mod 2)<>0 then
j:=j+1; end;
showmessage ('Количество нечетных элементов ='+''+floattostr(j)); end;
Сделала отладку и тестирование программы, результат представлен на рисунке 13.5.
Рисунок 13.5
Самостоятельно написала обработчик события для вычисления среднего геометрического элементов массива:
procedure TForm2.Button5Click(Sender: TObject);
var i:integer; s,j:real;
begin s:=1;
for i:=1 to (str.ColCount-1) do
begin
s:=s*strtofloat(str.Cells[i,0]); end;
showmessage('Среднее геометрическое ='+''+floattostr(sqrt(s))); end;
Сделала отладку и тестирование программы, результат представлен на рисунке 13.6.
Рисунок 13.6
Самостоятельно написала обработчик события для вычисления наименьшего числа элементов массива:
procedure TForm2.Button6Click(Sender: TObject);
var i,min:integer; s,j:real;
begin min:=9999999;
for i:=1 to (str.ColCount-1) do
begin
if (strtoint(str.Cells[i,0])<min) then min:=strtoint(str.Cells[i,0]); end;
showmessage ('Наименьшее число ='+''+inttostr(min)); end;
Сделала отладку и тестирование программы, результат представлен на рисунке 13.7.
Рисунок 13.7
Вывод: В ходе лабораторного занятия создала проект, осуществляющий операции с массивом: сложение элементов массива, нахождение произведения элементов массива, нахождение среднего арифметического, подсчет элементов четных и нечетных элементов массива и выбор наименьшего числа массива, благодаря этому приобрела навыки использования компонента String Grid для обработки одномерного массива в системе Delphi.