Пакети прикладних програм правових довідкових та сервісних систем.

Пакети прикладних програм правових довідкових систем є ефективним інструментом роботи з великими обсягами законодавчої інформації, яка поступає неперервним потоком. Практично в усіх економічно розвинутих країнах є довідкові правові системи. В США це Wru, Lexis та інші; у Великобританії – Infolex, Prestel, Polis та інші; в Італії – Italguire, Enlex; в Бельгії – Creodor; в Німеччині – Jurist, Lexinform та інші; а Австрії – RDB; в Канаді – Datum; у Франції – Iretiv та інші.

Програмне забезпечення виробничо-економічної діяльності в промислово розвинутих країнах.

Західний ринок систем автоматизації виробничо-економічної діяльності нараховує сотні комплексних пакетів прикладних програм. Їх можна умовно поділити на чотири групи.

1. Комплексні пакети прикладних програм загального призначення для автоматизації усієї діяльності великого або середнього підприємства (корпорації). Сюди ж відносяться багатофункціональні продукти вищого цінового класу: R/3 (SAP), Oracle Mac-Pac Open (A.Andersen) та інші. Як правило, такі продукти підтримують виробництво різних типів. До цього класу відноситься система “Галактика“.

2. До другої групи відносяться програмні засоби для управління виробництвом певного типу. До них можна віднести: Genesic Manufacturing Suite (Edwards) –складання на замовлення, Trition (Baan) – різні форми дискретного виробництва, PRISM (Macam) – виробництво з неперервним циклом та інші.

3. Спеціалізовані програмні продукти: MMPS (12 Technologies), MES (Fast System), які дозволяють зробити виробництво гнучкішим, прискорити його адаптацію до вимог ринку, здійснювати динамічне планування потреб в матеріалах, виробничих потужностях і складання гнучкого виробничого графіка, контролю роботи цехів.

4. Пакети прикладних програм для управління всім ланцюжком процесів, які забезпечують випуск продукції, починаючи з проектування деталей виробу і закінчуючи моментом отримання готового виробу споживачем: ERP-системи (Manugistics Numetrix) та інші.

Вартість більшості комплексних проблемно-орієнтованих пакетів прикладних програм висока (інколи більше 1 млн. доларів), проте більшість західних фірм для автоматизації своєї діяльності все таки йдуть по шляху використання комплексних проблемно-орієнтованих пакетів прикладних програм.

Перспективи розробок пакетів прикладних програм.

Основні тенденції розвитку прикладного програмного забезпечення тісно пов’язані з створенням і переходом на інформаційні системи четвертого покоління з ієрархічною структурою, в яких центр ваги перенесений з локальних мереж кінцевих користувачів на мережу локальних серверів. В основу інформаційних систем четвертого покоління закладається вимога скорочення експлуатаційних ресурсів при збільшенні масштабованості системи і розширенні кола її функціональних можливостей.

Остання обставина особливо важлива, оскільки існує стійка тенденція до практично стовідсоткової інтеграції інформаційних технологій різних функціональних підсистем в єдину бізнес модель підприємства, що передбачає існування достатньо великої кількості вимог (часом суперечливих) до інформаційних систем з боку кінцевих користувачів, неоднорідних за своєю кваліфікацією і професійними завданнями.

Пакети прикладних програм, які розробляються в даний час, базуються на концепції організації інформаційних систем четвертого покоління (яка сформувалася на початку 90-х років на базі синтезу централізованої і розподіленої обробки інформації) і повинні задовольняти наступним основним принципам:

• повне використання потенціалу настільних систем і середовища розподіленої обробки;

• інтеграція різних архітектурних рішень без будь-яких обмежень, тобто побудова абсолютно відкритої системи;

• забезпечення максимальної економічності системи;

• досягнення якісно нового рівня продуктивності, гнучкості і динамічності організації системи;

• паралельна оптимізація структури інформаційної системи, “бізнес - пакетів“ (пакети прикладних програм функціональних підсистем), які підтримуються з допомогою ресурсів інформаційних систем.

Структурним скелетом інформаційної системи четвертого покоління є мережа масштабу підприємства, яка об’єднує локальні мережі станцій-клієнтів в єдине середовище з допомогою базових апаратних і програмних засобів. Тому спостерігається стійка тенденція підвищення інтелектуальності пакетів прикладних програм управління бізнесом, які реалізуються в архітектурі клієнт-сервер.

