Составте програму чтобы на икран выводилась кортинка и состояла из 80 строчек uses graphabc нужно ипользовать

Составте програму чтобы на икран выводилась кортинка и состояла из 80 строчек uses graphabc нужно ипользовать
Гость
Ответ(ы) на вопрос:
Гость
Вот программа с елкой:  Uses GraphABC;  Begin  SetWindowSize(600,400);  line(250,100, 300,50);  lineto(350,100);  lineto(250,100);  floodfill(300,70, clgreen);  line(220,200, 300,100);  lineto(380,200);  lineto(220,200);  floodfill(300,150, clgreen);  line(200,300, 300,200);  lineto(400,300);  lineto(200,300);  floodfill(300,250, clgreen);  rectangle(290, 300,310, 320);  floodfill(300,305, clbrown);  line(0, 300, 100, 350);  lineto(200, 320);  lineto(400, 320);  lineto(600, 370);  lineto(600,400);  lineto(0,400);  lineto(0,300);  end. 
Не нашли ответ?
Ответить на вопрос
Похожие вопросы