Последний раз редактировалось Lia 29.09.2018, 20:44, всего редактировалось 1 раз.
program xxx; uses GraphABC; var fon, pic: integer; begin SetWindowSize(640,520); fon:=LoadPicture('Earth.jpg'); DrawPicture ('Earth.jpg'); Ellipse(106,220, 122,300); pic:=LoadPicture('robot.jpg'); DrawPicture(pic, 60, 310, -50, -100); DrawPicture(pic, 380, 10, 250, 500); SetPenColor(clYellow); line(60, 310, 380,10); line(60, 210, 380,510); SetPenColor(cWhite); line(10,310, 630,10); line(10,210, 630,510); end. ссылки удалены [b] Огромное спасибо))))))))))))))))))))
|