DELPHI 7
.pdf
vk.com/club152685050 | vk.com/id446425943
Задача 3.
Ввести элементы матрицы В(6, 6). Если сумма модулей элементов первого столбца матрицы принадлежит отрезку [2, 6], то элементы второстепенной диагонали умножить на 4, иначе элементы главной диагонали заменить их квадратами. Полученную матрицу транспонировать. Транспонирование матрицы оформить в виде процедуры. Результат идентифицировать.
67
vk.com/club152685050 | vk.com/id446425943
Вариант 4.
В матрице D(6, 6) вычислить сумму элементов строк, начинающихся с неотрицательного значения. Сформировать из неотрицательных элементов матрицы D вектор F и упорядочить его элементы по возрастанию, определив общее количество элементов, превышающих среднее арифметическое значение элементов матрицы D. Сортировку элементов вектора F оформить в виде функции пользователя. Результаты идентифицировать.
68
vk.com/club152685050 | vk.com/id446425943
Работа с таблицами
Основные компоненты
vk.com/club152685050 | vk.com/id446425943
Компонент TStringGrid – таблица строк
StringGrid1.
.ColCount – максимальный индекс строки
.RowCount – максимальный индекс столбца
.ColWidths[Index:Longint] – ширина столбца
.RowWidths[Index:Longint] – высота строки
.FixedCols – число фиксированных столбцов
.FixedRows – число фиксированных строк
vk.com/club152685050 | vk.com/id446425943
Компонент TStringGrid – таблица строк
Особенности использования:
-По умолчанию создается таблица размером 5х5;
-Нумерация строк и столбцов начинается с 0;
-Число строк и столбцов, имеющих характер заголовков, задается свойствами FixedCols и FixedRows. Если таблица не содержит заголовочной информации, эти свойства должны принимать значение 0.
vk.com/club152685050 | vk.com/id446425943
Компонент TStringGrid – таблица строк
Установка для просмотра нужной области таблицы (номера первых видимых столбцов и строк)
procedure TForm1.Button1Click(Sender: TObject); Begin
StringGrid1.LeftCol := 3;
StringGrid1.TopRow := 5; End;
vk.com/club152685050 | vk.com/id446425943
Компонент TStringGrid – таблица строк
Заполнение ячеек их координатами:
procedure TForm1.FormCreate(Sender: TObject); Var c,r: integer;
Begin
StringGrid1.ColCount := 10;
StringGrid1.RowCount := 10;
For c:=0 to StringGrid1.ColCount – 1 do For r:= 0 to StringGrid1.RowCount – 1 do StringGrid1.Cells[c,r] :=
‘(’ + IntToStr(c) + ’,’ + IntToStr(r) + ‘)’; End;
vk.com/club152685050 | vk.com/id446425943
Компонент TStringGrid – таблица строк
Выделение прямоугольной области ячеек:
procedure TForm1.Button1Click(Sender: TObject); Var Grect: TGridRect;
Begin
GRect.Left := 2;
GRect.Top := 2;
GRect.Right := 3;
GRect.Bottom := 5; StringGrid1.Selection := GRect;
End;
vk.com/club152685050 | vk.com/id446425943
Компонент TDrawGrid – рисуемая таблица
Особенности использования:
-Работа по визуальному представлению каждого объекта в ячейке полностью возлагается на программиста;
-Большинство свойств совпадают с аналогичными свойствами таблицы строк;
-Создавать массивы объектов необходимо отдельно
-Класс TDrawGrid может быть использован как базовый класс для создания собственных электронных таблиц со сложным поведением.
vk.com/club152685050 | vk.com/id446425943
Компонент F1book – аналог таблицы Excel
|
|
|
|
|
|
F1book1. |
- (см. закладку ActiveX) |
|
-.NumberRC[ i, j ] – адресация ячеек
-.ClearRange (r1, c1, r2, c2, k),
где k=1 – все, k=2 – форматы, k=3 – значения
- .Write(‘имя файла.txt’, результат) – вывод в файл