Традиційний ланцюжок

Begin

Begin

Б

А

Варіант 20

End.

End

CaseN of

Begin

writeln('введіть порядковий номер місяця: ');

readln(N);

1: writeln('січень');

2: writeln('лютий');

3: writeln('березень');

4: writeln('квітень');

5: writeln('травень');

6: writeln('червень');

7: writeln('липень');

8: writeln('серпень');

9: writeln('вересень');

10: writeln('жовтень');

11: writeln('листопад');

12: writeln('грудень');

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

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

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

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

(рис. а).

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

раніше 14:00, на значення поля Відліт встановимо умову відбору >=#14:00:00#, у полі

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

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.

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

a) для об’єкта Form значення Caption — Вимірювання довжини;

б) для об’єкта Button1 значення Caption — На українські;

в) для об’єкта Button2 значення Caption — На американські;

г) можна додати об’єкти Label1 та Label2 та встановити відповідно значення Caption — Милі

та Кілометри.

д) вилучимо значення Text для об’єктів Edit.

unit Unit1;

interface

uses

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

type

{ TForm1 }

TForm1 = class(TForm)

ukraine: TButton;

usa: TButton;

Edit1: TEdit;

Edit2: TEdit;

procedure ukraineClick(Sender: TObject);

procedure usaClick(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.ukraineClick(Sender: TObject);

var mili, km: real;

mili:= StrToFloat(Edit1.Text);

km:= mili/0.621;

Edit2.Text:= FloatToStr(km);

end;

procedure TForm1.usaClick(Sender: TObject);

var mili, km: real;

km:= StrToFloat(Edit2.Text);

mili:= km*0.621;

Edit1.Text:= FloatToStr(mili);

end;

end.

Традиційно, готовність клієнта купити продукт звіт, зверніться за місцем придбання (яка може бути незалежної компанії). Зв'язатися з продавцем по продажах від імені клієнта зробити запит. Цей порядок буде перевірено з точки зору наявності продукції на складі. Якщо продукт не доступний, і його реалізація можлива у відділ продажів наказав стратити виробництва продукції. Там, перевірити можливість договору з точки зору наявних засобів виробництва і сировини, і застосовується до замовлення виробничого графіка. На даний момент, клієнт може вказати термін його контракту. Ця інформація повинна пройти через всі клітини, згаданих вище, але в протилежному напрямку. У той же час виробничий відділ закуповує сировину, необхідну (по купівельній спроможності). Сировина піти в магазин, а звідти у виробничий відділ. Готової продукції, повідомляє відділ продажів, який, у свою чергу, відправляє його до дилера, у якого клієнт не може прийняти його. Все це займає (через необхідність передачі інформації від клітини до клітини, такі, як традиційні "документи" метод), а замовник не завжди може чекати так довго.Може допомогти тут ERP II система, яка, як вже було сказано у визначенні, використовує веб-. Компанія може надати певні функції системи до інших учасників ланцюжка створення вартості (klintom, місць продажу авіаквитків, постачальники). Клієнти можуть розміщувати свої замовлення безпосередньо до виробника і стежити за ступенем їх реалізації. схематично показано на малюнку нижче:

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