Пожалуйста, нарисуйте что-нибудь в паскале АБС

+ 0 -

василисас

15 окт. 2014 г., 6:53:58 (9 лет назад)

uses graphabc;
const n=100;
begin
setwindowsize(4*n,5*n);
setpenwidth(3);
line(n,2*n,n div 2,5*n);
line(3*n,2*n,7*n div 2,5*n);
circle(2*n,3*n div 2,3*n div 2);
circle(7*n div 3,4*n div 3,n div 10);
circle(13*n div 4,4*n div 3,n div 10);
setbrushcolor(0);
circle(7*n div 3-n div 20,4*n div 3,n div 50);
circle(13*n div 4-n div 20,4*n div 3,n div 50);
setpenwidth(4);
line(n*19 div 10,5*n div 3,n*10 div 3,5*n div 3)
end.