Визуальная среда программирования Borland Delphi 7.0

Для каждого элемента массива не имеет смысла создавать свое поле ввода. Очевидно, что последовательность чисел удобно вводить в строку таблицы, где каждое число находится в отдельной ячейке. Ниже рассматриваются два варианта организации ввода массива с использованием компонентов StringGrid и Memo.

Использование компонента StringGrid. Для ввода массива удобно использовать компонент StringGrid. Значок этого компонента находится на вкладке Additional (рис. 2).

Рис. 2. Компонент StringGrid

Компонент StringGrid представляет собой таблицу, ячейки которой содержат строки символов. В табл. 1 перечислены некоторые свойства компонента StringGrid.

Таблица 1. Свойства компонента StringGrid

В качестве примера использования компонента StringGrid для ввода массива рассмотрим программу, которая вычисляет среднее арифметическое значение элементов массива. Диалоговое окно программы приведено на рис. 3. Компонент stringGrid используется для ввода массива, компоненты Label1 и Label2 -- для вывода пояснительного текста и результата расчета, Button1 -- для запуска процесса расчета

Рис. 3. Диалоговое окно программы Ввод и обработка массива

Добавьте компонент StringGrid в форму. После добавления компонента к форме нужно выполнить его настройку в соответствии с табл.2.

Текст программы приведен ниже.

Таблица 2. Значения свойств компонента stringGrid1

unit getar_;

interface

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

type TForml = class(TForm)

Labell: TLabel;

StringGridl: TStringGrid;

Buttonl: TButton;

Label2: TLabel;

procedure ButtonlClick(Sender: TObject);

end;

var Forml: TForml;

implementation

{$R*.dfm}

procedure TForml.ButtonlClick(Sender: TObject);

var

a: array[1..5] of integer; // массив summ: integer;// сумма элементов

sr: real;// среднее арифметическое

i: integer; //индекс begin

// считаем, что если ячейка пустая, то соответствующий ей элемент массива равен нулю

for i:= 1 to 5 do

if Length(StringGridl.Cells[i-1,0]) <> 0

then a[i] := StrToInt(StringGridl.Cells[i-1,0]) else a[i] := 0;

// обработка массива

summ := 0;

for i :=1 to 5 do summ := summ + a[i];

sr := summ /5;

// вывод результата

Label2.Caption : = 'Сумма элементов: ' +IntToStr(summ) + #13+

'Среднее арифметическое: ' + FloatToStr (sr);

end; end.

После пробных запусков программы возникает желание внести изменения в процесс ввода массива. Так, было бы неплохо, чтобы курсор автоматически переходил в следующую ячейку таблицы, например, в результате нажатия клавиши <Enter>. Сделать это можно при помощи процедуры обработки события onKeyPress. На эту же процедуру можно возложить задачу фильтрации вводимых в ячейку таблицы данных. В нашем случае надо разрешить ввод в ячейку только цифр.

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

procedure TForml.StringGridlKeyPress(Sender: TObject; var Key: Char);

begin

case Key of

#8, '0'..'9': ; // цифры и клавиша <Backspace>

#13: // клавиша <Enter>

if StringGridl.Col < StringGridl.ColCount -- 1

then StringGridl.Col := StringGridl.Col + 1

else key := Chr(0); // остальные символы запрещены

end;

end;

Если нужно ввести массив дробных чисел (a: array [i..5] of real), то процедура обработки события OnKeypress несколько усложнится, т. к. помимо цифр допустимыми символами являются символ-разделитель (запятая или точка -- зависит от настройки Windows) и минус. С целью обеспечения некоторой дружественности программы по отношению к пользователю можно применить трюк: подменить вводимый пользователем неверный разделитель верным. Определить, какой символ-разделитель допустим в текущей настройке Windows, можно, обратившись к глобальной переменной DecimalSeparator.

Ниже приведен текст модуля приложения ввода и обработки массива дробных чисел. Процедура обработки события OnKeypress обеспечивает ввод в ячейку таблицы только допустимых при записи дробного числа символов.

unit getar_1;

interface

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

type

TForml = class(TForm)

Labell: TLabel;

StringGridl: TStringGrid;

Buttonl: TButton;

Label2: TLabel;

procedure ButtonlClick(Sender: TObject);

procedure StringGridlKeyPress(Sender: TObject; var Key: Char);

end;

var Forml: TForml;

implementation

{$R *.dfm)

procedure TForml.ButtonlClick(Sender: TObject);

Var

a : array[1..5] of real; // массив

sum, sr: real;

i: integer;

begin

for i:= I to 5 do

if Length(StringGridl.Cells[i-1,0]) <>0

then a[i] := StrToFloat(StringGridl.Cells[i-1,0])

