Настройка компонента TstringGrid

Для установки компонета TStringGrid на форму необходимо на странице Additional меню компонентов щелкнуть мышью по пиктограмме. После этого щелкните мышью в нужном месте формы. Захватывая кромки компонента, отрегулируйте его размер. В инспекторе объектов значения свойств ColCount и RowCount установите 2, а FixedCols и FixedRows установите 1. Так как компоненты StringGrid2 и StringGrid3 имеют только один столбец, то у них: ColCount=1, RowCount=2, FixedCols=0 и FixedRows=1. По умолчанию в компонент TStringGrid запрещен ввод информации с клавиатуры, поэтому необходимо свойство Options goEditing для компонентов StringGrid1 и StringGrid2 установить в положение True.

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

Unit Rab_4;

Interface

Uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, Grids;

type

TInputForm = class(TForm)

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

StringGrid3: TStringGrid;

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Procedure FormCreate(Sender: TObject);

Procedure Button1Click(Sender: TObject);

Procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

const

Nmax = 10; // Максимальная размерность массива

type

Mas1 = array[1..Nmax] of Extended; // Объявление типа одномерного массива

Mas2 = array[1..Nmax, 1..Nmax] of Extended; // Объявление типа двумерного массива

var

InputForm: TInputForm;

A : Mas2; // Объявление двумерного массива

B, Y : Mas1; // Объявление одномерных массивов

N, i, j : integer;

Implementation

{$R *.DFM}

Procedure TInputForm.FormCreate(Sender: TObject);

begin

N := 3; // Размерность массива

Edit1.Text := FloatToStr(N);

// Задание числа строк и столбцов

StringGrid1.ColCount := N + 1;

StringGrid1.RowCount := N + 1;

StringGrid2.RowCount := N + 1;

StringGrid3.RowCount := N + 1;

// Ввод в левую верхнюю ячейку таблицы названия массива

StringGrid1.Cells[0, 0] := 'Массив A';

StringGrid2.Cells[0, 0] := 'Массив B';

StringGrid3.Cells[0, 0] := 'Массив Y';

// Заполнение верхнего и левого столбцов поясняющими подписями

for i:=1 to N do

begin

StringGrid1.Cells[0, i] := 'i='+ IntToStr(i);

StringGrid1.Cells[i, 0] := 'j='+ IntToStr(i);

end;

end;

Procedure TInputForm.Button1Click(Sender: TObject);

begin

N := StrToInt(Edit1.Text);

// Задание числа строк и столбцов в таблицах

StringGrid1.ColCount := N + 1;

StringGrid1.RowCount := N + 1;

StringGrid2.RowCount := N + 1;

StringGrid3.RowCount := N + 1;

// Заполнение верхнего и левого столбцов поясняющими подписями

for i:=1 to N do

begin

StringGrid1.Cells[0, i] := 'i=' + IntToStr(i);

StringGrid1.Cells[i, 0] := 'j=' + IntToStr(i);

end;

end;

Procedure TInputForm.Button2Click(Sender: TObject);

var

s : extended;

begin

// Заполнение массива A элементами из тавлицы StringGrid1

for i:=1 to N do

for j:=1 to N do

A[i, j] := StrToFloat(StringGrid1.Cells[j, i]);

// Заполнение массива B элементами из тавлицы StringGrid2

for i:=1 to N do

B[i] := StrToFloat(StringGrid2.Cells[0, i]);

// Умножение массива A на массив B

for i:=1 to N do

begin

s := 0;

for j:=1 to N do

s := s + A[i, j]*B[j];

Y[i] := s;

// Вывод результата в таблицу StringGrid3

StringGrid3.Cells[0, i] := FloatToStrF(Y[i], ffFixed,6,2);

end;

end;

end.

Индивидуальные задания

Во всех заданиях по теме “Массивы” скалярные переменные вводить с помощью компонета Tedit с соответствующим пояснением в виде компоненета TLabel. Скалярный результат выводить в виде компонента TLabel. Массивы представлять на форме в виде компонентов TStringGrid, в которых 0-й столбец и 0-ю строку использовать для отображения индексов массивов. Вычисления выполнять, после нажатия кнопки типа TButton.

