Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.72/193: Рейтинг темы: голосов - 193, средняя оценка - 4.72
0 / 0 / 1
Регистрация: 20.03.2012
Сообщений: 12

Графика. Нарисовать кошку

03.05.2012, 00:18. Показов 39902. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
нарисовать кошку (маленькую)либо что-то другое!
мне нужны разные рисунки!
пожалуйста!))))))
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
03.05.2012, 00:18
Ответы с готовыми решениями:

Как нарисовать кошку?
Помогите пожалуйста нарисовать паскале вот такую кошку, с бегающими глазами или с движущимися усами.

Графика. До задачи что-то дорисовать, разные объекты, кошку, собаку и т.д.
uses graphABC,men,sun; var ch,k,x,y,i:integer; begin setwindowsize(900,800); setpencolor(clskyblue); setbrushcolor(clskyblue); ...

Графика. Нарисовать машинку
Не получается покрасить шины в чёрный цвет и эллипсы (ручки шкафчика и фонарь). Program Car; Uses GraphABC; begin ...

1
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
03.05.2012, 00:42
Лучший ответ Сообщение было отмечено sashka0323 как решение

Решение

подойдет?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses graphABC;
begin
setwindowsize(600,500);
setbrushcolor(clMedGray);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
setbrushcolor(clCream);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
setbrushcolor(clMedGray);
Ellipse(100,430,500,130);
setbrushcolor(clNavy);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
setbrushcolor(clwhite);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);
 
setbrushcolor(clblack);
Ellipse(270,330,330,370);
line(300,370,300,400);
Arc(300,280,120,220,-40);
 
line(50,350,200,350);
line(30,340,190,340);
line(10,330,180,330);
 
line(410,330,570,330);
line(400,340,560,340);
line(390,350,550,350);
 
line(240,230,220,150);
line(230,230,180,80);
line(220,230,180,150);
 
line(360,230,380,150);
line(370,230,430,80);
line(380,230,430,150);
 
end.
а еще по поисковому слову "нарисовать" на форуме можно многое найти... смотря, что нужно...
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
03.05.2012, 00:42
Помогаю со студенческими работами здесь

Графика. Нарисовать телевизор
Нужно нарисовать телевизор,спасибо заранее!!!такой с антеннкой))!!!:)

Графика. Нарисовать елочку
Надо нарисовать елочку в любом паскале с помощью программы для треугольника и лижбо это все работало!!! Добавлено через 7 минут Ну...

Графика. Нарисовать картинку
помогите нарисовать 2 картинки)) желательно и в паскале и в С++ 1)муравей 2)снеговик

Графика. Нарисовать человека
Графика. Нарисовать человека: круглая голова, треугольное туловище, ноги и руки тоже треугольные но вытянутые.

Графика. Нарисовать кубик
Создайте модуль, в котором будет храниться процедура создания следующей картинки. Используя модуль, поместите картинку по углам экрана и в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru