Else begin

End

Begin

Begin

Begin

Begin

Б

А

Варіант

End.

Begin

write('введіть координати центра кільця x0, y0 та радіуси R1 та R2:');

readln(x0, y0, R1, R2);

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

readln(x, y);

if (sqr(x–x0)+sqr(y–y0)<=sqr(R1)) and (sqr(x–x0)+sqr(y–y0)>=sqr(R2))

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

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

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

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

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

3) Перетягнемо поля Прізвище, Ім’я, По батькові, Посада, Оклад у нижню частину бланка

запиту (рис. а).

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

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

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

У режимі перегляду таблиці запит має вигляд, як показано на рис. б.

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

• http://www.plaza.kh.ua/ — інтернет-магазин цифрової техніки «Plaza»: ноутбуки,

комп’ютери, комплектуючі.

• http://www.plaza.kh.ua/guarantee/ — сервісні центри. Гарантійне обслуговування

придбаних товарів здійснюють авторизовані сервісні центри, координати яких по-

даються. Товари фірм-виробників, у яких немає сертифікованих сервісних центрів,

обслуговуються через гарантійний відділ інтернет-магазину «Plaza».

• http://hard.rozetka.com.ua/computers/c80095/filter/ — інтернет-супермаркет

«Rozetka»: добір комп’ютерів за такими параметрами: клас (навчальний рівень, для

роботи та навчання, ігрові комп’ютери), виробник, ціна, процесор, обсяг оперативної

пам’яті, відеокарта, обсяг жорсткого диску, оптичний привід, операційна система.

• http://rozetka.com.ua/service-centers/ — інформація про сервісні центри інтернет-

супермаркету «Rozetka».

• http://www.spark.ua/ — інтернет-магазин «Spark»: комп’ютери, портативна

техніка, монітори, комплектуючі, МФУ, принтери, сканери, планшети, оргтехніка,

мультимедіа, аксесуари для ПК, витратні матеріали, програмне забезпечення, носії

інформації, інтернет-карти, usb-сувеніри.

• http://service.spark.com.ua/ — інформація про сервісний центр інтернет-магазину

«Spark».

18. Задача на програмування мовою Delphi. Встановити значення властивостей в Інспекторі об’єктів для об’єкта Form: Caption — Літаючакнопка, задати Width та Height форми, з палітри компонентів вибираємо необхідні компоненти,встановлюємо властивості Interval — 1000 для компоненти Timer. В Інспекторі об’єктів встановитидля об’єкта BitBtn значення Caption — відповідно запропонованій в завданні назві кнопки, Glyph —завантажити малюнок на кнопку.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm1 = class(TForm)

BitBtn1: TBitBtn; // вкладка Additional, компонент BitBtn

Timer1: TTimer; // вкладка System, компонент Timer

procedure FormActivate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private { Private declarations }

delta: integer;

public { Public declarations }

end;

var Form1: TForm1;

implementation

uses Types; {$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);

delta:= 20; // 20 — крок для переміщення кнопки

end;

procedure TForm1.Timer1Timer(Sender: TObject);

if BitBtn1.Left+ 80 > Form1.Left + Form1.Width — 80 then //80 — розмір кнопки

BitBtn1.Left:= 5;

BitBtn1.Top:= 15;

delta:= 20;

end;

if BitBtn1.Top + 80 > Form1.BoundsRect.Bottom – 80 then delta:= –20;

if delta < 0 then

BitBtn1.Left:= BitBtn1.Left – delta;

BitBtn1.Top:= BitBtn1.Top + delta;

BitBtn1.Left:= BitBtn1.Left + delta;

BitBtn1.Top:= BitBtn1.Top + delta

end; end; end.

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