Нужно! выручайте! , нарисуйте собачку (pascal abc) самую простенькую. но собачку. ; )

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

antuarmenskaya

20.12.2021 08:06

Ввести фамилию, имя и отчество, как одно данное типа строка. определить длину строки и количество гласных в нем. вывести третье слово и количество букв в фамилии....

zoeves

20.12.2021 08:06

Нужно нарисовать фигуры так, чтобы изменялось 2 признака. дана фигура синий квадрат и синий круг, что дальше рисовать?...

St151

18.04.2020 00:50

надо сделать вместо 75 , 7500, главное шрифт и цвет нормально подобрать, ну и расположение,...

podshchipkova

30.03.2021 13:38

Нужно сделать схему (сумматор) из логических элементов...

нина412

10.08.2021 13:20

Будь-ласка! Дуже потрібно!...

Рома3762378433

14.09.2020 14:06

Люди добрые ответи правильно только!❤️❤️❤️ ИНФОРМАТИКА!1)Адрес ячейкиЗапишите адрес ячейки, находящейся в 28ой строке и 29ом столбце электронной таблицы. ответ....

Saidusa

13.05.2023 18:06

1. Заполните пустые поля с точками а) клавиша для перемещения курсора к новому абзацу. —б) клавиша удаления слева от курсора -г) клавиша, чтобы оставить пустое место...

makslitovchenk

23.06.2022 02:41

Запишить рядок оголошення змінних типу таблична величина: 1) з іменем mas, складається з елементів дійсного типу з номерами від 10 до 35 ...

gulitenko

29.01.2023 04:35

Написати програму зображення 10 довільно розташованих квадратів із стороною 50. Колір задати на власний смак. в pyron...

vladalogunova

13.04.2022 14:10

1. Определите значение переменной «a» после выполнения фрагмента программы: a = 11 if a 5: a = 12 2. Определите значение переменной «a» после выполнения фрагмента...

Ответ:

dasha1832

02.10.2020 10:35

uses graphABC;
var xk: integer;
procedure Body (xx, yy: integer);
procedure Leg(x,y: integer);
var i: integer;
begin setpenwidth(3);
setpencolor(clwhite);
for i:=x-30 to x+30 do line(x,y-60,i,y);
setpencolor(clblack);
line(x-30,y,x,y-60);
line(x,y-60,x+30,y);
line(x-30,y,x+30,y);
floodfill(x,y-10,clblack);
end;
var s,n: integer;
begin setpenwidth(3);
setbrushcolor(clblack);
circle(xx-115,yy-100,20);
setbrushcolor(clwhite);
rectangle(xx,yy-10,xx+150,yy+130);
ellipse(xx-120,yy-140,xx+50,yy);
if xx mod 50<25 then
begin Leg(xx+20,yy+130);
Leg(xx+130,yy+150);
end
else
begin Leg(xx+20,yy+150);
Leg(xx+130,yy+130);
end;
line(xx-50,yy-5,xx-60,yy+50);
line(xx-60,yy+50,xx-100,yy+10);
line(xx-50,yy-5,xx-100,yy+10);
line(xx+110,yy-50,xx+150,yy-10);
line(xx+110,yy-50,xx+170,yy-60);
line(xx+150,yy-10,xx+170,yy-60);
floodfill(xx+130,yy-40,clblack);
line(xx-10,yy-150,xx+10,yy-100);
line(xx+10,yy-100,xx+40,yy-140);
line(xx-10,yy-150,xx+40,yy-140);
floodfill(xx+10,yy-120,clblack);
floodfill(xx+10,yy-140,clblack);
setpenwidth(1);
circle(xx-25,yy-100,25);
setpenwidth(7);
circle(xx-25,yy-110,8);
end;
procedure Miska;
begin setpenwidth(1);
setbrushcolor(clblue);
ellipse(10,300,110,350);
setbrushcolor(clskyblue);
ellipse(5,290,115,340);
setbrushcolor(clbrown);
ellipse(20,300,100,330);
end;
procedure Zv(x,y: integer);
begin setbrushcolor(clyellow);
circle(x,y,10);
setbrushcolor(clwhite);
circle(x-20,y,13);
circle(x+20,y,13);
circle(x,y-20,13);
circle(x,y+20,13);
end;
begin setwindowsize(500,400);
lockdrawing;
for xk:=500 downto 200 do begin clearwindow;
Zv(50,50);
Zv(380,20);
Zv(70,220);
Zv(170,320);
Body (xk,200);
Miska;
sleep(10);
redraw;
end;
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку