AquaTour
Специалист
Группа: Пользователи Сообщений: 417 Регистрация: 4.07.2005 Пользователь №: 27.183
Респектов: 50
Предупреждений: 0
| Вот танк, вторую может позже решу.
uses Graph; var grDriver : Integer; grMode : Integer; ErrCode : Integer; begin grDriver:=Detect; InitGraph(grDriver, grMode, 'D:\Language\BPascal\BGI'); Line(200, 100, 230, 100); Line(230, 100, 230, 110); Line(210, 110, 230, 110); Line(200, 100, 200, 130); Line(210, 110, 210, 130); Line(180, 130, 270, 130); Line(180, 130, 180, 160); Line(180, 160, 270, 160); Line(270, 130, 270, 160); Line(140, 160, 310, 160); Line(140, 190, 310, 190); Arc(140, 175, 90, 270, 15); Arc(310, 175, 270, 90, 15); Circle(155, 175, 10); Circle(190, 175, 10); Circle(225, 175, 10); Circle(260, 175, 10); Circle(295, 175, 10); ReadLn; CloseGraph; end. |