Задача №3.

Умова: Скласти програму, яка при натисканні клавіші Д (день) малює сонце, а при натисканні клавіші Н (ніч) малює місяць.

По-перше, для вибору малюнку (день чи ніч) введемо символьну змінну Ch, в залежності від значення якої і будемо малювати сонце чи місяць.

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

Програма, що реалізує запропонований алгоритм, має наступний вигляд:

Program P3;

Uses graph,crt; {Підключення бібліотек}

Var GraphDriver,GraphMode:integer;

Ch:char; {Ch – символьна змінна, що дає

змогу користувачеві обрати

бажаний малюнок}

Begin

Clrscr;

Writeln(‘Введіть Ваш вибір: Д – день, Н – ніч.’);

Readln(ch);

GraphDriver:=VGA; {Ініціалізація графічного

режиму}

GraphMode:=VGAHi;

InitGraph(GraphDriver,GraphMode,’’);

if (Ch='Д') or (Ch=’д’)

then

begin

setfillstyle(1,yellow);

setcolor(yellow);

fillellipse(100,80,50,50); {Малювання сонця}

line(100,80,250,80); {Малювання променів}

line(100,80,240,30);

line(100,80,200,250);

line(100,80,230,180);

line(100,80,150,250);

line(100,80,100,300);

line(100,80,50,380);

line(100,80,20,280);

line(100,80,0,150);

line(100,80,0,80);

line(100,80,0,30);

line(100,80,10,0);

line(100,80,50,0);

line(100,80,100,0);

line(100,80,150,0);

end

else

if (Ch='Н') or (Ch=’н’)

then

begin

setfillstyle(1,yellow);

setcolor(yellow);

fillellipse(100,80,50,50);

setfillstyle(1,black);

setcolor(black);

fillellipse(130,80,50,50);

end

else writeln('Ви помилилися!');

Readkey; {Затримка зображення на екрані}

Closegraph; {Закриття графічного режиму}

End.


Задача №4.

Умова: "Зоряне небо". Заповнити екран монітора різнокольоровими точками, кількість яких, колір та координати визначаються випадковим чином.

Для вибору випадковим чином вказаних величин скористуємось функцією Random, що вибирає числа з заданого діапазону, причому врахуємо, що, якщо в дужках після функції вказане ціле число, то будуть генеруватися цілі числа в діапазоні від 0 до вказаного числа. Зверніть увагу на те, що всього можливих кольорів 16 (від 0 до 15), але на чорному тлі чорний колір (з нульовим номером) не видимий, тому можна скористатися такою формулою для отримання ненульових цілих чисел в діапазоні від 1 до 15:

random(14)+1

Аналогічно можна вибрати координати та кількість "зірок" (точок) на екрані, причому відслідкувати, щоб кількість ніколи не була нульовою. Сама "зірка" (точка) на екрані може бути отримана процедурою Putpixel, що задає колір та координати точки виведення.

Програма, що реалізує запропонований алгоритм, має наступний вигляд:

Program P4;

Uses graph; {Підключення бібліотек}

Var GraphDriver,GraphMode:integer;

x,y,color,N:integer; {x,y – координати точки-

“зірки”, color – колір точки,

N – кількість точок}

i:integer; {i – змінна циклу}

Begin

Randomize;

GraphDriver:=VGA; {Ініціалізація графічного

режиму}

GraphMode:=VGAHi;

InitGraph(GraphDriver,GraphMode,’’);

N:=random(1000)+200; {Генерується кількість

точок в діапазоні від 200

до 1200}

for i:=1 to N do

begin

x:=random(640);

y:=random(480);

color:=random(14)+1;

putpixel(x,y,color); {Виведення піксела

заданого кольору color у

задані координати екрану

x та y}

end;

Readkey; {Затримка зображення на екрані}

Closegraph; {Закриття графічного режиму}

End. 

Характеристики работы

Реферат

Количество страниц: 22

Бесплатная работа

Закрыть

Работа в графическом режиме в Турбо Паскаль

Заказать данную работу можно двумя способами:

  • Позвонить: (097) 844–69–22
  • Заполнить форму заказа:
Не заполнены все поля!
Обязательные поля к заполнению «имя» и одно из полей «телефон» или «email»

Чтобы у вас была возможность удостовериться в наличии вибраной работы, и частично ознакомиться с ее содержанием,ми можем за желанием отправить часть работы бесплатно. Все работы выполнены в формате Word согласно всех всех требований относительно оформления работ.