Рисование круга

Данная программа осуществляет рисование круга в соответст­вии с заданными координатами центра и радиусом. Координата X центра круга вводится в первое поле, координата Y - во второе, а радиус - в третье. После задания вышеуказанных парамет­ров можно осуществить рисование круга нажатием на кнопку «Рисовать».

В результате этого на поверхности рисования отоб­разится красный круг, в соответствии с заданными координатами центра и радиусом.

Для ссылки на раздел Выполнение рисования был использо­ван рисунок кнопки, который встроен в документ, связан с кон­текстом 5 и подчеркнут двойной линией как обычная ссылка.

В проектном файле справки для идентификаторов разделов и номеров контекстов элементов управления устанавливаются следующие соответствия:

1=1 2=2 3=3 4=4 5=5

В приведенном примере для каждого раздела указываются символы сносок "#", "$", "К" и тексты сносок, размещаемые в конце раздела.

Содержание справочной системы в данном примере не ис­пользуется, поэтому CNT-файл не создается.

Для пункта меню Помощь создается обработчик события OnClick следующего вида:

procedure TForral.N2Click(Sender: TObject);

begin Application.HelpCommand(Help_Contents, 1);

end;

При выборе данного пункта меню на экране будет отобра­жаться справочное окно, вид которого показан на рис. 16.1

Контрольні питання

1. Навести характеристику процедури малювання

2. Навести характеристику процедури підключення файлу довідкової системи

АУДИТОРНЕ ЗАНЯТТЯ

ЗМІСТОВИЙ МОДУЛЬ 6: ПРОГРАМУВАННЯ З ГРАФАМИ. ВІЗУАЛЬНІ КОМПОНЕНТИ. БАЗИ ДАНИХ

ТЕМА 6.7: НАВІГАЦІЯ ПО НАБОРУ ДАНИХ. МОВА SQL. СТВОРЕННЯ ДОВІДКОВОЇ СИСТЕМИ

ОБОВ’ЯЗКОВА КОНТРОЛЬНА РОБОТА №63

1. Створити додаток для консолі «Обчислення значення виразу m:= 10 / (cos(n)-11), з використанням типів значень змінних типу real. Використовувати змінні const n = 7 і m для обчислення значення виразу. Всі оператори оформляти із вводом пояснюючих зазначень.

2. Створити додаток для консолі «Обчислення значення виразу z=y-x+56, з використанням типів значень integer. При обчисленні значення виразу використовувати змінні, які мають наступні значення x=10; y=20, z – будь-яке довільне число.

3. Охарактеризувати процедури readln і read. Описати їх відмінності.

4. Охарактеризувати процедури writeln і write. Описати їх відмінності.

5. Створити додаток для консолі «Обчислення значення виразу y = 25 / (10-x), з використанням типів значень типу real». Використовувати змінні const x = 3 і y - для обчислення значення виразу.

6. Описати частини оператора циклу.

7. Створити додаток для консолі «Вивід строки тексту – Data 21/06/2012. Всі оператори оформляти із вводом пояснюючих зазначень.

8. Описати три частини оператора умовного вираження.

9. Створити додаток для консолі «Обчислення значення виразу y = 15 / (x 2)-10, з використанням типів значень типу real». Використовувати змінні const x = 15 і y для обчислення значення виразу. Всі оператори оформляти із вводом пояснюючих зазначень.

10. Написати додаток для консолі з висновком значення типу Boolean. Використовувати змінну y для обчислення значення виразу. Змінної y задати параметр false.

11. Написати додаток для консолі з висновком значення типу Boolean. Використовувати змінну h для обчислення значення виразу. Змінній h задати параметр true.

12. Написати додаток для консолі з обчисленням витраченого часу на відвідування гуртка «Юнний технік» Пашею і його другом Сергієм. Якщо відомо, що Паша витратив на шлях до палацу культури 37.32 метрів, а другий 69.93 метрів. Також відомо, що перший йшов зі швидкістю 2.52 м / сек, а другий йшов зі швидкістю 6,32 м / сек. Визначте хто - Паша або Сергій при однаковій відстані дійшов би швидше до палацу культури. При обчисленні задачі використовувати наступні змінні типу real, s - шлях, t - витрачений час, v - швидкість пересування. Всі оператори оформляти із вводом пояснюючих зазначень.

АУДИТОРНЕ ЗАНЯТТЯ

ЗМІСТОВИЙ МОДУЛЬ 6: ПРОГРАМУВАННЯ З ГРАФАМИ. ВІЗУАЛЬНІ КОМПОНЕНТИ. БАЗИ ДАНИХ

ТЕМА 6.7: НАВІГАЦІЯ ПО НАБОРУ ДАНИХ. МОВА SQL. СТВОРЕННЯ ДОВІДКОВОЇ СИСТЕМИ

Лекція №64 – Залікове заняття

Дата добавления: 2014-12-25