Задачі автоматизації бізнес - процесів (функціональних підсистем), зв’язаних з конкретними напрямами діяльності підприємства (наприклад, автоматизація розподілу продукції, контроль за інвентаризацією і продажем товарів, виконання електронних трансферних операцій або управління мережею роздрібної торгівлі), передбачають перенесення більшої частини навантаження на локальні сервери відповідних підрозділів компанії.

Аналіз ефективності централізованої і децентралізованої організації системи для програмних засобів різних типів, які складають типовий набір навантаження інформаційної системи, показує, що:

• програмне забезпечення загального призначення (текстові редактори, електронні таблиці і т.д.) є практично нечутливим до способу організації системи – децентралізована мережна модель не набагато дешевша централізованої;

• ефективність засобів підтримки прийняття рішень в централізованому і децентралізованому варіантах приблизно однакова з невеликою перевагою централізованого варіанту;

• для оперативної обробки транзакцій, адміністрування і організації обчислювального процесу інформаційної системи в цілому найкращим рішенням є централізована мережа, в якій і дані і програмне забезпечення зосереджені на сервері, а роль робочих станцій обмежена підтримкою інтерфейсу користувача, що дозволяє приблизно вдвічі підвищити ефективність системи у порівнянні з децентралізованою моделлю.

б) Основні програми для роботи з графічною інформацією.

Для роботи з графічними зображеннями існує велика кількість різних програм і пакетів, званих графічними редакторами. Однією з таких програм є той, що входить в Windows 95 графічний редактор Paint. Використовуючи його, можна прочитувати і зберігати зображення в широко відомих растрових форматах. Він дозволяє малювати різні примітиви, закрашувати області квітами і т.п. Іншим прикладом простого графічного редактора служить програма Photo Plus. Її інтерфейс подібний до редактора Paint, проте програма володіє істотно великими можливостями. У ній, окрім відомих можливостей малювання графічних примітивів, реалізовані функції сканування зображення, конвертації з різною кількістю бітів глибини кольору, зміни яскравості, контрастності і коректування кольоровий гамми.

В даний час є безліч програм для редагування графічних зображень. Ці програми відповідно до ділення графіки на растрову і векторну можна умовно розділити на два класи:

• Програм для роботи з растровою графікою .

• Програм для роботи з векторною графікою .

ADOBE Photoshop 9 CS 2

Безперечний лідер в області растрової графіки впродовж багатьох років, що не має абсолютно ніяких конкурентів. Веб-дизайнери, художники, оформлювачі, фотографи - всі вони не представляють своєї роботи без цієї програми. Растрова графіка і Adobe Photoshop - слова синоніми, загалом, справжнісінький стандарт.

GIMP 2.4.6

Цей растровий графічний редактор дуже популярний на Unix/Linux платформах. З деяких пір і в Windows.

Хоча програма має достатньо широкі можливості, я все-таки вважаю, що софтвер даного класу не може скласти гідну конкуренцію стандарту в особі Adobe Photoshop, проте, GIMP і йому подібні проекти обов’язково знайдуть своїх користувачів, а оскільки програма має відкриті початкові коди, то поборники в особі любителів Open Source їй забезпечені.

Paint Shop Pro 11.20

Професійний редактор растрової графіки. Володіє широкими можливостями по обробці графіки, але основний упор направлений на обробку фото. Думаю, що дану програму можна сміливо назвати другим номером після незаперечного лідера в особі ADOBE Photoshop.

Нагадаю, що не так давно програма випускалася під маркою Jasc. На даний же момент випуск і розробка програми ведеться під маркою Corel (яка не так давно придбала Jasc і продовжує розвиток її ключових продуктів).

PhotoImpact X3

PhotoImpact вважається професійним редактором растрової графіки. Може похвалитися ясним і зрозумілим інтерфейсом, досить широкими можливостями, невеликим розміром і широким набором різних доповнень (текстури, шаблони, ефекти). Також в програмі є вбудовані засоби для веб-розробки.

Adobe Lightroom 2

Нова розробка призначається професійним фотографам, а так само всім тим хто вважає себе такими. Програма містить багаті можливості для редагування зображень, ведення колекції фотографій, створення презентацій. Могутня підтримка формату RAW звичайно ж на борту.

в) Поняття растрової та векторної графіки

Растрова графіка

