Лабораторная работа 9. Поиск данных

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

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

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

• 1. Edit

  2. Label

  3. Button

  4. RadioButton

  5. CheckBox

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

  7. FloatSpinEdit (на вкладке Misc)

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

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

  10. GroupRadioButton (на вкладке Standard)

  11. ShowMessage, MessageBox

  12. StringGrid (на вкладке Additional)

Компонент 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

  13. Разрешить редактирование ячеек

  14. Options/goEditing = True

Об отметках

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

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

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

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

Упражнения

• 1. Поиск 1. Найти заданный элемент в двумерном массиве или вывести сообщение о том, что такого элемента нет.

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

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

• 1. Пример программы

     1. // Глобальные константы.

     2. const

     3.    FIRST_COL = 0;

     4.    BRUSH_COLOR = clLime;

     5.    SHIFT_TEXT_X = 3;

     6.    SHIFT_TEXT_Y = 3;

     7.    NOT_FOUND = 'Не обнаружено';

     8. procedure TForm1.Button1Click(Sender: TObject);

     9. var

     10.    col, row : Byte;

     11.    a, b     : Integer;

     12. begin

     13.    a := SpinEdit1.Value;

     14.    b := SpinEdit2.Value;

     15.    for col := 1 to StringGrid1.ColCount - 1 do begin

     16.        for row := 1 to StringGrid1.RowCount - 1 do begin

     17.            StringGrid1.Cells[col, row]:=IntToStr(Random(b - a + 1) + a);

     18.        end;

     19.    end;

     20. end;

     21. procedure TForm1.Button2Click(Sender: TObject);

     22. var

     23.    col, row : Byte;

     24.    s        : Integer;

     25.    is_found : Boolean;

     26.    rect     : TRect;

     27.    ts       : string;

     28. begin

     29.    s := SpinEdit3.Value;

     30.    is_found := False;

     31.    for col := 1 to StringGrid1.ColCount - 1 do begin

     32.        for row := 1 to StringGrid1.RowCount - 1 do begin

     33.            if s = StrToInt(StringGrid1.Cells[col, row]) then begin

     34.                 ts := StringGrid1.Cells[col, row];

     35.                 is_found := True;

     36.                 rect := StringGrid1.CellRect(col, row);

     37.                 StringGrid1.Canvas.Brush.Color := BRUSH_COLOR;

     38.                 StringGrid1.Canvas.FillRect(rect);

     39. //                 StringGrid1.Cells[col, row] := ts;

     40.                 StringGrid1.Canvas.TextOut(rect.Left+SHIFT_TEXT_X, rect.Top+SHIFT_TEXT_Y, ts);

     41.            end;

     42.        end;

     43.    end;

     44.    if not(is_found) then

     45.        Application.MessageBox(PChar(NOT_FOUND+': '+IntToStr(s)), PChar(NOT_FOUND), 0);

     46. end;

     47. procedure TForm1.FormShow(Sender: TObject);

     48. var

     49.    col, row : Byte;

     50.    a, b     : Integer;

     51. begin

     52.    StringGrid1.Canvas.Pen.Color := BRUSH_COLOR;

     53.    a := SpinEdit1.Value;

     54.    b := SpinEdit2.Value;

     55.    for col := 1 to StringGrid1.ColCount - 1 do begin

     56.        for row := 1 to StringGrid1.RowCount - 1 do begin

     57.            StringGrid1.Cells[col, row]:=IntToStr(Random(b - a + 1) + a);

     58.            StringGrid1.Cells[FIRST_COL, row]:=IntToStr(row);

     59.        end;

     60.    end;

     61. end;

  2. Поиск 2. Найти в двумерном массиве все элементы, которые входят в заданный отрезок.

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

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

  5.  

• 1. Пример программы

     1. var   Form1: TForm1;  // Глобальные константы. const     FIRST_COL = 0;     BRUSH_COLOR = clLime;     SHIFT_TEXT_X = 3;     SHIFT_TEXT_Y = 3;     NOT_FOUND = 'Не обнаружено';  procedure TForm1.Button1Click(Sender: TObject); var     col, row : Byte;     a, b     : Integer; begin     a := SpinEdit1.Value;     b := SpinEdit2.Value;     for col := 1 to StringGrid1.ColCount - 1 do begin         for row := 1 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;     is_found : Boolean;     rect     : TRect;     ts       : string;     c, d, x  : Integer;  begin     c := SpinEdit3.Value;     d := SpinEdit4.Value;     is_found := False;     for col := 1 to StringGrid1.ColCount - 1 do begin         for row := 1 to StringGrid1.RowCount - 1 do begin             x := StrToInt(StringGrid1.Cells[col, row]);             if (x > c) and (x < d) then begin                  ts := StringGrid1.Cells[col, row];                  is_found := True;                  rect := StringGrid1.CellRect(col, row);                   StringGrid1.Canvas.Brush.Color := BRUSH_COLOR;                  StringGrid1.Canvas.FillRect(rect); //                 StringGrid1.Cells[i,j] := ts;                  StringGrid1.Canvas.TextOut(rect.Left+SHIFT_TEXT_X, rect.Top+SHIFT_TEXT_Y, ts);             end;         end;     end;     if not(is_found) then         Application.MessageBox(PChar(NOT_FOUND + ': [' + IntToStr(c) + '; ' + IntToStr(d) + ']'), PChar(NOT_FOUND), 0); end;  procedure TForm1.FormShow(Sender: TObject); var     col, row : Byte;     a, b     : Integer; begin     StringGrid1.Canvas.Pen.Color := BRUSH_COLOR;     a := SpinEdit1.Value;     b := SpinEdit2.Value;     for col := 1 to StringGrid1.ColCount - 1 do begin         for row := 1 to StringGrid1.RowCount - 1 do begin             StringGrid1.Cells[col, row]:=IntToStr(Random(b - a + 1) + a);             StringGrid1.Cells[FIRST_COL, row]:=IntToStr(row);         end;     end; end;

  2. Поиск 3. Найти строку с максимальной суммой.

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

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

  5.  

• 1. Пример программы

     1. var   Form1: TForm1;  // Глобальные константы. const     MAX_COLS    = 5;     MAX_ROWS    = 8;     INDEX_COLS  = 0;     SUM_COL     = 6;     BRUSH_COLOR = clLime;     SHIFT_TEXT_X = 3;     SHIFT_TEXT_Y = 3;     NOT_FOUND = 'Не обнаружено';  procedure TForm1.Button1Click(Sender: TObject); var     col, row : Byte;     a, b     : Integer; begin     a := SpinEdit1.Value;     b := SpinEdit2.Value;     for col := 1 to MAX_COLS do begin         for row := 1 to MAX_ROWS do begin             StringGrid1.Cells[col, row]:=IntToStr(Random(b - a + 1) + a);             StringGrid1.Cells[SUM_COL, row] := '';         end;     end; end;  procedure TForm1.Button2Click(Sender: TObject); var     col, row,     row_max  : Byte;     max_s, t : Integer;     rect     : TRect;     ts       : string; begin //    s := SpinEdit3.Value;     row_max := 1;     max_s   := StrToInt(StringGrid1.Cells[SUM_COL, row_max]);     for row := 1 to MAX_ROWS do begin         t := StrToInt(StringGrid1.Cells[SUM_COL, row]);         if max_s < t then begin             max_s   := t;             row_max := row;         end;     end;     for col := 1 to MAX_COLS do begin         ts := StringGrid1.Cells[col, row_max];         rect := StringGrid1.CellRect(col, row_max);         StringGrid1.Canvas.Brush.Color := BRUSH_COLOR;         StringGrid1.Canvas.FillRect(rect); //      StringGrid1.Cells[col, row] := ts;         StringGrid1.Canvas.TextOut(rect.Left+SHIFT_TEXT_X, rect.Top+SHIFT_TEXT_Y, ts);      end; end;  procedure TForm1.Button3Click(Sender: TObject); var     col, row : Byte;     s        : Integer; begin     for row := 1 to MAX_ROWS do begin         s := 0;         for col := 1 to MAX_COLS do begin             s := s + StrToInt(StringGrid1.Cells[col, row]);         end;         StringGrid1.Cells[SUM_COL, row] := IntToStr(s);     end;  end;  procedure TForm1.FormShow(Sender: TObject); var     col, row : Byte;     a, b     : Integer; begin     StringGrid1.Canvas.Pen.Color := BRUSH_COLOR;     a := SpinEdit1.Value;     b := SpinEdit2.Value;     for col := 1 to MAX_COLS do begin         for row := 1 to MAX_ROWS do begin             StringGrid1.Cells[col, row]:=IntToStr(Random(b - a + 1) + a);             StringGrid1.Cells[INDEX_COLS, row]:=IntToStr(row);         end;     end; end;

  2. * Поиск 4. Найти строку с минимальным элементом и столбец с максимальным элементом.

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

  4. ** Поиск 5. Вычислить длину отрезка, на котором расположены все элементы матрицы. Найденный отрезок разбить на 5 равных отрезков. Окрасить клетки матрицы в цвета красный, желтый, зеленй, синий, фиолетовый соответсвенно для элементов, которые принадлежат 5-му, 4-му, 3-му, 2-му и 1-му отрезкам.

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

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

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

• 1. Стоунхендж. Найти все столбцы сумма которых превышает заданное число.

  2. Требования к выполнению. Исходный массив следует заполнить целыми случайными числами и вывести в StringGrid1, а отсортированный массив - в StringGrid2.