Pascal - Graficzne

Rysunek traktora

Rysunek traktora
Pascal - Graficzne

Program: przedstawiający traktor.

Wszystkie elementy domu pochodzą z kodu.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program animacja;
uses crt,graph;
var ster,modul,x,y,i,kat,r,x1,x2,y1,y2:integer;
begin
clrscr;
       detectgraph(ster,modul);
       initgraph(ster,modul,'c:\Progra~1\TP\BGI');
       circle(100,300,15);
       circle(250,300,20);
       rectangle(90,250,280,290);
       rectangle(100,200,120,249);
       line(281,280,301,280);
       rectangle(302,250,381,290);
       circle(360,300,12);
       line(190,250,230,200);
       line(231,200,270,200);
       line(271,200,271,250);
       delay(150);
repeat
 until keypressed;
closegraph;
end.