Тема: Создание проекта по обработке одномерных массивов

Лабораторное занятие № 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.

Дата добавления: 2014-12-25