1. Задана матрица размером . Получить массив B, присвоив его k-муэлементу значение 0, если все элементы k-го столбца матрицы нулевые, и значение 1 в противном случае.

2. Задана матрица размером . Получить массив B, присвоив его k-му элементу значение 1, если элементы k-ой строки матрицы упорядочены по убыванию, и значение 0 в противном случае.

3. Задана матрица размером . Получить массив B, присвоив его k-му элементу значение 1, если k-ая строка матрицы симметрична, и значение 0 в противном случае.

4. Задана матрица размером . Определить k - количество "особых" элементов матрицы, считая элемент "особым", если он больше суммы остальных элементов своего столбца.

5. Задана матрица размером . Определить k - количество "особых" элементов матрицы, считая элемент “особым”, если в его строке слева от него находятся элементы меньшие его, а справа – большие.

6. Задана символьная матрица размером . Определить k - количество различных элементов матрицы (т. е. повторяющиеся элементы считать один раз).

7. Дана матрица размером . Упорядочить ее строки по неубываниюих первых элементов.

8. Дана матрица размером . Упорядочить ее строки по неубыванию суммы их элементов.

9. Дана матрица размером . Упорядочить ее строки по неубыванию их наибольших элементов.

10. Определить, является ли заданная квадратная матрица n-го порядка симметричной относительно побочной диагонали.

11. Для матрицы размером вывести на экран все ее седловые точки. Элемент матрицы называется седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце или, наоборот.

12. В матрице n-го порядка переставить строки так, чтобы на главной диагонали матрицы были расположены элементы, наибольшие по абсолютной величине.

13. В матрице n-гo порядка найти максимальный среди элементов, лежащих ниже побочной диагонали, и минимальный среди элементов, лежащих выше главной диагонали.

14. В матрице размером поменять местами строку, содержащую элемент с наибольшим значением со строкой, содержащей элемент с наименьшим.

15. Из матрицы п-го порядка получить матрицу порядка п-1 путем удаления из исходной матрицы строки и столбца, на пересечении которых расположен элемент с наибольшим по модулю значением.

16. Дан массив из k символов. Вывести на экран сначала все цифры, входящие в него, а затем все остальные символы, сохраняя при этом взаимное расположение символов в каждой из этих двух групп.

17. Дан массив, содержащий от 1 до k символов, за которым следует точка. Вывести этот текст в обратном порядке.

18. Дан непустой массив из цифр. Вывести на экран цифру, наиболее часто встречающуюся в этом массиве.

19. Отсортировать элементы массива Х по возрастанию.

20. Элементы массива Х расположить в обратном порядке.

21. Элементы массива Х циклически сдвинуть на k позиций влево.

22. Элементы массива Х циклически сдвинуть на n позиций вправо.

23. Преобразовать массив Х по следующему правилу: все отрицательные элементы массива перенести в начало, а все остальные – в конец, сохраняя исходное взаимное расположение, как среди отрицательных, так и среди остальных элементов.

24. Элементы каждого из массивов X и Y упорядочены по неубыванию. Объединить элементы этих двух массивов в один массив Z так, чтобы они снова оказались упорядоченными по неубыванию.

25. Дан массив из k символов. Определить симметричен ли он, т. е. читается ли он одинаково слева направо и справа налево.

26. Даны два массива. Найти наименьшее среди тех элементов первого массива, которое не входит во второй.

27. Определить количество инверсий в этом массиве Х (т.е. таких пар элементов, в которых большее число находится слева от наименьшего: при ).

28. Дан массив из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые входят в этот текст по одному разу.

29. Вывести на экран заданный массив из k символов, удалив из него повторные вхождения каждого символа.

30. Определить сколько различных символов входит в заданный текст, содержащий не более k символов и оканчивающийся точкой (в сам текст точка не входит).

Работа 5.