Инфоурок / Информатика / Другие методич. материалы / Практическая работа "Графика на языке Паскаль"

Практическая работа "Графика на языке Паскаль"

Курсы профессиональной переподготовки
124 курса

Выдаем дипломы установленного образца

Заочное обучение - на сайте «Инфоурок»
(в дипломе форма обучения не указывается)

Начало обучения: 29 ноября
(набор групп каждую неделю)

Лицензия на образовательную деятельность
(№5201 выдана ООО «Инфоурок» 20.05.2016)


Скидка 50%

от 13 800  6 900 руб. / 300 часов

от 17 800  8 900 руб. / 600 часов

Выберите квалификацию, которая должна быть указана в Вашем дипломе:
... и ещё 87 других квалификаций, которые Вы можете получить

Получите наградные документы сразу с 38 конкурсов за один орг.взнос: Подробнее ->>

библиотека
материалов

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

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

Цель: показать работу модуля 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.


Самые низкие цены на курсы переподготовки

Специально для учителей, воспитателей и других работников системы образования действуют 50% скидки при обучении на курсах профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 29 ноября. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru


Общая информация

Номер материала: ДВ-006179
Курсы профессиональной переподготовки
124 курса

Выдаем дипломы установленного образца

Заочное обучение - на сайте «Инфоурок»
(в дипломе форма обучения не указывается)

Начало обучения: 29 ноября
(набор групп каждую неделю)

Лицензия на образовательную деятельность
(№5201 выдана ООО «Инфоурок» 20.05.2016)


Скидка 50%

от 13 800  6 900 руб. / 300 часов

от 17 800  8 900 руб. / 600 часов

Выберите квалификацию, которая должна быть указана в Вашем дипломе:
... и ещё 87 других квалификаций, которые Вы можете получить

Похожие материалы

Получите наградные документы сразу с 38 конкурсов за один орг.взнос: Подробнее ->>