Варіант 13

Begin

Б

А

Варіант 12

End.

Begin

writeln('введіть a,b,c,d');

readln(a,b,c,d);

if (a=b) and (c=d) or (a=c) and (b=d) or (a=d) and (b=c)

then writeln('можна')

else writeln('не можна')

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

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

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

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

(рис. а).

4) Для відображення в режимі перегляду таблиці з даними про рейси до Львова на значення

поля Напрям встановимо умову відбору Львів у рядку Условие отбора (Умова відбору).

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

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

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

http://pchely.org.ua/ — • сайт про бджіл, де висвітлені питання щодо їхнього утриман-

ня і розведення: організація й обладнання пасіки; конкретні рекомендації з вибору

місця під пасіку, а також із розташування бджолиних вуликів; відомості про породи

бджіл, а також поради з придбання бджолиної сім’ї і матки.

• http://o-paseke.ru/ — сайт для бджолярів-початківців: статті й матеріали для вдало-

го бджільництва: як розводити бджіл, який вулик вибрати, які породи бджіл краще

підходять для кожного регіону.

• http://bzholki.ru/ — інформація про методи розведення в бджільництві, породи

бджіл, які розводять в Україні.

• http://bzholki.ru/pasichnij-inventar/tipi-vulikiv.html — схема вуликів, які викори-

стовуються в нашій країні; опис типів вуликів — вертикальних (стояки) та горизон-

тальних (лежаки).

• http://med-bdjoli.ks.ua/ — сайт про корисні властивості меду, а також про бджіл, ос,

джмелів і мурах; нові вулики і нові технології пасічникування.

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

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

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

a) для об’єкта Form значення Caption — Перевір як ти рахуєш;

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

в) для об’єкта Label1 значення Caption 25, для Label2 значення Caption +, для Label3 зна-

чення Caption 45, для Label4 значення Caption =.

Тест перевіряє тільки додавання (за умовою завдання). Перший вираз записано у мітках, після

введення результату в текстове поле виводиться відповідний текст у мітку, і через деякий час гене-

руються нові доданки, які виводяться у мітки.

unit Unit1;

interface

uses

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

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

var a, b: integer;

a:= StrToInt(Label1.Caption);

b:= StrToInt(Label3.Caption);

if StrToInt(Edit1.Text)=a+b

then Label5.Caption:= 'Правильно, молодець'

else Label5.Caption:= 'Неправильна відповідь';

Application.ProcessMessages;

sleep (3000);

Edit1.Text:= ' ';

randomize;

a:= random (100); // генерація довільного числа

b:= random(100); // генерація довільного числа

Label1. Caption:= IntToStr(a);

Label3. Caption:= IntToStr (b);

end;

end.

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

1) Відкриємо файл електронної таблиці Зростання населення.xls.

2) Для обчислення загальної кількості населення на Землі за кожен указаний рік встановимо

курсор у клітинку В11 та клацнемо на кнопку Σ стандартної панелі інструментів.

3) Виконаємо команду спадного меню Підсумовувати, вказавши діапазон обчислення суми

B4: В9.

4) Скопіюємо формулу =SUM(B4: В9) у клітинки діапазону С11: Е11 із використанням

маркера автозаповнення.

5) Збережемо документ Зростання населення.xls.

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

Гуппі — найпопулярніша прісноводна рибка, невибаглива, всеїдна. Близько 5 см за-

вдовжки.

http://lib.aldebaran.ru/author/mihailov_valentin/mihailov_v • alentin_akvarium_

prakticheskie_sovety/mihailov_valentin_akvarium_prakticheskie_sovety__0.html —

практичні поради В. Михайлова щодо облаштування акваріуму.

• http://www.fishhome.ru/obustr/15800/ — визначення кількості рибок в акваріумі.

Можна рекомендувати посадку риб в акваріум об’ємом 40–50 л у такій кількості, щоб

на кожну рибу завдовжки до 5 см припадало не менше 2 л води.

• http://quarium.org.ua/ — підводний світ акваріума: акваріумні рослини, акваріумні

рибки і догляд за ними.

• http://mi3ch.com/domashnij-akvarium-poradi-po-utrimannyu-ribok-spivtovaristva-2.

html — домашній акваріум: поради з утримання рибок.

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

Дано: a, b, c — довжини відрізків.

Знайти: чи можна побудувати прямокутний трикутник.

Розв’язання. Для існування прямокутного трикутника достатньо (і необхідно) виконання

теореми Піфагора: a 2 + b 2 = c 2. Перевіримо всі можливі варіанти утворення прямокутного трикутника.

program zadacha18_13;

var a, b, c: real;

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