Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
ОКР№3 ОА и П.doc
Скачиваний:
1
Добавлен:
01.05.2025
Размер:
502 Кб
Скачать
☆

Вариант №2 Уровень I

  1. (2 Балла) Установите соответствие между кнопками и их описанием:

1.

T MaskEdit

а)

Служит для представления данных любого типа в виде таблицы. Доступ к каждому элементу таблицы происходит через свойство CellRect.

2.

TOutline

б)

Отображает графическое изображение на форме. Воспринимает форматы BMP, ICO, WMF. Если картинку подключить во время дизайна программы, то она прикомпилируется к EXE файлу

3.

TStringGrid

в)

Служит для представления текстовых данных в виде таблицы. Доступ к каждому элементу таблицы происходит через свойство Cell.

4.

TDrawGrid

г)

Используется для представления иерархических отношений связанных данных. Например - дерево директорий.

5.

TImage

д)

Аналог TEdit, но с возможностью форматированного ввода. Формат определяется в свойстве EditMask. В редакторе свойств для EditMask есть заготовки некоторых форматов: даты, валюты и т.п. Спец. символы для маски можно посмотреть в Справочнике.

1 д 2 г 3 в 4 а 5 б

  1. (3 балла) Опишите работу (назначение и свойства) в среде Delphi c компонентом TOpenDialog

По командам Open и Save As у соответствующего компонента вызывается метод Execute, который выполняет диалог и возвращает значение true, если пользователь выбрал файл.

Его свойства:

FileName – имя файла.

Filter – набор фильтров, оформленный в виде выпадающего списка Тип файла.

ofOverwritePrompt – если равен true, то пользователю выдается предупреж-дение при попытке сохранить файл с именем, которое уже существует.

ofCreatePrompt – если равен true и пользователь вводит имя несуществующего файла, то пользователю задается вопрос, желает ли он создать новый файл с таким именем.

ofAllowMultiSelect – если равен true и пользователь может выделить сразу несколько файлов.

ofFileMustExist – если равен true и пользователь не может ввести имя несуществующего файла

Уровень II

  1. (4 балла) Опишите последовательность действий при разработке программы, в которой должно быть реализовано главное меню, содержащее следующие пункты: File, Edit, Options, Exit

Уровень III

4. (5 балла) Напишите программу для работы в среде Delphi для решения следующей задачи

Уровень IV

5. (8 баллов) Напишите программу, для работы в среде Delphi, которая на поверхности формы рисует олимпийский флаг.

procedure TForm1.FormPaint(Sender: TObject);begin

with Canvas do

begin

{полотнище}

Canvas.Pen. Width:=1;

Canvas.Pen. Color:=clBlack;

Canvas.Brush. Color:=clCream;

Rectangle (30, 30, 150, 115);

{кольца}

Pen. Width:=2;

Brush. Style:=bsClear; {областьвнутрикруганезакрашивать}

Pen. Color:=clBlue;

Ellipse (40, 40, 80, 80);

Pen. Color:=clBlack;

Ellipse (70, 40, 110, 80);

Pen. Color:=clRed;

Ellipse (100, 40, 140, 80);

Pen. Color:=clYellow;

Ellipse (55, 65, 95, 105);

Pen. Color:=clGreen;

Ellipse (85, 65, 125, 105);

end

end;

end.