Варіант. 4) Для відбору даних рейсів, які здійснюються літаками марки АН, на значення поля Літак

End.

Begin

Begin

Б

А

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

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

5) Знімемо прапорець в рядку Вывод на экран (Виведення на екран) у нижній частині бланка

запиту в полі Літак.

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

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

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

• http://farcont.com.ua/ukraine/potrebitel/distance/ — таблиця відстаней між містами України.

• http://suzuki.autosite.com.ua/Suzuki-Swift-1.3-SF413-AK35_229_3347_7997_603.html —

технічні характеристики Suzuki Swift 1.3.

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

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

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

a) для об’єкта Form значення Caption — Калькулятор, Width = 450, Height = 300;

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

в) для об’єкта Button 2 значення Caption — Вихід,

г) для об’єктів RadioButton відповідно Caption +, –, *, /.

Для об’єктів Edit1.Text, Edit2.Text, Edit3.Text — видалимо напис Text.

unit Unit1;

interface

uses

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

StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var chislo1, chislo2: real;

chislo1:= StrToFloat(Edit1.Text);

chislo2:= StrToFloat(Edit2.Text);

if RadioButton1.Checked then Edit3.Text:= FloatToStr(chislo1+chislo2);

if RadioButton2.Checked then Edit3.Text:= FloatToStr(chislo1–chislo2);

if RadioButton3.Checked then Edit3.Text:= FloatToStr(chislo1*chislo2);

if (RadioButton4.Checked) and (chislo2<>0)

then Edit3.Text:= FloatToStr(chislo1/chislo2)

else Edit3.Text:= 'помилка: на 0 не можна ділити';

end;

procedure TForm1.Button2Click(Sender: TObject);

close

end;

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

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

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

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

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

суми С4: F4.

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

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

5) Збережемо документ Результати тесту.xls.

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

• http://crimeamap.ru/mramornaya_peshera/ — карта Криму.

Інформація про Мармурову печеру:

• http://ru.wikipedia.org/wiki/Мраморная_пещера.

• http://www.thisisukraine.org/index.php/ru/what-to-see/pryroda/92-marmurovapechera.html

• http://feodosia.2crim.com/index.php?page=exc_caves

Схема, маршрути Мармурової печери:

• http://www.donuzlav.com/relax/ekskurs3.htm — екскурсії до печери.

• http://www.crimea.edu/friends/onix/mramornaya/

• http://lifeglobe.net/blogs/details?id=40

• http://pohodushki.org/places/marble-cave-in-the-crimea

Інформація про інші печери:

• http://www.crimea.edu/crimea/cav/

• http://www.crimea.edu/crimea/cav/visiting/index.htm

• http://www.crimea.edu/friends/onix/ — дорога до печери. Самостійно піднятися до печерного

комплексу можна на легковому автомобілі, автобусі або пішки. Для цього треба звернути на

17 км траси Сімферополь — Ялта у с. Зарічне до дачного селища за с. Мармурове.

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

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

program zadacha18_9;

var x, y: real;

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