Растрову графіку застосовують при розробці електронних (мультимедійних) та поліграфічних видань. Основним елементом растрового зображення є точка. У випадку екранного зображення, вона називається пікселем. У залежності від того, на яку графічну роздільну здатність налаштована операційна система комп'ютера, на екрані можуть розміщатися зображення, що мають 800x600, 1024x768, 1280x1024 та більше пікселів. Колір будь-якого пікселя растрового зображення запам'ятовується в комп'ютері за допомогою комбінації бітів. Число бітів, що використовуються комп'ютером для будь-якого пікселя, називається бітовою глибиною пікселя.

Найбільший вплив на кількість використовуваної пам'яті, що займає растрове зображенням здійснюють такі три фактори:

- розмір зображення;

- бітова глибина кольору;

- формат файлу, що використовується для збереження зображення.

Векторна графіка

Векторні зображення зберігаються у вигляді геометричного опису об’єктів, що складають рисунок. Вони містять опис ліній або кривих, з яких складається зображення. Такий спосіб зручний для представлення технічних креслень, тому векторні формати часто використовуються в програмах автоматизації інженерних робіт. Ці формати надають можливість маніпулювати фрагментами графічного зображення, а також різним чином масштабувати зображення. Лінія – це елементарний об’єкт векторної графіки. Більш складні об’єкти векторної графіки отримуються шляхом об’єднання ліній, наприклад, прямокутник можна представити як об’єднання чотирьох ліній.

До основних об’єктів векторної графіки відносяться:

- точка – задається парою параметрів (x,y),

- лінія – задається двома парами параметрів (x1,y1) і (x2,y2),

- крива Баз'є – частковий випадок кривих третього порядку – задаються початкова точка і важелі, шляхом повернення яких утворюється крива.

Завдання 2

Переведення чисел між позиційними системами числення.

1) (324+55)+2*55=379+110=489

Переведемо дане число з десяткової системи числення у двійкову, вісімкову та шістнадцяткову. Число =(489)₁₀.При переведенні чисел із десяткової системи числення в інші системи числення потрібно початкове число ділити на основу нової системи числення,виділяючи остачі. Їх записати в зворотному порядку-формують число в новій системі числення. Процес ділення продовжується до тих пір,поки утворена частка не буде менша за основу нової системи числення

(489)₁₀-(111101001)₂

489 2

488 244 2

1 244 122 2

0 122 61 2

0 60 30 2

1 30 15 2 0 14 7 2

1 6 3 2 1 2 1 1

489 8

488 61 8

1 56 7

5

(489)₁₀-(751)₈

489 16 A=10,B=11,C=12,D=13,E=14,F=15

480 30 16

9 16 1

(489)₁₀-(1Е9)₁₆

2) Переведемо дане число з двійкової системи числення у десяткову,вісімкову та шістнадцяткову. Число=1110 1100 1000 +Номер варіанту в двійковій системі. Номер варіанту 55.Переведемо варіант 55 у двійкову систему числення.

55 2 (55)₁₀-(110111)₂

54 27 2

1 26 13 2

1 12 6 2

1 6 3 2

0 2 1

1

Число =(111 011 001 000 110 111)₂.При переведенні чисел із двійкової системи числення у вісімкову початкове число розбивається на триплети,починаючи з права на ліво,які переводять почергово за формулою (y= =x₀*k⁰+x₁*k¹+x₂*k³+… де y- відповідне число, k- основа системи числення, x- цифри числа відповідно i- номер позиції,починаючи з нуля.

(111 011 001 000 110 111)₂-(731067)₈

1*2⁰+1*2¹+1*2²=7

0*2⁰+1*2¹+1*2²=6

0*2⁰+0*2¹+0*2²=0

1*2⁰+0*2¹+0*2²=1

1*2⁰+1*2¹+0*2²=3

1*2⁰+1*2¹+1*2²=7

( 0011 1011 0010 0011 0111)₂-(3В237)₁₆

1*2⁰+1*2¹+1*2²+0*2³=7

1*2⁰+1*2¹+0*2²+0*2³=3

0*2⁰+1*2¹+0*2²+0*2³=2

1*2⁰+1*2¹+0*2²+1*2³=11=B

1*2⁰+1*2¹+0*2²+0*2³=3

(11 1011 0010 0011 0111)₂-(242231)₁₀

1*2⁰+1*2¹+1*2²+0*2³+1*2⁴+1*2⁵+0*2⁶+0*2⁷+0*2⁸+1*2⁹+0*2¹⁰+0*2¹¹+1*2¹²+1*2¹³+0*2¹⁴+1*2¹⁵+1*2¹⁶+1*2¹⁷=242231

3) Переведемо дане число з вісімкової системи числення у десяткову,двійкову та шістнадцяткову. Число=Номер варіанту у вісімковій системі +331+ Номер варіанту у вісімковій системі. При переведенні із вісімкової у шістнадцяткову, необхідно спочатку перевести двійкову, а з двійкової, потім вже у шістнадцяткову. Номер варіанту 55 - переведемо у вісімкову.

