Нарисовать зайца с морковкой

@P1XELCORE · Регистрация: 11.04.2013

Author24 — интернет-сервис помощи студентам

Нужно нарисовать рисунок в паскале

я сделал начальные заготовки, но не знаю как нарисовать полукруг (ушки и нога у зайца), пробовал через Arc, но всё криво получается, да и вообще сам полукруг не получился и ещё не получается глаз нарисовать (треугольник), помогите

Pascal

uses GraphABC;
begin
SetPenWidth(5);               // голова
SetPenColor(clPurple);
Circle (250, 130, 50);
SetPenWidth(2);               // щека
SetPenColor(clPurple);
Circle (220, 150, 20);
SetPenWidth(2);               // усы
SetPenColor(clBlack);
Line(270,130,220,150);
SetPenColor(clBlack);
Line(270,145,223,153);
SetPenColor(clBlack);
Line(260,160,222,157);
SetPenColor(clPurple);        // носик
Ellipse(202,141,190,150);
SetPenWidth(5);               // тело
Circle (320, 230, 75);
SetPenWidth(3);               // рука
Circle (250, 230, 20);
SetPenWidth(2);               // хвостик
Ellipse(390,270,410,230);
end.

@КонецСвета · 05.05.2013, 19:57

действительно, если делать заднюю лапу аркой - много возни, легче нарисовать круг и "затереть" белым прямоугольником половину..

Pascal

uses GraphABC;
begin
SetPenWidth(5);               // голова
SetPenColor(clPurple);
Circle (250, 130, 50);
SetPenWidth(2);               // щека
Circle (220, 150, 20);
SetPenWidth(2);               // усы
SetPenColor(clBlack);
Line(270,130,220,150);
Line(270,145,223,153);
Line(260,160,222,157);
SetPenColor(clPurple);        // носик
Ellipse(202,141,190,150);
SetPenWidth(5);               // тело
Circle (320, 230, 75);
SetPenWidth(3);               // рука
Circle (250, 230, 25);
SetPenWidth(2);               // хвостик
Ellipse(390,270,410,230);
SetPenWidth(5);              //задняя лапка
circle(340,315,45);
setpencolor(clwhite);
rectangle(200,320,400,400);
SetPenColor(clPurple);
line(295,315,385,315);
 
arc(295,55,40,60,-120);    //ушки
arc(305,60,40,-120,40);
line(275,85,315,20);
line(275,85,335,35);
 
SetPenWidth(3);           //глазик
line(215,130,235,90);
line(235,90,255,130);
line(255,130,215,130);
 
setpencolor(clblack);
setbrushcolor(clblack);
circle(230,120,7);
setpencolor(clwhite);
line(230,120,240,107);
line(230,120,240,115);
end.

Новые блоги и статьи
Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .
[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .

	05.05.2013, 19:57