Варіант

End.

Begin

writeln('введіть координати центра круга x0, y0 та радіус R');

readln(x0, y0, R);

writeln('введіть координати точки x, y');

readln(x, y);

if sqr(x–x0)+sqr(y–y0)<=sqr(R)

then writeln('належить області')

else writeln('не належить області')

16. Завдання на створення запиту СУБД MS Access.

1) Відкриємо файл бази даних Розклад руху літаків.mdb.

2) Додамо таблицю Рейси у вікно конструктора запитів.

3) Перетягнемо поля Рейс, Напрям, Відліт, Прибуття, Дні в нижню частину бланка запиту

(рис. а).

4) Для відбору рейсів, які здійснюються щоденно, встановимо на значення поля Дні умову

відбору «ЩДН» в рядку Условие отбора (Умова відбору).

5) Знімемо прапорець у рядку Вывод на экран (Ви-

ведення на екран) у нижній частині бланка

запиту в полі Дні.

6) Збережемо запит.

У режимі перегляду таблиці запит має ви-

гляд, як показано на рис. б.

Б)

А)

17. Для виконання завдання можна скористатися такими посиланнями:

• http://www.furshet.ua/ua/ — супермаркет «Фуршет», м. Київ.

• http://zakaz.furshet.ua/ru/ — група товарів: солодощі, чипси, снеки → тістечка.

• http://furshet.zakaz.ua/ru/store/#!a=category:0:напитки — група товарів: напої → сік.

• http://furshet.zakaz.ua/ru/store/#!q=мороженое — група товарів: морозилка → морозиво.

• http://megamarket.ua/ — супермаркет «Мегамаркет», м. Київ.

• http://megamarket.ua/catalog/search.php?s=тістечка&g=0 — група товарів: кондитерські ви-

роби → тістечка.

• http://megamarket.ua/catalog/bezalkogoln_napoyi/napoi_skovmsn_soki_morsi_nektari/ —

група товарів: безалкогольні вироби → напої, соки.

• http://megamarket.ua/catalog/zamorozhen_produkti/morozivo/ — група товарів: заморожені

продукти → морозиво.

• http://veselyj-kloun.prom.ua/ — супермаркет «Веселий Клоун», м. Київ.

• http://veselyj-kloun.prom.ua/p305686-kakoj-prazdnik-bez.html — дитячий день народження

з повітряними кульками.

18. Задача на програмування мовою Delphi.

Встановити в Інспекторі об’єктів для об’єкта Form значення Caption — Змінюємо колір кноп-

ки. Змінити колір кнопки Button, BitBtn не можна, тому що їх малює Windows, у них використову-

вати колір дозволяє компонент ColorBtn. Тому з палітри компонентів (вкладка Additional) вибираємо

компонент TSpeedButton, на який можна розмістити малюнок. Готуємо у графічному редакторі

а

б

малюнки white.bmp і yellow.bmp (прямокутники білого й жовтого кольорів). При наведенні миші

на кнопку завантажується малюнок із жовтим прямокутником, при переміщенні на форму — ма-

люнок із білим прямокутником. Встановлюємо властивості об’єкта SpeedButton: розмір 225 × 120,

за допомогою властивості Glyph завантажуємо малюнок white.bmp на кнопку, властивість Caption

встановлюємо «колір кнопки — білий», властивість Layout встановлюємо blGlyphTop (заголовок на

кнопці знаходитиметься під малюнком, ми його будемо бачити).

unit Unit1;

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons;

type

{ TForm1 }

TForm1 = class(TForm)

SpeedButton1: TSpeedButton;

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X, Y:

Integer);

private

{ private declarations }

public

{ public declarations }

end;

var Form1: TForm1;

f: boolean=false;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

Дата добавления: 2015-05-26