Создание и обработка линейного массива

Создание приложения, предлагающего задать размер линейного массива, заполняет этот массив случайными целыми числами. Разработка приложения, выводящего двумерный массив случайных целых чисел и определяющего минимальный и максимальный элементы в нем.

Рубрика Программирование, компьютеры и кибернетика
Вид лабораторная работа
Язык русский
Дата добавления 15.07.2009
Размер файла 19,0 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Лабораторная работа

На тему: «Создание и обработка линейного массива. Использование компонента StringGrid для представления двумерных массивов в среде Delphi»

Задание 1. Создайте приложение, которое предлагает задать размер линейного массива, заполняет этот массив случайными целыми числами, выводит список элементов массива, вычисляет сумму всех элементов и количество положительных, определяет минимальный и максимальный элементы массива по выбору.

Решение:

Создайте папку для сохранения проекта «Массив1». Сохраните проект - Massiv. На форме разместите компоненты Label1,2 и Edit1,2 и кнопку Button1. Для свойства Caption кнопки задайте значение «Создать массив». Разместите на форме панель GroupBox1 и задайте значение «Определить», для свойства Caption.

В этой панели разместите компоненты CheckBox1,2,3,4, для свойства Caption которых задайте значения: «Минимальный элемент», «Максимальный элемент», «Сумма всех элементов», «Число положительных элементов», соответственно. Напротив них разместите компоненты Edit3,4,5,6. Если компоненты CheckBox не будут отображаться, то следует выделить панель GroupBox1 и выбрать в контекстном меню команду Control > Send to Back (Порядок > На задний план).

В нижней части формы разместите кнопку Button2 и задайте название - «Вычислить». Удалите текст Edit1,2,3,4,5,6 из соответствующих компонентов. Выровняйте компоненты на форме, как показано на рис. 4.1. Зафиксируйте положение компонентов на форме с помощью команды Edit>Lock Controls из главного меню.

Рис. 4.1 Пример формы проекта «Массив1»

Прежде чем создавать обработчики событий щелчка мышью по кнопкам, в разделе описания переменных необходимо объявить переменные целого типа N, I, где N - размер массива, а I - порядковый номер элемента массива, а также X - динамический массив целых чисел.

Var

Form1: TForm1;

N, I: integer;

X: array of integer;

{описание динамического массива целых чисел}

Примечание: динамические массивы отличаются от обычных статистических массивов тем, что для них не объявляется заранее длина - число элементов. При объявлении динамического массива место под него не отводится. Прежде чем использовать массив, надо задать его размер процедурой SetLength.

Для предупреждения ввода в окно Edit1 нечислового значения, используйте обработку события OnKeyPress для соответствующего компонента. Выполните это самостоятельно (см. лаб. раб. №3).

Для создания процедуры обработки события, создания массива целых чисел, выберите кнопку «Создать массив», затем на странице События сделайте двойной щелчок на пустом поле списка события OnClick. После этого отредактируйте процедуру в окне Редактора кода следующим образом:

Begin

Randomize;

N:= StrToInt (Edit1. Text); {число элементов массива}

SetLength (X, N); {задать массиву Х длину N}

Edit2. Text:= `»; {очистить окно Edit2}

For I:= 0 to N_1 do

Begin

X[I]:= Round (Sin(Random(100))*100);

{присвоить элементу массива случайное значение}

Edit2. Text:= Edit2. Text + `» + IntToStr (X[I]);

{вывести элементы массива}

End;

End;

Обработку массива опишите в процедуре обработчика события щелчка мышью на кнопке «Вычислить». В окне Редактора кода в заготовку процедуры поместите описание локальных переменных следующее:

Var

Max, Min, Sum, CountPlus: integer;

где Max - максимальный элемент массива, Min - минимальный элемент массива, Sum - сумма всех элементов массива, CountPlus - количество положительных элементов массива. Текст процедуры обработки массива может быть записан следующим образом:

Begin

If CheckBox1. Checked then Min:= X[0];

Edit3. Text:= `»;

If CheckBox2. Checked then Max:= X[0];

Edit4. Text:= `»;

Sum:= 0;

Edit5. Text:= `»;

CountPlus:= 0;

Edit6. Text:= `»;

For I:= 0 to N_1 do

Begin

If CheckBox1. Checked then

If Min > X[I] then Min:= X[I];

If CheckBox2. Checked then

If Max < X[I] then Max:= X[I];

If CheckBox3. Checked then

Sum:= Sum + X[I];

If CheckBox4. Checked then

If X[I] >0 then CountPlus:= CountPlus + 1;

End;

{вывод результатов обработки массива}

If CheckBox1. Checked then Edit3. Text:=IntToStr(Min);

If CheckBox2. Checked then Edit4. Text:=IntToStr(Max);

If CheckBox3. Checked then Edit5. Text:=IntToStr(Sum);

If CheckBox4. Checked then Edit6. Text:=IntToStr(CountPlus);

End;

Сохраните файлы проекта и программного модуля, запустите программу на выполнение, задавая различные значения числа элементов, убедитесь в правильной работе приложения.

Задание 2. Создайте приложение, которое выводит двумерный массив случайных целых чисел и определяет минимальный и максимальный элементы в этом массиве.

Решение:

1. Сохраните проект в папке «Массив2» с именем Massiv2 (файл модуля можно сохранить как Unit1).

2. Создайте форму «Обработка двумерного массива».

3. Выберите в палитре компонентов страницы Additional компонент StringGrid и разместите его в левом верхнем углу (см. рис. 5.1). Задайте для свойств ColCount (количество столбцов) и RowCount (количество строк) значение 6. Задайте для свойств FixedCols и FixedRows (количество фиксированных, непрокручиваемых столбцов и строк, используемых для размещения надписей номеров строк и столбцов).

Примечание: данный компонент представляет собой таблицу, содержащую строки. Таблица может иметь полосы прокрутки, причем заданное число первых строк и столбцов может быть фиксированным. Таким образом, можно задать заголовки столбцов и строк, постоянно присутствующие в окне компонента.

4. Справа от объекта разместите кнопку Button1 и задайте для нее свойство Caption значение «Заполнить». Ниже разместите панель GroupBox1 и присвойте значение «Определить». На данной панели разместите компоненты CheckBox 1,2 и назначьте свойству Caption значения «Минимальный элемент», «Максимальный элемент» соответственно. Затем справа разместите компоненты Edit 1,2 и кнопку с надписью «Вычислить». Выровняйте компоненты как показано на рис. 5.1.

5. Прежде чем создавать обработчики событий кнопок «Заполнить» и «Вычислить», следует добавить в раздел описания переменных данного модуля целочисленные переменные, предназначенные для хранения индексов массива.

Var

Form1: TForm1;

I, J: integer;

6. Создайте процедуру обработки события щелчка мышью на кнопке Button1, в которой сначала будет выполнена операция вывода номеров строк и столбцов, а затем ячейки StringGrid1 будут заполнены случайными целыми числами.

Рис. 5.1 Пример формы проекта «Массив2»

Примечание: при изучении языка TPascal вы использовали оператор with…do для сокращения записи при обращении к полям записей. Теперь можно применять этот оператор для обращения к свойствам и методам объекта. Это делается, чтобы избежать повторных ссылок на объект в последующих операторах. Например, вместо того чтобы, обращаясь к ячейки объекта StringGrid1 писать StringGrid1. Cells [I, J], удобнее использовать оператор with StringGrid1 do, в теле которого можно неоднократно обращаться к Cells [I, J], не упоминая имени объекта StringGrid1.

Процедура обработки события кнопки Button1:

Procedure TForm1. Button1Click (Sender: TObject);

{заполнение массива}

begin

randomize;

with StringGrid1 do

begin

I:= 0;

For J:= 1 to RowCount - 1 do {вывести номера строк}

Cells [I, J]:= IntToStr(J);

J:= 0;

For I:= 1 to ColCount - 1 do {вывести номера столбцов}

Cells [I, J]:= IntToStr(I);

End;

With StringGrid1 do {заполнение в таблице двумерного массива}

For I:= 1 to ColCount - 1 do

For J:= 1 to RowCount - 1 do

Begin

Cells [I, J]:= IntToStr (Round(Sin (Random(100))*100));

End;

End;

7. Создайте процедуру обработки массива для второй кнопки «Вычислить». Введите текст процедуры:

procedure TForm1. Button2Click (Sender: TObject); {обработка массива}

var

min, max: integer;

begin

if CheckBox1. Checked then

with StringGrid1 do

begin

min:= StrToInt (Cells [1,1]);

for I:=1 to colCount - 1 do

for J:= 1 to RowCount - 1 do

if StrToInt (Cells [I, J]) < min then min:= StrToInt (Cells [I, J]);

Edit1. Text:= IntToStr (min);

End

