В Паскаль ABC сделать графический рисунок (можно с анимацией)
В Паскаль ABC сделать графический рисунок (можно с анимацией)
Гость
Ответ(ы) на вопрос:
Гость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;
Не нашли ответ?
Похожие вопросы