Contoh Program dengan menggunakan Algoritma DDA dalam bahasa Pascal

Prosedur dalam pascal:

uses graph,crt;

{tambahkan pada bagian ini prosedur penginisialisasian device, lihat pada bab 1}

procedure drawLine(xstart,ystart,xend,yend:integer);

var

step,k:integer;

dx,dy:real;

x_inc,y_inc,x,y:real;

begin

dx:=xend-xstart;

dy:=yend-ystart;

x:=xstart;

y:=ystart;

if abs(dx) > abs(dy) then

step:=round(abs(dx))

else

step:=round(abs(dy));

x_inc:=dx/step;

y_inc:=dy/step;

putPixel(round(x),round(y),30);

for k:=1 to step do

begin

x:=x+x_inc;

y:=y+y_inc;

putPixel(round(x),round(y),30);

end;

end;

begin

init;

{menggambar garis dari titik 10,10 ke 500,10}

drawLine(10,10,500,10);

readkey;

destroy;end.