Question

В Паскаль ABC сделать графический рисунок (можно с анимацией)

Answer 1

cls
x=100;
y=99;
LINE (100,600)-(700,600),8;
LINE(700,600)-(750,550),8;
LINE (750, 550)-(700, 500),8;
LINE (700, 500)-(400,600),8; 
LINE (400,600)-(250,300),8;  
LINE (250, 300)-(100,600),8;
LINE (100, 300)-(400, 100),8,B;
For i=1 to 100 Preset(x,y+i) next i;
x=401;
y=100;
For i=1 to 100 Preset(x-i,y) next i;
LINE (100, 100)-(150,50),8;
LINE (150,50)-(200,100),8;
LINE (300,100)-(350, 50),8;
LINE (350,50)-(400, 100),8;