Предмет: Информатика,
автор: deadpenta
Напишите программу через Pascal ABC,которая нарисует эту мышь,пожалуйста
Приложения:

Ответы
Автор ответа:
0
// сойдет?
uses graphAbc;
const
d = 40;
w = d*12;
h = d*8;
x0 = d div 2;
y0 = d div 2;
begin
setwindowsize(w,h);
arc(x0+2*d,h-y0,2*d,180,90);
line(x0+2*d,h-y0-2*d,x0+10*d,h-y0-2*d);
rectangle(x0+10*d,h-y0-2*d,x0+11*d,h-y0-2*d-d div 4);
rectangle(x0+3*d,h-y0-2*d,x0+5*d,h-y0-3*d div 2);
rectangle(x0+7*d,h-y0-2*d,x0+9*d,h-y0-3*d div 2);
arc(x0+6*d,h-y0-2*d,4*d,180,0);
circle(x0+8*d,h-y0-4*d,d div 2);
end.
uses graphAbc;
const
d = 40;
w = d*12;
h = d*8;
x0 = d div 2;
y0 = d div 2;
begin
setwindowsize(w,h);
arc(x0+2*d,h-y0,2*d,180,90);
line(x0+2*d,h-y0-2*d,x0+10*d,h-y0-2*d);
rectangle(x0+10*d,h-y0-2*d,x0+11*d,h-y0-2*d-d div 4);
rectangle(x0+3*d,h-y0-2*d,x0+5*d,h-y0-3*d div 2);
rectangle(x0+7*d,h-y0-2*d,x0+9*d,h-y0-3*d div 2);
arc(x0+6*d,h-y0-2*d,4*d,180,0);
circle(x0+8*d,h-y0-4*d,d div 2);
end.
Похожие вопросы
Предмет: Английский язык,
автор: akarpekin564
Предмет: Геометрия,
автор: Аноним
Предмет: Математика,
автор: aselsidenova472
Предмет: Математика,
автор: Клео76
Предмет: Математика,
автор: Наташа12111