- Другие интересные вопросы и ответы
- Почему Дисней решили сделать Эластикгерл такую большую попу?
- Как отобразить выделенную область в SAI ?
- Как рисовать фракталы в PascalABC.Net?
- Как в паскаль ABC нарисовать полностью закрашенный треугольник?
- Как сделать овал под определенным углом в программе Pascal graphABC?
Автор Заблудший немец задал вопрос в разделе Другие языки и технологии
Как в паскале авс нарисовать снеговика? и получил лучший ответ
Ответ от Ўрий[гуру]
program baba;
uses graph;
var a,b:integer;
begin
a:=detect;
initgraph(a,b,”);
setbkcolor(1); <цвет фона*>
Setcolor(15); <цвет линий>
circle(358,183,36);
circle(358,287,70);
circle(358,475,115);
line(317,151,399,151);
line(317,151,340,100);
line(340,100,378,100);
line(378,100,399,151);
arc(358,183, 360,170,25); <рот>
circle(346,170,5); <левый глаз>
circle(370,170,5); <правый глаз >
ellipse (294,592,360,0,31,18); <левоя нога*>
ellipse (410,595,360,0,31,18); <правоя нога*>
line(288,287,183,393); <левоя рука>
Line(212,364,212,406);
line(212,364,174,365);
line(427,287,507,393); <Правоя рука*>
line(485,364,516,406);
line(536,365,485,365);
readln;
closegraph;
end.
Не проверял, напиши что получилось
Чтобы добавить хороший ответ необходимо:
- Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
- Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
- Писать без грамматических, орфографических и пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
- Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
- Использовать мат – это неуважительно по отношению к пользователям;
- Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи – смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Другие интересные вопросы и ответы
Почему Дисней решили сделать Эластикгерл такую большую попу?
«Суперсемейка» — это не совсем Дисней, а Пиксар. А Пиксар всегда славился объёмом в своих рисунках: вспомните, какие аппетитные формы у миссис картофель в Истории игрушек, какие щёки у Храброй сердцем, или брюшко муравьихи принцессы Атты из Приключений Фликка — сравните это всё с тощими персонажами Холодного сердца, например, и сразу всё поймёте. А я для себя объяснял, что Эластика, в отличие от привычных нам мультипликационных героев-женщин любой студии создателя, вообще-то, родила сама троих детей — оставить бёдра в расширенной форме в этом случае, мне кажется, — вполне нормально для женского организма. С другой стороны, она же Эластика и может везде, где надо, увеличить, а где надо, убрать — возможно, она уменьшала всё после первого-второго ребёнка, а потом забила) либо же, как женщина 21 века, следует трендам, а тренды сейчас на задницах, как у Минаж, Дженнер и Кардашьян, например. Но у них всё хирурги, а у Эластики всё своё)
Как отобразить выделенную область в SAI ?
Как рисовать фракталы в PascalABC.Net?
procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1), Round(y1));
procedure Draw(x, y, l: real; iterations: integer);
var lx := x + l * Cos(Angle);
var ly := y + l * Sin(Angle);
var angle1 := -Pi / 2 + Angle;
var rx := x + l * Cos(angle1);
var ry := y + l * Sin(angle1);
if iterations > 0 then
Draw(lx, ly, l, iterations);
Draw(rx, ry, l, iterations);
Draw(300, 300, 200, 7);
procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1), Round(y1));
procedure Draw(x, y, l: real);
RLine(xp, y, xp, ym);
RLine(xp, y, xp, yp);
RLine(xm, y, xm, ym);
RLine(xm, y, xm, yp);
Draw(Window.Width / 2, Window.Height / 2, 100);
Чёртова лестница Кантора:
procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1), Round(y1));
function Distance(x, y, x1, y1: real):= Sqrt(Sqr(x1 — x) + Sqr(y1 — y));
procedure Draw(x, y, x1, y1: real);
var dx := (x1 — x) / 3;
var my := (y1 + y) / 2;
RLine(x + dx, my, x + 2 * dx, my);
var x2 := x + 2 * dx;
if Distance(x, y, x1, y1) Volobuev 6
Как в паскаль ABC нарисовать полностью закрашенный треугольник?
Ты закрашиваешь ту точку, из которой рисуешь линию
закрашивай внутри треугольника
Как сделать овал под определенным углом в программе Pascal graphABC?
Привет. Под углом овал рисуется помощью кода, вот пример элипса под углом:
uses graphABC;
function rot_x(x,y:integer;t:real):integer;
begin
rot_x:=round(x*cos(t)-y*sin(t));
end;
function rot_y(x,y:integer;t:real):integer;
begin
rot_y:=round(x*sin(t)+y*cos(t));
end;
procedure ellips(x,y,a,b:integer;u:real; c:integer);
var sx,sy,rx,ry,i:integer;
du:real;
begin
sx:=x+rot_x(a,0,u);
sy:=y+rot_y(a,0,u);
setpencolor(c);
moveto(sx,sy);
du:=0;
for i:=1 to 38 do
begin
du:=du+pi/20;
rx:=round(a*cos(du));
ry:=round(b*sin(du));
lineto(x+rot_x(rx,ry,u),y+rot_y(rx,ry,u));
end;
lineto(sx,sy);
end;
var x0,y0:integer;
begin
x0:=windowwidth div 2;
y0:=windowheight div 2;
ellips(x0,y0,100,25,pi/4,clRed);
ellips(x0,y0,100,25,3*pi/4,clBlue);
end.