5 5 8

4 8 6

7

Наше число =(6733167)₈

(6733167)₈-(110111011011001110111)₂

7 2 (111)₂ 6 2 (110)₂ 1 (001)₂ 3 2 (011)₂

6 3 2 6 3 2 2 1

1 2 1 0 2 1 1 1 1

(6733167)₈- (0001 1011 1011 0110 0111 0111)₂-(1ВВ677)₁₆

1*2⁰+1*2¹+1*2²+0*2³=7

1*2⁰+1*2¹+1*2²+0*2³=7

0*2⁰+1*2¹+1*2²+0*2³=6

1*2⁰+1*2¹+0*2²+1*2³=11=B

1*2⁰+1*2¹+0*2²+1*2³=11=В

1*2⁰+0*2¹+0*2²+0*2³=1

Для переведення із вісімкової у десяткову системи числення використовуємо формулу y= =x₀*k⁰+x₁*k¹+x₂*k³+….

(6733167)₈-(1226341)₁₀

7*8⁰+6*8¹+1*8²+3*8³+3*8⁴+6*8⁵+7*8⁶=2045559

4) Переведемо дане число з шістнадцяткової системи числення у десяткову, двійкову та вісімкову. Число Номер варіанту у шістнадцятковій системі + 5CА + Номер варіанту у шістнадцятковій системі. При переведенні із шістнадцяткової у вісімкову, необхідно спочатку перевести у двійкову, а з двійкової, потім вже у вісімкову. Номер варіанту 55-переведемо у шістнадцяткову.

(55)₁₀-(37)₁₆

55 16

48 3

7

Наше число =(375CA37)₁₆

(375CA37)₁₆-(0011011101011100101000110111)₂

7 2 (0111)₂ 3 2 (0011)₂ 10 2 (1010)₂ 12 2 (1100)₂

6 3 2 2 1 10 5 2 12 6 2 1 2 1 1 0 4 2 2 0 6 3 2 1 1 2 1 0 2 1

0 1

(000 011 011 101 011 100 101 000 110 111)₂-(335345067)₈

1*2⁰+1*2¹+1*2²=7

0*2⁰+1*2¹+1*2²=6

0*2⁰+0*2¹+0*2²=0

1*2⁰+0*2¹+1*2²=5

0*2⁰+0*2¹+1*2²=4

1*2⁰+1*2¹+0*2²=3

1*2⁰+0*2¹+1*2²=5

1*2⁰+1*2¹+0*2²=3

1*2⁰+1*2¹+0*2²=3

0*2⁰+0*2¹+0*2²=0

Для переведення із вісімкової у десяткову системи числення використовуємо формулу y= =x₀*k⁰+x₁*k¹+x₂*k³+….

(375CA37)₁₆-(928817207)₁₀

7*16⁰+3*16¹+A*16³+C*16⁴+5*16⁵+7*16⁶+3*16⁷=7*16⁰+3*16¹+10*16³+12*16⁴+5*16⁵+7*16⁶+3*16⁷=928817207

Завдання 3

Проведення обрахунків між позиційними системами числення.

1)Двійкова система числення

Перше число: 1110 1100 1000 +(3*Номер варіанту в двійковій системі)

Друге число:1000 0011 1111 +Номер варіанту в двійковій системі

55*3=165

165 2

164 82 2

1 82 41 2

0 40 20 2

1 20 10 2

0 10 5 2

0 4 2 2

1 2 1

0

(165)₁₀-(10100101)₂

Перше число:1110 1100 1000 1010 0101

Друге число: 1000 0011 1111 1101 11

Додавання

0 +0=0 11101100100010100101

1 +0=1 100000111111110111

0+1=1 111001110000000000000

1+1=10

Віднімання

0-0=0 11101100100010100101

1 -0=1 100000111111110111

10-1=1 1001100011101010010

1-1=0

