Лабораторная работа 7. Двумерный массив

2011-2012 учебный год

Краткая теория

К сегодняшнему занятию Вами изучены следующие элементы управления

• 1. Edit

  2. Label

  3. Button

  4. RadioButton

  5. CheckBox

  6. SpinEdit (на вкладке Misc)

  7. ListBox (на вкладке Standard)

  8. Memo (на вкладке Standard)

  9. ShowMessage

Компонент TStringGrid в Lazarus

Компонент TStringGrid - на вкладке компонентов Additional. Настройка таблицы StringGrid1

в окне Инспектор объектов

• 1. Убрать заголовки строк

  2. FixedCols = 0

  3. Убрать заголовки колонок

  4. FixedRows = 0

  5. Установить количество колонок

  6. ColCount = 5

  7. Установить количество строк

  8. RowCount = 1

  9. Установить ширину всех колонок

  10. DefaultColWidth = 30

  11. Установить высоту всех строк

  12. DefaultRowHeight = 30

Об отметках

Основные упражнения не отмечены никакими специальными знаками, их выполнения достаточно для удовлетворительной оценки. Дополнительные упражнения отмечены "звездочками", их выполнение необходимо для получения повышенной оценки.

• • "5" - в отчете выполнены все основные упражнения, дополнительно выполнены упражнения с одной и двумя "звездочками".

  • "4" - в отчете выполнены все основные упражнения, дополнительно выполнены упражнения с одной "звездочкой".

  • "3" - в отчете выполнены все основные упражнения.

Упражнения

• 1. Сумма матрицы. Задать элементы двумерного массива целыми числами из отрезка с заданными границами с помощью генератора псевдослучайных чисел (ГПЧ). Подсчитать сумму всех элементов двумерного массива.

  2. Требования к выполнению. Использовать целые случайные числа. Разместить на форме следующие компоненты.

  3. Пример интерфейса

• • 1. Пример.

       1. procedure TForm1.Button1Click(Sender: TObject); var     col, row : Byte;     a, b     : Integer; begin     randomize;     a := SpinEdit1.Value;     b := SpinEdit2.Value;     for col := 0 to StringGrid1.ColCount - 1 do begin         for row := 0 to StringGrid1.RowCount - 1 do begin             StringGrid1.Cells[col, row] := IntToStr(Random(b - a + 1) + a);         end;     end; end;  procedure TForm1.Button2Click(Sender: TObject); var     col, row : Byte;     s        : Integer; begin     s := 0;     for col := 0 to StringGrid1.ColCount - 1 do begin         for row := 0 to StringGrid1.RowCount - 1 do begin             s := s + StrToInt(StringGrid1.Cells[col, row]);         end;     end;     Label1.Caption := IntToStr(s); end;  procedure TForm1.FormShow(Sender: TObject); var     col, row : Byte;     a, b     : Integer; begin     randomize;     a := SpinEdit1.Value;     b := SpinEdit2.Value;     for col := 0 to StringGrid1.ColCount - 1 do begin         StringGrid1.Columns.Items[col].Alignment := taRightJustify;         // StringGrid1.Columns.Items[col].Width:=20;         for row := 0 to StringGrid1.RowCount - 1 do begin             StringGrid1.Cells[col, row]:=IntToStr(Random(b - a + 1) + a);         end;     end; end;

• 1. Квадраты отрицательных. Заменить все отрицательные числа в матрице их квадратами.

  2. Требования к выполнению. Использовать целые случайные числа. Разместить на форме следующие компоненты.

  3. Пример интерфейса

• • 1. procedure TForm1.Button1Click(Sender: TObject); {См. Пример 1}  procedure TForm1.Button2Click(Sender: TObject); var     col, row : Byte;     s        : Integer; begin     for col := 0 to StringGrid1.ColCount - 1 do begin         for row := 0 to StringGrid1.RowCount - 1 do begin             s := StrToInt(StringGrid1.Cells[col, row]);             if s < 0 then begin                 StringGrid1.Cells[col, row] := IntToStr(s * s);             end;         end;     end; end;  procedure TForm1.FormShow(Sender: TObject); {См. Пример 1} 

• 1. Диагональ матрицы. Заменить все числа на диагонали матрицы единицами.

  2. Требования к выполнению. Использовать целые случайные числа.

  3. Задание для самостоятельного выполнения. Найти сумму элементов над главной диагональю и сумму под главной диагональю, вывести их в Label1 и Label2.

  4. Пример интерфейса

• • 1. if col = row then begin     StringGrid1.Cells[col, row] := '1'; end;

Домашнее задание

• 1. Сумма матрицы 2. В программе к задаче "Сумма матрицы" Отдельно вычислить суммы строк и столбцов и записать их соответсвенно в FixedRow, FixedCol.

  2. Требования к выполнению. Использовать целые случайные числа. Разместить на форме следующие компоненты.