Задание 7. Используя команды рисования в среде Pascal ABC (скачать программу можно по ссылке), создайте изображение по образцу (изображения взято из курса "Рисуем на компьютере", Автор - Дуванов А.А.). Файл сохраните под своей фамилией и загрузите с помощью формы ниже. Срок выполнения задания - до 20.00 20 мая включительно.
Часть рисунка я для вас уже нарисовала. речь о теле и пятнышке на спинке
Чтобы воспользоваться моей подсказкой, скопируйте текст в свою программу
uses GraphABC;
begin
SetWindowSize(600,400);
TextOut(30,30,'Фамилия, число рождения');
moveto(180+день рождения,150);
lineto(350+день рождения,150);
lineto(400+день рождения,250);
lineto(180+день рождения,230);
lineto(180+день рождения,150);
FloodFill(200,180,clperu);{тело}
arc(300,150,30,-180,0);
floodfill(300,160,clbrown); {пятнышко на спине}
end.
Чтобы вы не копировали тектсы друг друга, прошу немного подправить данный текст, добавив к координатам день своего рождения. Не забудьте указать его в команде TextOut
Размещаю также презентацию, которую мы рассмотрели в классе >>>