Множення

0*0=0

1*0=0

0*1=0

1*1=1

11101100100010100101

100000111111110111

11101100100010100101

11101100100010100101

11101100100010100101

11101100100010100101

11101100100010100101

11101100100010100101

11101100100010100101

11101100100010100101

11101100100010100101

11101100100010100101

11101100100010100101

11101100100010100101

11110001010000010100011101010110011

2)Вісімкова система числення

Перше число: № варіанту у вісімковій системі+741+№варіанту у вісімковій системі

Друге число:№ варіанту у вісімковій системі+134+№варіанту у вісімковій системі

55 8 (55)₁₀-(67)₈

48 6

7

Перше число:(6774167)₈

Друге число:(6713467)₈

Додавання

Додавання відбувається,як при і десятковій системі числення,але,коли сума цифр більша від семи,то цю суму ділимо на вісім:остачу записуємо на місці суми,а частку запам’ятовуємо для наступної суми.

6774167 14 8 15 8 49 8 8 8

6713467 8 1 8 1 8 6 8 1

57077656 4 7 1 0

Віднімання

При відніманій у вісімковій системі числення,віднімаємо так само,як і в десятковій,але коли «позичаємо» у сусідньої цифри цілу,щоб відняти,додаємо до даної вісім,а не десять ,як у десятковій.

6774167

6713467

60700

Множення

Відбувається,як і у десятковій, але,коли добуток більший від семи,то цю добуток ділимо на вісім:остачу записуємо на місці добутку,а частку запам’ятовуємо для наступної перемноження.

6774167 42 8 25 8 20 8 49 8 29 8 52 8

6713467 40 5 24 3 16 2 48 6 24 3 48 6

60745501 2 1 4 1 5 6

51751312 21 8 16 8 28 8

34060734 16 2 16 2 24 3

24764545 5 0 4

6774167 55 8 13 8 45 8 48 8

60745501 48 6 8 1 40 5 48 6

51751312 7 5 5 0

60167217311221

3)Шістнадцяткова систем числення

Перше число: Номер варіанту у шістнадцятковій системі +8ВВ +

Номер варіанту у шістнадцятковій системі

Друге число: Номер варіанту у шістнадцятковій системі +1А +

Номер варіанту у шістнадцятковій системі

55 16 (55)₁₀-(37)₁₆

48 3

7

Перше число:(378BB37)₁₆

Друге число:(371A37)₁₆

Додавання

Додавання відбувається,як при і десятковій системі числення,але,коли сума цифр більша від п’ятнадцяти,то цю суму ділимо на шістнадцять:остачу записуємо на місці суми,а частку запам’ятовуємо для наступної суми.

378BB37 21 16

371A37 16 1

3AFD56E 5

Віднімання

При відніманій у вісімковій системі числення,віднімаємо так само,як і в десятковій,але коли «позичаємо» у сусідньої цифри цілу,щоб відняти,додаємо до даної шістнадцять,а не десять ,як у десятковій.

378BB37

371A37

341A100

Множення

Відбувається,як і у десятковій, але, коли добуток більший від п’ятнадцяти,то цю добуток ділимо на шістнадцять: остачу записуємо на місці добутку,а частку запам’ятовуємо для наступної перемноження.

378BB37 49 16 24 16 77 16 81 16 61 16

371A37 48 3 16 1 64 4 80 5 48 3

184D1D81 1 8 13 1 13

A8A31A5 52 16 21 16 33 16 35 16 26 16

22B75026 48 3 16 1 32 2 32 2 16 1

378BB37 4 5 1 3 10

184D1D81 22 16 70 16 34 16 112 16 117 16 87 16

A8A31A5 16 1 64 4 32 2 112 7 112 7 80 5

C14B3BC4D7D1 8 6 2 0 5 7

75 16 39 16 44 16 20 16 27 16

64 4 32 2 32 2 16 1 16 1

11 7 12 4 11

Завдання4

1. Блок початку.

2. Блок циклу. Зміна індекса від 1 до 3.

3. Присвоєння значення.

4. Блок циклу.

5. Задаємо умову парності.

6. Блок умови мінімуму.

7. Блок умови максимуму.

8. Виведення max або min.

9. Кінець алгоритму.

1

I від 1 до 3

2

3

A[ i ]=

4

Max:= a[ i ]

Min:= a[ i ]

I від 1 до 3

5

6

A[i] div2=0

НІ

