Варіант 19

Begin

Begin

Begin

Б

А

Варіант 18

End.

End

CaseN of

Begin

writeln('введіть позначку відмінка: ');

readln(N);

'н','Н': writeln('хто? що?');

'р','Р': writeln('кого? чого?');

'д','Д': writeln('кому? чому?');

'з','З': writeln('кого? що?');

'о','О': writeln('ким? чим?');

'м','М': writeln('на кому? на чому?');

'к','К': writeln('хто? що?');

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

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

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

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

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

4) Для відображення таблиці з даними про співробітників, оклад яких перевищує 1100 грн,

на значення поля Оклад встановимо умову відбору >1100 в рядку Условие отбора (Умова

відбору).

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

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

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

• http://www.hotelsofua.com/ua/information/distance.php?idcity=5 — відстані від Дні-

пропетровська до міст України.

• http://www.bukovina.biz.ua/news/1587 — вартість пального на АЗС.

• http://www.aurore-nissan.ru/model/note/features/ — характеристики автомобіля

Nissan Note.

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

З палітри компонентів (вкладка Standart) вибираємо компоненти Button, Edit, Label.

В Інспекторі об’єктів встановимо:

a) для об’єкта Form значення Caption — Паліндром;

б) для об’єкта Button 1 значення Caption — Перевірка;

в) для об’єкта Label значення Caption — Уведіть речення.

unit Unit1;

interface

uses

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

StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var f, i: byte;

s: string;

s:= Edit1.Text;

while pos (' ', s) <> 0 do delete(S, pos(' ', s), 1); // вилучення пропусків

між словами

f:= 0;

for i:= 1 to length(s) div 2 do

if s[i] <> s[length(s)–i+1] then

Form1.Color:= clred;

f:= 1;

break

end;

end;

if f = 0 then Form1.Color:= clgreen;

end;

end.

16. Завдання на обчислення в табличному процесорі MS Excel.

1) Відкриємо файл електронної таблиці Магазин.xls.

2) Для обчислення прибутку за кожну одиницю товару з урахуванням собівартості та ціни

у клітинці D4 вводимо формулу =C4 – B4.

3) Скопіюємо введену формулу у клітинки діапазону D5: D8 із використанням маркера авто-

заповнення.

4) Збережемо документ Магазин.xls.

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

• http://www.onlandia.org.ua/ — Онляндія, безпечна веб-країна.

• http://www.onlandia.org.ua/pages/kidtips15-18 — основи безпеки в Інтернеті для під-

літків 15–18 років.

• http://www.chl.kiev.ua/default.aspx?id=88 — правила Інтернет-безпеки та Інтернет-

етики для дітей і підлітків (кодування Юнікод UTF-8).

• http://www.webstyletalk.net/node/11 — види діяльності підлітків у режимі онлайн.

• http://coolschool1.at.ua/load/pro_zakhist_ditej_ta_molodi_vid_negativnikh_

informacijnikh_vpliviv/2-1-0-121 — Лист МОН № 1/9-768 від 06.11.09 про захист

дітей та молоді від негативних інформаційних впливів і пам’ятка для батьків: «Діти,

Інтернет, Мобільний зв’язок».

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

Дано: N — порядковий номер місяця року. (1 N 12).

Знайти: назву місяця.

Розв’язання. Див. В-15, № 18.

program zadacha19_16;

var N: byte;

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