GraphABC ◊ Точка, отрезок, окружность, прямоугольникРисуем линииРисуем окружностиПодписываем рисункиМаленькие картиныСоставление алгоритмлв. Часть1 Часть 2Часть 3Часть 4Часть 5Более сложные  программы Составление алгоритмов. Часть 2

  Пример. Написать программу, которая рисует на экране компьютера следующий рисунок, используя процедуры circle, setpencolor, rectangle, line, lineto, setbrushcolor, moveto, floodfill.

 

Образец выполнения задания.

Этапы выполнения задания.

I. Определение исходных данных: результат работы программы не зависит от переменных.

II. Определение результатов: результатом является готовый рисунок.

III. Алгоритм решения задачи.

1.  Инициализация графического режима.

2. Выполнение рисунка. Рисунок состоит из следующих элементов: прямоугольники, линии, круг.

IV. Описание переменных:

Переменные отсутствуют.

V. Программа:

uses graphabc;
begin

setwindowsize (620,620);
setwindowtitle ('Броневой транспортер');
circle(100,500,50);
circle(500,500,50); {гусеницы}
setpencolor (clWhite );{рисуем белый прямоугольник}
rectangle(100,450,500,550);
setpencolor (clblack );
line(100,450,500,450);
line(100,550,500,550);
circle(120,500,20); circle(285,500,20);
circle(230,500,20); circle(175,500,20);
circle(340,500,20); circle(395,500,20);
circle(450,500,20); circle(505,500,20);
setbrushcolor(clSilver ); {закраска корпуса}
rectangle(150,300,450,450);{корпус}
moveto(250,300);{перископ}
lineto(250,180);
lineto(400,180);
lineto(400,220);
lineto(300,220);
lineto(300,300);
lineto(250,300);
floodfill(300,200,3);
floodfill(60,500,3);{закраска гусениц}

end.

Можешь загрузить!       Пример

VI. Тестирование программы:

1. Запустить программу. Проверить правильность выполнения рисунка.

2. Почему на рисунке некоторые линии нарисованы белым цветом?

3. Чем отличается рисунок полученный в программе от рисунка в задании?

4. Перископ нарисован с использованием команды lineto. Как можно было рисовать перископ по другому?

5.  Замените перископ на пушку.

6.  Добавьте к рисунку свои элементы.

  Самостоятельная работа      

 

1.	2.
3.	4.

 

 

Copyright © 2008 Гимназия №1 имени К.Калиновского г.Свислочь © Синица А.А.