Помогите, очень срочно как нарисовать ракету в паскале ABC
Помогите, очень срочно как нарисовать ракету в паскале ABC
Ответ(ы) на вопрос:
Гость
Program raketa; uses graph, crt; (возможно эта строчка не понадобится, это зависит от версии ПО) Begin line (170,80,190,40); line (190,40,210,80); line (210,80,210,160); line (210,160, 220,170); line (210,160,200,175); line (200,175,200,170); line (200,175,200,205); line (220,170,220,200); line (220,200,200,200); line (200,205,180,205); line (180,205,180,170); line (180,170,190,160); line (190,160,200,170); line (180,175,170,160); line (170,160,170,80); line (180,160,160,170); line (160,170,160,200); line (160,200,180,200); circle (190,80,10); circle (190,110,10); circle (190,140,10); line (170,210,165,220); line (165,220,175,240); line (175,240,185,225); line (180,215,190,240); line (190,240,200,215); line (195,225,205,240); line (205,240,215,220); line (215,220,210,210); end.
Не нашли ответ?
Похожие вопросы