Programowanie grafiki

Spriala Archimedesa
program spirala_Archimedesa;

uses crt,graph;
var s,t:integer;
    c:real;r:real;
    xp,yp:integer;
    x,y:integer;
    fi:integer;

BEGIN
  initgraph(s,t,'');
  xp:=getmaxx div 2; yp:=getmaxy div 2;
  c:=0.125;
  for fi:=0 to 1440 do
  begin
    r:=c*fi;
    x:=round(r*cos (fi*pi/180));
    y:=round(r*sin (fi*pi/180));
    putpixel(xp+x,yp+y,yellow)
  end;
  readkey;
  closegraph;
END.

Układ Słoneczny
program UkladSloneczny;

uses crt, graph;
const rp = 100;
      kp = 2*pi;
var x, y, s, t: integer;
    alfa:real;
    xp, yp, xm, ym: integer;

procedure daneekranu;
begin
  xm:=getmaxx;
  ym:=getmaxy;
  xp:=xm div 2;
  yp:=ym div 2;
  setfillstyle(1,blue);
  bar(10,10,xm-10, ym-10);
  setcolor(7);
  moveto(xp-150,yp);lineto(xp+150,yp);
  line(xp,yp-120,xp,yp+120);
end;

procedure Slonce(xx, yy, rr, kk: integer);
begin
  setcolor(kk);
  circle(xx, yy, rr);
end;

procedure planeta(xx, yy, rr, kk:integer);
begin
  setcolor(kk);
  circle(xx, yy, rr)
end;

procedure ruchplanety;
begin
  alfa:=0;
  while alfa<=kp do
  begin
    x:=round(xp+rp*cos(alfa));
    y:=round(yp+rp*sin(alfa));
    planeta(x,y,5,11);
    delay(25);
    planeta(x,y,5,blue);
    alfa:=alfa+0.01;
  end;
end;

begin
  initgraph(s, t, '');
  daneekranu;
  Slonce(xp, yp, 20, yellow);
  ruchplanety;
  readkey;
  closegraph;
end.