Нарисовать снеговик

@Дмитрий7777777 · Регистрация: 26.05.2013

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

нарисовать снеговика, он должен быть точно по описанию:
сам снеговик из 3 шаров, треугольный нос (треугольник смотрящий влево), руки в виде прямоугольника длинного, круглые глаза, рот вот так должен выглядеть "________" в виде линии.
Шапка в виде прямоугольника больше похожего на квадрат. И посох на правой руке (просто линия вниз).
сверху надпись что это снеговик. Губы должны быть красными, шапка(прямоугольник) должен быть желтым, посох синим и потолще, нос красный.

@Alli_Lupin · 23.09.2013, 11:37

в чём сложность?

@Дмитрий7777777 · 23.09.2013, 11:57 **[ТС]**

Сообщение от Alli_Lupin

в чём сложность?

я в графике не разбираюсь. Не знаю как нарисовать и разукрасить...

@Alli_Lupin · 23.09.2013, 12:00

начнём по порядку: Паскаль знаешь?

@Puporev · 23.09.2013, 12:07

Ну смотри...

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 graph;
var xc,yc,r:integer;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 3;
{снеговик}
r:=30;
setfillstyle(1,15);
fillellipse(xc,yc,r,r);
fillellipse(xc,yc+2*r+r div 2,r+r div 2,r+r div 2);
fillellipse(xc,yc+6*r,2*r,2*r);
{шапка}
setcolor(14);
setfillstyle(1,14);
bar(xc-r div 2,yc-2*r+5,xc+r div 2,yc-r+5);
{глаза}
setcolor(0);
setfillstyle(1,0);
fillellipse(xc-r div 2,yc-r div 2,r div 10,r div 10);
fillellipse(xc+r div 2,yc-r div 2,r div 10,r div 10);
{нос}
setcolor(12);
setfillstyle(1,12);
line(xc,yc,xc+r div 2,yc);
line(xc,yc,xc,yc-r div 5);
line(xc+r div 2,yc,xc,yc-r div 5);
floodfill(xc+2,yc-2,12);
line(xc-r div 2,yc+r div 2,xc+r div 2,yc+r div 2);
{посох}
setcolor(9);
setfillstyle(1,9);
bar(xc-3*r-3,yc,xc-3*r+3,yc+8*r);
{руки}
setcolor(15);
setfillstyle(1,15);
bar(xc-3*r-10,yc+2*r-10,xc,yc+2*r+10);
bar(xc,yc+2*r-10,xc+3*r+10,yc+2*r+10);
readln
end.

Добавлено через 43 секунды

Не по теме:

Сообщение от Alli_Lupin

Паскаль знаешь?

Если нормально, то и я не знаю...

@Alli_Lupin · 23.09.2013, 13:34

Не по теме:

Сообщение от Puporev

Если нормально, то и я не знаю...

если вот так готовый листинг давать, то и он не узнает

@Дмитрий7777777 · 23.09.2013, 15:32 **[ТС]**

Сообщение от Alli_Lupin

в чём сложность?

Могу составить не сложную программу. Ну так и быть могу нарисовать снеговика простого(там почти команды одинаковые), ну разумеется если на код подглядывать и смотреть для чего каждая команда, оператор, тип и т.д.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Дмитрий7777777 0 / 0 / 0 Регистрация: 26.05.2013 Сообщений: 118

	Нарисовать снеговик 23.09.2013, 10:38. Показов 3951. Ответов 6 Метки нет (Все метки) нарисовать снеговика, он должен быть точно по описанию: сам снеговик из 3 шаров, треугольный нос (треугольник смотрящий влево), руки в виде прямоугольника длинного, круглые глаза, рот вот так должен выглядеть "________" в виде линии. Шапка в виде прямоугольника больше похожего на квадрат. И посох на правой руке (просто линия вниз). сверху надпись что это снеговик. Губы должны быть красными, шапка(прямоугольник) должен быть желтым, посох синим и потолще, нос красный. 0

@Alli_Lupin 5042 / 1069 / 149 Регистрация: 29.01.2013 Сообщений: 6,243
	23.09.2013, 11:37
	в чём сложность? 0

@Alli_Lupin 5042 / 1069 / 149 Регистрация: 29.01.2013 Сообщений: 6,243
	23.09.2013, 12:00
	начнём по порядку: Паскаль знаешь? 0

Нарисовать снеговик

Решение