Главная страница
Навигация по странице:

  • 2. Постановка завдання

  • 3. Теоретичні відомості

  • 4. Програма роботи

  • Приклад 1. Завдання: Задано масив А(5,5), дійсного типу. Заповнити другий масив мінімальними по стовпцях елементами першого масиву. Розв

  • Приклад 2. Завдання: Задано масив А(3,4), дійсного типу. Знайти номер рядка, в якому знаходяться тільки додатні елементи. Розв

  • 006 ЛАБОРАТОРНА РОБОТА6. Лабораторна робота 6 Тема Робота з двовимірними масивами. Конструювання інтерфейсу користувача


    Скачать 68.34 Kb.
    НазваниеЛабораторна робота 6 Тема Робота з двовимірними масивами. Конструювання інтерфейсу користувача
    Дата26.01.2022
    Размер68.34 Kb.
    Формат файлаdocx
    Имя файла006 ЛАБОРАТОРНА РОБОТА6.docx
    ТипЛабораторна робота
    #342537

    ЛАБОРАТОРНА РОБОТА №6


    Тема: Робота з двовимірними масивами.


    Конструювання інтерфейсу користувача.

    1. Мета роботи



    Дослідити роботу операторів циклу мови програмування Object Pascal при роботі з двовимірними масивами. Засвоїти методику використання компонентів: StringGrid з розділу Additional, Memo і Button з роздылу Standard Палітри Компонентів в середовищі Delphi для конструювання інтерфейсу користувача.

    2. Постановка завдання



    Розробити проект з необхідних компонентів Delphi та оброблювач події мовою Object Pascal відповідно до заданого варіанта. Створити працездатне застосування з необхідним інтерфейсом.

    3. Теоретичні відомості
    Двовимірний масив (матриця) подається як одновимірний, елементи якого - також масиви. Елементи двовимірного масиву зберігаються по рядках, тобто якщо ними проходити в напрямку їх розміщення в пам’яті, то спочатку буде змінюватися правий індекс.

    Доступ до елементів можливий за допомогою вкладених циклів for, де перший цикл надає доступ до перебирання лівих індексів (рядків), а другий, вкладений – до правих індексів (стовпців).




    4. Програма роботи



    4.1. Записати запропонований викладачем варіант завдання з Додатка 1.

    4.2. Ознайомитись з рекомендованою літературою та конспектом лекцій.

    4.3. Програмування задачі:

    – розробити алгоритм;

    – скласти програму розв’язання задачі мовою Object Pascal.

    4.4. Розв’язання задачі на ПЕОМ.

    Сконструювати інтерфейс користувача за допомогою відповідних візуальних компонент, відлагодити та розв’язати складену програму.

    4.5. Оформлення звіту.

    Звіт повинен містити:

    – номер лабораторної роботи та її назву;

    – умову задачі та дані свого варіанта;

    – псевдокод програми;

    – лістинг (або рукопис) програми з коментарями до кожної

    використаної змінної та скріншоти форми проекту;

    – результати розрахунку задачі;

    – висновки.

    Приклад 1.

    Завдання: Задано масив А(5,5), дійсного типу. Заповнити другий масив мінімальними по стовпцях елементами першого масиву.

    Розв’язання

    1. Створимо нову папку.

    2. Запустимо Delphi.

    3. Шх розділів Standard і Additional Палітри Компонентів на Form1 розташуємо два компоненти StringGrid і два компоненти Button (рис. 7).


    4. За допомогою Інспектора Об'єктів властивостям компонента StringGrid1 задамо наступні значення:

    FixedCols – 0,

    FixedRows – 0,

    ColCount – 5,

    RowCount – 5.

    Установимо розміри компонента StringGrid1 таким чином, щоб у них уміщалося 5 рядків і 5 стовпців.

    5. За допомогою Інспектора Об'єктів властивостям компонента StringGrid2 надамо наступні значення:

    FixedCols – 0,

    FixedRows – 0,

    ColCount – 5,

    RowCount – 1.

    Змінимо розміри компонента StringGrid2 таким чином, щоб у них уміщався 1 рядок і 5 стовпців.

    6. В Інспекторі Об'єктів для першої таблиці виберемо властивість Options. Ввійдемо в ньеї за допомогою подвійного натискання миші. Значення прапора goEditing зробимо рівним True.

    7. Для компонентів Button1 і Button2 задамо значення властивості Caption рівним: 'Розв’язання' і 'Очистити' відповідно.

    8. Активізуємо кнопку 'Розв’язання' і створимо наступний оброблювач події OnClick:

    procedure TForm1.Button1Click(Sender: TObject);

    var

    a: array [1..5,1..5] of real;

    b: array [1..5] of real;

    i, j: integer;

    begin

    for i:= 1 to 5 do

    for j:= 1 to 5 do

    a[i,j]:= StrToFloat(StringGrid1.Cells[j-1,i-1]);

    for j:= 1 to 5 do

    begin

    b[j]:= a[1,j];

    for i:=1 to 5 do

    if b[j]>a[i,j] then

    b[j]:= a[i,j];

    end;

    for i:= 1 to 5 do

    StringGrid2.Cells[i-1,0]:=FloatToStr(b[i]);

    end;

    9. Для очищення другої таблиці призначена кнопка 'Очистити'. Активізуємо її подвійним натисканням й у заготівку оброблювача події розташуємо наступний код:

    procedure TForm1.Button2Click(Sender: TObject);

    var

    i: Integer;

    begin

    for i:= 1 to 5 do

    StringGrid2.Cells[i-1,0] := ' ';

    end;

    10. Збережемо проект за допомогою команди головного меню File|Save All і запустимо його на виконання, використовуючи функціональну клавішу F9.

    Приклад 2.

    Завдання: Задано масив А(3,4), дійсного типу. Знайти номер рядка, в якому знаходяться тільки додатні елементи.

    Розв’язання

    1. Створимо нову папку.

    2. Запустимо Delphi.

    3. Із розділів Standard і Additional Палітри Компонентів на Form1 розташуємо компоненти StringGrid, Memo і Button (рис. 8).



    1. За допомогою Інспектора Об'єктів властивості компонента StringGrid1 надамо наступні значення:

    FixedCols – 0,

    FixedRows – 0,

    ColCount – 4,

    RowCount – 3.
    Установимо розміри компонентів StringGrid1 таким чином, щоб у них уміщалося 3 рядки і 4 стовпці.

    5. В Інспекторі Об'єктів для StringGrid1 виберемо властивість Options. Ввійдемо в неї за допомогою подвійного натискання миші. Значення прапора goEditing зробимо рівним True.

    6. Для компонента Memo1 виберемо властивість Lines і клацнемо по кнопці з трьома крапками. У вікні, що з'явилося, String list editor видалимо рядок 'Memo1'.

    7. Для компонента Button1 задамо значення властивості Caption рівним 'Розв’язання'.

    8. Активізуємо кнопку Button1 подвійним клацанням і створимо наступний оброблювач події OnClick:

    procedure TForm1.Button1Click(Sender: TObject);

    var

    a: array [1..3,1..4] of real;

    min: real;

    i, j, k: integer;

    begin

    for i:= 1 to 3 do

    for j:= 1 to 4 do

    a[i,j]:= StrToFloat(StringGrid1.Cells[j-1,i-1]);

    Memo1.Lines.Clear;

    for i:= 1 to 3 do

    begin

    k:=0;

    for j:= 1 to 4 do

    if a[i,j]>0 then

    k:=k+1;

    if k=4 then

    Memo1.Lines.Add('n='+IntToStr(i));

    end;

    end;

    9. Збережемо проект за допомогою команди головного меню File|Save All і запустимо його на виконання, використовуючи функціональну клавішу F9.


    написать администратору сайта