Else Edit1. Text:= `';

(Определение максимального записать самостоятельно аналогично первой части модуля).

End;

Приложение: Текст программы файла модуля.

unit main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;

Type TForm1 = class(TForm)

StringGrid1: TStringGrid;

Button1: TButton; Button2: TButton;

GroupBox1: TGroupBox; CheckBox1: TCheckBox; CheckBox2: TCheckBox;

Edit1: TEdit; Edit2: TEdit;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private {Private declarations}

public {Public declarations}

end;

var Form1: TForm1; i, j: integer;

implementation {$R *.dfm}

procedure TForm1. Button1Click (Sender: TObject);

begin Randomize;

with StringGrid1 do begin i:=0;

for j:=1 to RowCount_1 do Cells [i, j]:=IntToStr(j);

j:=0;

for i:=1 to ColCount_1 do Cells [i, j]:=IntToStr(i); end;

with StringGrid1 do

for i:=1 to ColCount_1 do

for j:=1 to RowCount_1 do

begin

Cells [i, j]:=IntToStr (Round(Sin (Random(100))*100));

end; end;

procedure TForm1. Button2Click (Sender: TObject);

var min, max:integer;

begin

if CheckBox1. Checked then

with StringGrid1 do begin

min:=StrToInt (Cells[1,1]);

for i:=1 to ColCount_1 do

for j:=1 to RowCount_1 do

if StrToInt (Cells[i, j])<min then min:=StrToInt (Cells[i, j]);

Edit1. Text:=IntToStr(Min);

End else Edit1. Text:='';

if CheckBox2. Checked then

with StringGrid1 do begin

max:=StrToInt (Cells[1,1]);

for i:=1 to ColCount_1 do

for j:=1 to RowCount_1 do

if StrToInt (Cells[i, j])>max then max:=StrToInt (Cells[i, j]);

Edit2. Text:=IntToStr(Max);

End else Edit2. Text:='';

end; end.


Подобные документы

  • Понятие двумерного массива целых чисел. Создание динамического массива из элементов, расположенных в четырех столбах данного массива и имеющих нечетное значение. Сохранение результатов в файл и выведение их на экран. Использование ввода с файла.

    курсовая работа [44,0 K], добавлен 09.11.2014

  • Разработка и реализация типовых алгоритмов обработки одномерных массивов на языке Delphi. Максимальный и минимальный элемент массива. Значение и расположение элементов массива. Элементы массива, находящиеся перед максимальным или минимальным элементом.

    лабораторная работа [12,8 K], добавлен 02.12.2014

  • Заполнение массива из целых чисел с присвоением элементам разных значений. Варианты программы с использованием различных операторов организации циклов. Определение квадрата максимального из четных элементов массива и общего числа нулевых элементов.

    лабораторная работа [259,3 K], добавлен 14.05.2011

  • Создание приложения, обеспечивающего ввод двух целых чисел и выполнение над ними арифметических операций сложения, умножения и вещественного деления. Разработка приложения, предлагающего ввести текст, а затем заменить символы "а" на "б" в тексте.

    лабораторная работа [21,4 K], добавлен 15.07.2009

  • Создание программы для вычисления суммы элементов массива. Проектирование приложения, которое бы переводило минуты в часы или часы и минуты в минуты. Написание HTML-страницы для работы с базой данных автобусов и водителей, интерфейс приложения PhpMyAdmin.

    учебное пособие [1,9 M], добавлен 25.05.2015

  • Описание особенностей работы с массивами на С/С++. Образование адресного выражения с использованием имени массива или указателя на массив. Написание программы, которая объединяет два упорядоченных по возрастанию массива в один упорядоченный массив.

    лабораторная работа [114,2 K], добавлен 25.03.2019

  • Массив - это коллекция переменных, которые имеют общее имя и базовый тип. Функциональные возможности, виды массивов и их характеристика. Основные требования к входным и выходным данным массива. Использование IF THEN для перехвата всех возможных ошибок.

    реферат [22,6 K], добавлен 01.12.2010

  • Общая характеристика организации массива в виде двоичного дерева. Особенности линейного и двоичного поиска заданного элемента массива. Методика упорядочения массива методом сортировки деревом. Инструкции и текст программы для нечисленной обработки данных.

    курсовая работа [242,3 K], добавлен 12.11.2010

  • Краткое описание языка программирования С++. Алгоритм линейного выбора элемента, методов минимального (максимального) элемента и челночной сортировки. Анализ и разработка приложения, организующего сортировку массива данных пятью методами сортировки.

    реферат [614,8 K], добавлен 12.04.2014

  • Описание общего алгоритма и интерфейса программы. Метод заполнения массива случайными числами. Метод вычисления длины линии между пространственными точками. Создание, синхронизация и завершение потоков. TThread как абстрактный класс, листинг программы.

    курсовая работа [664,0 K], добавлен 08.04.2014

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.