ТАКК

A[i]< min

A[i]> max

min:=a[i]

max:=a[i]

7

8

Max or min

Кінець

9

Задача

Ввести три числа А,В,С. Якщо серед них є парне то знайти максимальне число, інакше – мінімальне.

Завдання 5

0. За вибраною мною темою я створив 3 таблиці, що стосувалися однієї теми. Я оформив сформовані таблиці якнайкраще з точки зору візуального сприйняття.

0. Тоді я створив зведену таблицю в меню Дані/Зведена таблиця, за 3 базами даних.

1. 

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

Створення макросу:

1. На вкладці Розробник у групі Код натискаємо кнопку Захист від макросів.

2. У меню Настройки макросів вибираємо пункт Увімкнути всі макроси відтак натискаємо кнопку ОК.

3. На вкладці Розробник у групі Код виберіть пункт Запис макросу.

4. У полі Ім'я макросу вводимо ім'я для макросу.

5. У списку Зберегти в вибираємо книгу, в якій потрібно зберегти макрос.

6. У полі Опис вводимо опис макросу.

7. Натискаємо кнопку ОК, щоб розпочати записування макросу.

8. Виконуємо дії, які потрібно записати. На вкладці Розробник у групі Код натискаємо кнопку Зупинити запис.

Код макросу:

Sub ²васишин()

'

' ²васишин Макрос

'

' Сочетание клавиш: Ctrl+Shift+M

'

ActiveCell.Offset(0, -9).Range("A1:E1").Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 65535

.TintAndShade = 0

.PatternTintAndShade = 0

End With

ActiveCell.Offset(1, 0).Range("A1:E1").Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 5296274

.TintAndShade = 0

.PatternTintAndShade = 0

End With

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 5287936

.TintAndShade = 0

.PatternTintAndShade = 0

End With

ActiveCell.Offset(12, 0).Range("A1:E1").Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 5287936

.TintAndShade = 0

.PatternTintAndShade = 0

End With

ActiveWindow.SmallScroll Down:=6

ActiveCell.Offset(12, 0).Range("A1:E1").Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 5287936

.TintAndShade = 0

.PatternTintAndShade = 0

End With

ActiveWindow.SmallScroll Down:=-15

ActiveCell.Offset(-22, 9).Range("A1").Select

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 6

ActiveCell.Offset(-2, 0).Range("A1").Select

ActiveSheet.PivotTables("СводнаяТаблица4").PivotSelect "", xlDataAndLabel, True

ActiveSheet.Shapes.AddChart.Select

ActiveChart.SetSourceData Source:=Range("'Ëèñò1'!$J$2:$M$29")

ActiveWorkbook.ShowPivotChartActiveFields = True

ActiveChart.ChartType = xlColumnClustered

ActiveWindow.SmallScroll Down:=0

ActiveWorkbook.ShowPivotChartActiveFields = False

ActiveWindow.SmallScroll Down:=21

ActiveChart.ChartType = xlLineStacked

ActiveChart.Legend.Select

ActiveSheet.ChartObjects("Диаграмма 1").Activate

ActiveChart.PlotArea.Select

ActiveChart.ChartType = xlArea

ActiveCell.Offset(29, 2).Range("A1").Select

ActiveWindow.SmallScroll Down:=-30

ActiveSheet.PivotTables("СводнаяТаблица4").PivotSelect "", xlDataAndLabel, True

Application.Run "'Розрахункова робота з О²Т.xlsx'!²васишин"

ActiveWindow.SmallScroll Down:=-27

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 1

Application.Run "'Розрахункова робота з О²Т.xlsx'!²васишин"

ActiveCell.Offset(0, -9).Range("A1:E1").Select

ActiveCell.Offset(0, -5).Range("A1").Activate

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 5287936

.TintAndShade = 0

.PatternTintAndShade = 0

End With

ActiveCell.Offset(1, -4).Range("A1:E1").Select

With Selection.Interior

.Pattern = xlNone

.TintAndShade = 0

.PatternTintAndShade = 0

End With

ActiveCell.Offset(12, 0).Range("A1:E1").Select

With Selection.Interior

.Pattern = xlNone

.TintAndShade = 0

.PatternTintAndShade = 0

End With

ActiveWindow.SmallScroll Down:=15

ActiveCell.Offset(12, 0).Range("A1:E1").Select

With Selection.Interior

.Pattern = xlNone

.TintAndShade = 0

