Приклад програми.

Задача. Для презентації успішної діяльності фірми потрібно побудувати

об’ємну стовпцеву діаграму показників роботи фірми протягом чотирьох

кварталів року. Скласти програму побудови діаграми, де числові

характеристики діяльності фірми такі: 30, 25, 35, 40.

Розгляньте і виконайте програму Graphika.

PROGRAM Graphika;

USES Crt, Graph;

CONST

pauza=1000; {1000 відповідає 1 с}

k=10; {регулює висоту діаграми}

n1=30; n2=25; n3=35; n4=40; {дані}

VAR

driver, mode, y:integer;

t1, t2, t3, t4: string;

BEGIN

driver:=detect; {вважаємо, що екран є 640х480}

initgraph (driver, mode, '');

rectangle (20, 20, getmaxx-20, getmaxy-20);

setviewport (21, 21, getmaxx-21, getmaxy-21, clipoff);

setbkcolor (1);

setcolor (15);

settextstyle (0, 0, 3);

outtextxy (35, 10, 'Фiрма "Роги та копита"');

settextstyle (0, 0, 2);

setcolor (14);

outtextxy (50, 50, 'Дiаграма дiяльностi у 1996 роцi');

settextstyle (0, 1, 2);

setcolor (12);

outtextxy (30, 50, 'Тисячi пар рогiв та копит');

settextstyle (0, 0, 2);

setcolor (14);

y:=getmaxy;

line (40, 70, 40, y-70);

line (30, y-80, getmaxx-70, y-80);

delay (pauza); bar3d (100, y-n1*k, 150, y-80, 10, true);

delay (pauza); bar3d (200, y-n2*k, 250, y-80, 10, true);

delay (pauza); bar3d (300, y-n3*k, 350, y-80, 10, true);

delay (pauza); bar3d (400, y-n4*k, 450, y-80, 10, true);

delay (pauza);

setcolor (12); str (n1, t1); str (n2, t2); str (n3, t3); str (n4, t4);

outtextxy (110, y-150, t1);

outtextxy (210, y-150, t2);

outtextxy (310, y-150, t3);

outtextxy (410, y-150, t4);

outtextxy (115, y-70, 'I');

outtextxy (215, y-70, 'II');

outtextxy (315, y-70, 'III');

outtextxy (415, y-70, 'IV квартали');

readln;

cleardevice;

closegraph

END.

Варіанти завдань.

1. Дослідити область визначення і побудувати графік функції y=1/x².

2. Дослідити область визначення і побудувати графік функції

y=(x+3)/(x-2).

3. Дослідити область визначення і побудувати графік функції

y=3+2/sin(x).

4. Дослідити область визначення і побудувати графік функції

y=1/(3x²+2x+1).

5. Дослідити область визначення і побудувати графік функції

y=x/(x²-3x+1).

6. Дослідити область визначення і побудувати графік функції

y=x/(x²+3x+1).

7. Дослідити область визначення і побудувати графік функції

y=1/(3x²+2x+1).

8. Побудувати на екрані множину точок, координати яких задовольняють таку нерівність або систему нерівностей:

|y|+2|x|<=x²+1.

9. Побудувати на екрані множину точок, координати яких задовольняють таку нерівність або систему нерівностей:

|y|+3|x|<=x²+1.

10. Побудувати на екрані множину точок, координати яких задовольняють таку нерівність або систему нерівностей:

x²+y²<=2(|x|+|y|).

11. Побудувати на екрані множину точок, координати яких задовольняють таку нерівність або систему нерівностей:

4<=x²+y²<=2(|x|+|y|).

12. Побудувати на екрані множину точок, координати яких задовольняють таку нерівність або систему нерівностей:

y>=(1-x²)^1/2, y+|x|<=4.

13. Побудувати на екрані множину точок, координати яких задовольняють таку нерівність або систему нерівностей:

2y-x²<0, x-y>=0.

14. Побудувати на екрані множину точок, координати яких задовольняють таку нерівність або систему нерівностей:

y>=x², y<=-2x²+3x.

15. Побудувати на екрані множину точок, координати яких задовольняють таку нерівність або систему нерівностей:

(x²-3y²+4x+4)^1/2<=2x+1, x²+y²<=1.

39. Вивести коло з демонстрацією всіх можливостей (зміна кольору і типу границі, кольору і типу заливки, положення, розмірів, розтягнення.).

40. Вивести прямокутник...

41. Вивести багатокутник...

42. Вивести сектор...

43. Вивести лінію...

44. Вивести дугу...

45. Вивести еліпс.

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

47. Вивести рамку з кольоровим заповненням будь-якого кольора (оформити процедурою) і виводом тексту цієї задачі.

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

49. Зображення кольрового пікселя, що «біжить» по середині екрана.

50. Зображення кольрового круга, що біжить по середині екрана.

51. Зображення множини різнокольрових пухирців (випадкові розміри та заповнення) до натискання будь-якої клавіші.

52. Зображення горизонтальних ліній через інтервал (задається з клавіатури).

53. Зображення вертикальних різнокольорових ліній на весь екран (введений інтервал корегується програмою).

54. Зображення лінії з використанням процедури putpixel.

55. Зображення лінії «зигзаг».

56. Кругового циклічного орнаменту з усіма графічними примітивами (лінії, дуги, кола...).

57. Зображення круга, розбитого на сектори і розмальованого у вигляді парасольки.

58. Зображення працюючого світлофора (зі зміною кольорів).

59. Зображення ялинки з трикутників.

60. Зображення ялинки з секторів.

61. Зображення множини дуг, що ростуть до сектора заданого розміра.

62. Користуючись задачею №249 створити зображення різнокольорових секторів, які доростають до круга.

63. Виведення по головній діагоналі екрана кругів фіксованого розміра (самостійне визначання).

64. Виведення по бічній діагоналі екрана еліпсів будь-якого розміра (задається з клавіатури та корегується в програмі).

65. Виведення по периметру екрана прямокутників фіксованого розміра (самостійне визначання).

66. Зображення вкладених прямокутників, що сходяться.

67. Зображення грат (вільні або задані розміри).

68. Зображення шахматки, з випадковими кольорами заливки.

69. Зображення сімейства похилих ліній над головною діагоналлю екрана ( інтервал будь-який).

70. Зображення сімейства похилих ліній під бічною діагоналлю (інтервал вводиться з клавіатури).

71. Зображення грат з похилих ліній з випадковою заливкою.

72. Зображення ялинки заданого розміра більшого сектора та кількості секторів (задається з клавіатури) з використанням процедури.

73. Користуючись процедурою задачі №249 створити «ліс» з випадковою кількістю ялинок з випадковими розмірами.

74. СП для створення пейзажа (хатка з виконцями, паркан, крони дерев над парканом, ліс ялинок вдалині, хмаринки з дощовими краплинами, сонечко з промінчиками).

75. СП для виведення графіка будь-якої функції.

76. СП для виведення стовбчикової діаграми на вільну тему.

77. СП для виведення кругової діаграми на вільну тему.

78. Створити примітивний графічний редактор.

79. СП для формування титульного листа реферата (з написами, рамками а малюнками, виклад змісту) за будь-якою графічною функцією.