Варіант 11. if(x>=0) and (x<=Pi) and (y>=0) and (y<=abs(sin(2*x)))

Begin

Б

А

Варіант 10

End.

Begin

writeln('введіть x, y ');

readln(x, y);

if (x>=0) and (x<=Pi) and (y>=0) and (y<=abs(sin(2*x)))

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

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

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

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

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

3) Перетягнемо поля Рейс, Тариф, Квитки в нижню частину бланка запиту (рис. а).

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

на значення поля Квитки встановимо умову відбору «є» в рядку Условие отбора (Умова

відбору).

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

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

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

• http://web.ukrinform.ua/web/trains.php — розклад руху поїздів від станції Київ-Пас

на сайті Українського національного інформаційного агентства.

• http://www.rozklad-poizdiv.com/ — розклад руху поїздів, система «e kvitok online».

• http://www.uz.gov.ua/?m=info.info_posagiriv.cini_nayavnist&lng=uk — інформація

щодо вартості квитків.

• http://www.pz.gov.ua/ — інформація про розклад, вартість і наявність квитків.

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

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

Samples вибираємо компонент SpinEdit (лічильник).

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

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

б) для об’єкта Button 1 значення Caption — Результат;

в) для об’єкта SpinEdit можна змінити значення MinValue — –99999, MaxValue — 99999,

MaxLength — 5 (для переведення чисел від –99999 до 99999);

г) для об’єкта Memo значення ScrollBars встановимо ssVertical, якість Lines дозволяє вилу-

чити напис Memo1 у полі виведення тексту.

unit Unit1;

interface

uses

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

SynHighlighterCpp;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

SpinEdit1: TSpinEdit;

procedure Button1Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

var j: longint;

s: string;

j:= StrToInt(SpinEdit1.Text);

s:= SpinEdit1.Text+'^'+'2'+' = '+ IntToStr(j*j);

Memo1.Lines.Add(s);

s:= SpinEdit1.Text+'^'+'3'+' = '+ IntToStr(j*j*j);

Memo1.Lines.Add(s);

end;

end.

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

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

2) Для обчислення загальної кількості автомобілів, проданих кожним співробітником авто-

салону протягом року, встановимо курсор у клітинку F3 та клацнемо на кнопку Σ стандартної

панелі інструментів.

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

B3: E3.

4) Скопіюємо формулу =SUM(B3: E3) у клітинки діапазону F4: F6 із використанням мар-

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

5) Збережемо документ Автомобілі.xls.

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

http://uk.wikipedia.org/wiki/Карти_розуму — матеріал з Вікіпедії • про ментальну

карту, карту розуму, або карти пам’яті, думок.

http://web2.in.ua/2010/02/18/karty-rozumu-i-freemind.• html — карти розуму

і FreeMind на Українському блозі про новітні технології.

• http://uk.wikipedia.org/wiki/FreeMind — матеріал з Вікіпедії про програму

FreeMind.

• http://freemind.sourceforge.net/wiki/index.php/Main_Page — можливість завантажи-

ти програму з офіційного сайту FreeMind.

• http://www.eduwiki.uran.net.ua/wiki/index.php?title=Програма_FreeMind_для_

навчальної_діяльності_та_роботи_в_ТС_проектах&oldid=26562 — програма FreeMind

для навчальної діяльності та роботи в ТС проектах.

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

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

Знайти: чи можна побудувати паралелограм.

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

чисел a, b, c, d дві пари однакових. Перевіряємо всі можливі варіанти. Використовуємо складену

умову; пам’ятаємо, що у логічних виразах спочатку виконується операція and, а потім or.

program zadacha18_11;

var a, b, c, d: real;

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