.PatternTintAndShade = 0

End With

ActiveCell.Offset(-7, 1).Range("A1").Select

ActiveWindow.SmallScroll Down:=-21

ActiveCell.Offset(-18, 0).Range("A1:D36").Select

With Selection

.HorizontalAlignment = xlLeft

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 4

ActiveSheet.ChartObjects("Диаграмма 2").Activate

ActiveChart.ChartArea.Select

ActiveWindow.SmallScroll Down:=0

ActiveChart.Parent.Delete

ActiveWindow.SmallScroll Down:=-6

ActiveSheet.PivotTables("СводнаяТаблица4").PivotSelect "", xlDataAndLabel, True

ActiveCell.Offset(-1, -1).Range("A1:E1").Select

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 1

ActiveCell.Range("A1:E37").Select

ActiveWorkbook.Worksheets("Лист1").PivotTables("СводнаяТаблица4").PivotCache. _

CreatePivotTable TableDestination:="Ëèñò1!R40C1", TableName:= _

"СводнаяТаблица1", DefaultVersion:=xlPivotTableVersion12

Sheets("Ëèñò1").Select

Cells(40, 1).Select

ActiveSheet.PivotTables("СводнаяТаблица1").AddDataField ActiveSheet.PivotTables _

("СводнаяТаблица1").PivotFields("Неустойка"), "Сумма по полю Неустойка", xlSum

ActiveSheet.PivotTables("СводнаяТаблица1").PivotSelect "", xlDataAndLabel, True

ActiveCell.Offset(-2, 0).Range("A1:A7").Select

Selection.ClearContents

ActiveCell.Offset(5, 1).Range("A1").Select

ActiveWindow.SmallScroll Down:=-39

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 5

ActiveWindow.SmallScroll Down:=-12

ActiveSheet.PivotTables("СводнаяТаблица4").PivotSelect "", xlDataAndLabel, True

Selection.Cut Destination:=ActiveCell.Offset(-1, -3).Range("A1:D28")

ActiveCell.Offset(-1, -3).Range("A1:D28").Select

ActiveCell.Columns("A:A").EntireColumn.ColumnWidth = 26.29

ActiveCell.Columns("A:A").EntireColumn.ColumnWidth = 20.71

ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.ColumnWidth = 16.57

ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.ColumnWidth = 13.29

ActiveWindow.SmallScroll Down:=18

ActiveSheet.ChartObjects("Диаграмма 1").Activate

ActiveWindow.SmallScroll Down:=-24

ActiveCell.Offset(0, 3).Columns("A:A").EntireColumn.ColumnWidth = 22.71

ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.ColumnWidth = 16.86

ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.ColumnWidth = 18.14

ActiveWindow.SmallScroll Down:=12

ActiveWindow.View = xlNormalView

ActiveWindow.SmallScroll Down:=-45

ActiveWindow.View = xlPageLayoutView

ActiveWindow.SmallScroll Down:=-36

ActiveWindow.ScrollColumn = 7

ActiveCell.Offset(0, 3).Columns("A:A").EntireColumn.ColumnWidth = 19.71

ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.Select

Selection.ColumnWidth = 14.57

ActiveWindow.SmallScroll Down:=-3

ActiveCell.Offset(0, -2).Columns("A:A").EntireColumn.ColumnWidth = 17.71

ActiveWindow.SmallScroll Down:=0

Selection.ColumnWidth = 16.14

ActiveCell.Offset(9, 2).Range("A1").Select

ActiveWindow.SmallScroll Down:=42

ActiveWindow.ScrollColumn = 6

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 1

ActiveWindow.SmallScroll Down:=-60

End Sub

Завдання 6

1. Для створення презентації заходимо в меню Пуск/Microsoft Office, і як ми бачимо перший слайд вже існує, тому ми вводимо заголовок нашої презентації.

2. Тоді для зміни фону слайду, натискаємо правою кнопкою миші на фон, та у аналоговому вікні обираємо Фон, де обираємо колір фону, чи потрібну нам картинку. Для створення наступного слайду, заходимо в меню Вставка/ Создать слайд.

3. Пізніше нам потрібно вставити картинку з таблиці, тому щоб це зробити заходимо в контекстне меню Вставка/Рисунок/Из файла.

4. Також нам потрібно встановити анімацію. Для цього нам потрібно виділити потрібний нам об’єкт та правою кнопкою миші натискаємо та обираємо Найстройка анімації.