else a[i] := 0;

summ := 0;

for i :=1 to 5 do summ := summ + a[i];

sr := summ / 5;

Label2.Caption := 'Сумма элементов: ' + FloatToStr(summ) + #13+ 'Среднее арифметическое: ' + FloatToStr(sr);

end;

// Функция обеспечивает ввод в ячейку только допустимых символов

procedure TForml.StringGridlKeyPress(Sender: TObject; var Key: Char);

begin

case Key of

#8,'0'..'9' : ;

#13:

if StringGridl.Col < StringGridl.ColCount -- 1

then StringGridl.Col := StringGridl.Col + 1;

'.',',': // разделитель целой и дробной частей числа

begin

if Key <> DecimalSeparator then

Key := DecimalSeparator ; //заменим разделитель на допустимый

if Роs(DecimalSeparator ,StringGridl.Cells[StringGridl.Col,0]) <>0

then Key := Chr(0); // запрет ввода второго разделителя

end;

` -`: // минус можно ввести только первым символом,

if Length(StringGridl.Cells[StringGridl.Col,0]) <>0

then Key := Chr(0);

else // остальные символы запрещены

key := Chr(0);

end; end; end.

6.1 Задание №3 Использование массива и компонента StringGrid

На форме разместить компонент StringGrid1, в котором поместить информацию, содержащую не менее 3-х полей. Если в варианте задания нет специальных указаний, то структуру задать произвольно.

Предусмотреть ручное заполнение StringGrid1 или из файла данных. Работу с файлом изучить самостоятельно.

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

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

3. Выполнить поиск минимального и максимального элементов (самый дорогой и самый дешевый товары или самый молодой и старший сотрудники и т.д.). По нажатию специальной кнопки выполнить их обмен местами в компоненте StringGrid1.

4. Отсортировать набор данных по некоторому текстовому полю. Реализовать функцию бинарного поиска по этому полю. Если запись найдена, вывести данные в отдельной метке, а иначе - сообщение об этом. Вычислить количество выполненных сравнений.

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

6. Реализовать задачу хеширования согласно вашей лабораторной работе в приложении Delphi. Предусмотреть загрузку из файла, выгрузку в файл, операции поиска, добавления, удаления записи. Организовать работу в меню.

7. Разместить информацию о товарах: артикул, название, цена, количество. Реализовать операции поставки товара (нового и существующего) в заданном количестве. Для каждой операции вычислять ее стоимость в отдельной метке.

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

9. Разместить информацию о студентах: шифр зачетной книжки, ФИО, группа. Выполнить поиск студента по шифру и перевод его на следующий курс (нажатие на кнопку Перевести). Предусмотреть перевод на следующий курс всех студентов в списке.

10. Разместить информацию о студентах: шифр зачетной книжки, ФИО, группа. Выполнить поиск студентов, чьи фамилии начинаются или заканчиваются на заданную букву. Найденных студентов поместить в отдельное Memo- поле. Букву запрашивать в отдельном текстовом поле.

11. Разместить информацию о книгах: номер, автор, название, цена. Отсортировать набор данных по номеру книги. Реализовать функцию бинарного поиска по этому полю. Если запись найдена, вывести данные в отдельной метке, а иначе - сообщение об этом. Вычислить количество выполненных сравнений.

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

13. Разместить информацию о сотрудниках: фамилия, отдел, дата рождения. Отсортировать список сотрудников по названию отдела методом выбора. Вычислить количество сравнений и обменов. В отдельной метке вывести количество сотрудников в каждом отделе.

14. Разместить ежедневную температуру воздуха, например, за апрель. Определить самый холодный, самый теплый день апреля, вычислить среднюю температуру за месяц. Расчетные данные поместить в файл апрель.txt. Дополнить форму выбором месяца из списка выбора, очистку данных для ввода новой информации и сохранение расчетных значений в соответствующий файл с именем <месяц>.txt

15. Разместить информацию о товарах: артикул, название, цена, количество. Отсортировать список по возрастанию количества товаров на складе. В отдельном Memo- поле вывести товары, которые закончились или почти закончились (менее 3 штук).

16. Разместить ежемесячные начисления некоторого сотрудника за 12 (или менее) месяцев текущего года. Сделать выбор ФИО сотрудника из списка. Вычислить его средний заработок, общий заработок и подоходный налог (в % и рублях), который определяется в зависимости от размера общего заработка (спросить у родителей).

17. Вывести результаты сдачи сессии из трех экзаменов некоторой группы: фамилия, оценка 1, оценка 2, оценка 3. Отсортировать список по алфавиту любым методом. В четвертом столбце вычислить размер начисленной стипендии, которая зависит от результатов сессии

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

Размещено на Allbest