Pascal - Graficzne

Gwiazdy

Gwiazdy
Pascal - Graficzne

Program: Rysujący dwie gwiazdy. (jedną mniejszą w porównaniu do drugiej)

Po podaniu długości jednego boku program wylicza wielkość drugiej (mniejszej) gwiazdki i ustawia je w zdefiniowanym miejscu w kodzie.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program gwiazdy;
uses crt,graph;
const
sciezka='c:\progra~1\tp\bgi';
var
	d,m:integer;
procedure gwiazdka(a:integer);
var b:integer;
begin
          b:=round (a/2);
          linerel(a,0);
          linerel(-b,a);
          linerel(b,a);
          linerel(-a,0);
          linerel(-b,a);
          linerel(-b,-a);
          linerel(-a,0);
          linerel(b,-a);
          linerel(-b,-a);
          linerel(a,0);
          linerel(b,-a);
          linerel(b,a);
          end;
begin
          d:=detect;
          initgraph(d,m,sciezka);
          setcolor(yellow);
          moveto(200,200);
          gwiazdka(20);
          moveto(400,400);
          gwiazdka(30);
          repeat until keypressed;
closegraph;
end.