|
|
Настройка компонента TStringGridДля установки компонента TStringGrid на форму необходимо на странице Additional меню компонентов щелкнуть мышью по пиктограмме Текст программы приведен ниже. unit tem4;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;
type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Button2: TButton; StringGrid1: TStringGrid; StringGrid2: TStringGrid; StringGrid3: TStringGrid; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
const Nmax=10; // Максимальная размерность массива Type Mas2 = array[1..Nmax,1..Nmax] of extended; // Объявление типа двумерного массива размерностью Nmax Mas1 = array[1..Nmax] of extended; // Объявление типа одномерного массива размерностью Nmax var Form1: TForm1; A: Mas2; // Объявление двумерного массива B,Y: Mas1; // Объявление одномерных массивов N,i,j: integer;
implementation
{$R *.DFM}
procedure TForm1.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 TForm1.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 TForm1.Button2Click(Sender: TObject); var s: extended; begin {Заполнение массива А элементами из таблицы 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]); {Умножение массива А на массив В} 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. 4.4. Индивидуальные задания Во всех заданиях по теме «Массивы» скалярные переменные вводить с помощью компонента TEdit с соответствующим пояснением в виде компонента TLabel. Скалярный результат выводить в виде компонента TLabel. Массивы представлять на форме в виде компонентов TStringGrid, в которых 0-й столбец и 0-ю строку использовать для отображения индексов массивов. Вычисления выполнять, после нажатия кнопки типа TВutton. 1. Задана матрица размером NxM. Получить массив B, присвоив его k- му элементу значение 0, если все элементы k -го столбца матрицы нулевые, и значение 1в противном случае. 2. Задана матрица размером NxM. Получить массив B, присвоив его k- му элементу значение 1, если элементы k –й строки матрицы упорядочены по убыванию, и значение 0в противном случае. 3. Задана матрица размером NxM. Получить массив B, присвоив его k- му элементу значение 1, если k -я строка матрицы симметрична, и значение 0в противном случае. 4. Задана матрица размером NxM. Определить k – количество “особых” элементов матрицы, считая элемент “особым”, если он больше суммы остальных элементов своего столбца. 5. Задана матрица размером NxM. Определить k – количество “особых” элементов матрицы, считая элемент “особым”, если в его строке слева от него находятся элементы, меньшие его, а справа – б о льшие. 6. Задана символьная матрицаразмером NxM. Определить k - количество различных элементов матрицы (т.е. повторяющиеся элементы считать один раз). 7. Дана матрица размером NxM. Упорядочить ее строки по неубыванию их первых элементов. 8. Дана матрица размером NxM. Упорядочить ее строки по неубыванию суммы их элементов. 9. Дана матрица размером NxM. Упорядочить ее строки по неубыванию их наибольших элементов. 10. Определить, является ли заданная квадратная матрица n -го порядка симметричной относительно побочной диагонали. 11. Для матрицы размером NxM вывести на экран все ее седловые точки. Элемент матрицы называется седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце или, наоборот. 12. В матрице n -го порядка переставить строки так, чтобы на главной диагонали матрицы были расположены элементы, наибольшие по абсолютной величине. 13. В матрице n -го порядка найти максимальный среди элементов, лежащих ниже побочной диагонали, и минимальный среди элементов, лежащих выше главной диагонали. 14. В матрице размером NxM поменять местами строку, содержащую элемент с наибольшим значением со строкой, содержащей элемент с наименьшим значением. 15. Из матрицы n -го порядка получить матрицу порядка n-1 путем удаления из исходной матрицы строки и столбца,на пересечении которых расположен элемент с наибольшим по модулю значением. 16. Дан массив из k символов. Вывести на экран сначала все цифры, входящие в него, а затем все остальные символы, сохраняя при этом взаимное расположение символов в каждой из этих двух групп. 17. Дан массив, содержащий от 1 до k символов, за которым следует точка. Вывести этот текст в обратном порядке. 18. Дан непустой массив из цифр. Вывести на экран цифру, наиболее часто встречающуюся в этом массиве. 19. Отсортировать элементы массива X по возростанию. 20. Элементы массива X расположить в обратном порядке. 21. Элементы массива X циклически сдвинуть на k позиций влево. 22. Элементы массива X циклически сдвинуть на n позиций вправо. 23. Преобразовать массив X по следующему правилу: все отрицательные элементы массива перенести в начало, а все остальные – в конец, сохраняя исходное взаимное расположение, как среди отрицательных, так и среди остальных элементов. 24. Элементы каждого из массивов X и Y упорядочены по неубыванию. Объединить элементы этих двух массивов в один массив Z так, чтобы они снова оказались упоряченными по неубыванию. 25. Дан массив из k символов. Определить, симметричен ли он, т.е. читается ли он одинаково слева направо и справа налево. 26. Дано два массива. Найти наименьшее среди тех элементов первого массива, которые не входят во второй массив. 27. Определить количество инверсий в этом массиве X (т.е. таких пар элементов, в которых большее число находится слева от меньшего: xi >xj при i<j). 28. Дан массив из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые входят в этот текст по одному разу. 29. Вывести на экран заданный массив из k символов, удалив из него повторные вхождения каждого символа. 30. Определить сколько различных символов входит в заданный текст, содержащий не более k символов и оканчивающийся точкой (в сам текст точка не входит).
  Что делать, если нет взаимности? А теперь спустимся с небес на землю. Приземлились? Продолжаем разговор...  ЧТО ТАКОЕ УВЕРЕННОЕ ПОВЕДЕНИЕ В МЕЖЛИЧНОСТНЫХ ОТНОШЕНИЯХ? Исторически существует три основных модели различий, существующих между...  ЧТО ПРОИСХОДИТ, КОГДА МЫ ССОРИМСЯ Не понимая различий, существующих между мужчинами и женщинами, очень легко довести дело до ссоры...  Конфликты в семейной жизни. Как это изменить? Редкий брак и взаимоотношения существуют без конфликтов и напряженности. Через это проходят все... Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:
|
. После этого щелкните мышью в нужном месте формы. Захватывая кромки компонента отрегулируйте его размер. В инспекторе объектов значения свойств ColCount и RowCount установите 2 (две строки и два столбца), а FixedCols и FixedRows установите 1 (один столбец и одна строка с фиксированной зоной). Т.к. компоненты StringGrid2 и StringGrid3 имеют только один столбец, то у них: ColCount= 1, RowCount=2, FixedCols=0 и FixedRows=1. По умолчанию в компонент TStringGrid запрещен ввод информации с клавиатуры, поэтому необходимо свойство Options goEditing для компонентов StringGrid1 и StringGrid2 установить в положение True.