Снеговик в паскаль абс

Автор Заблудший немец задал вопрос в разделе Другие языки и технологии

Как в паскале авс нарисовать снеговика? и получил лучший ответ

Ответ от Ўрий[гуру]
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);

Читайте также:  Как выйти из режима масштабирования в virtualbox

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.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Adblock detector