Практическая работа

Тема: Разветвление в графике

Цель: показать работу модуля GRAPH. Закрепить строковый тап переменнх.

Задача

В переменную а ввели значение. Если А = «ВИШНЯ», то рисуется вишня иначе яблоко.

Решение

Исходные данные: Результат:

Число а - строковая переменная На экране - рисунок

Ход работы

1. Набрать готовую программу на языке Паскаль.

2. Получить результат. Сохранить с именем IF1.

3. Изменить цвет фона на голубой, цвет ягод вишни на зеленый, цвет яблока - на красный.

4. Просмотреть результат. Сохранить программу с именем IF2.

5. Изменить размер яблока и вишни.

Программа:

PROGRAM RIS; {РИСУЕТ яблоко или вишню}

USES GRAPH;

VAR

gd,gm: INTEGER;

a:string;

BEGIN

WRITELN('Введите значение А');

READLN(A);

gd:=DETECT;

INITGRAPH (gd,gm,'с:\bp\bgi');

SETBKCOLOR(1);

CLEARDEVICE;

SETCOLOR(7);

IF A='ВИШНЯ' THEN

BEGIN

LINE(420,120,380,150);

LINE(420,120,350,120);

LINE(350,120,300,150);

LINE(300,150,380,150);

SETFILLSTYLE(1,2);

FLOODFILL(322,145,7);

LINE(250,320,300,150);

LINE(350,320,300,150);

CIRCLE(250,350,30);

CIRCLE(350,350,30);

SETFILLSTYLE(1,4);

FLOODFILL(250,350,7);

FLOODFILL(350,350,7);

READLN;

END

ELSE

BEGIN

CIRCLE(250,250,150);

SETFILLSTYLE(1,14);

FLOODFILL(250,150,7);

RECTANGLE(250,100,260,70);

SETFILLSTYLE(1,6);

FLOODFILL(251,75,7);

READLN;

END;

CLOSEGRAPH;

END.