skip to main |
skip to sidebar
tugas membuat PROGRAM GARIS DENGAN BAHASA PASCAL
uses crt, graph;
var driver,mode:integer;
x1,y1,x2,y2:integer;
step,k:integer;
dx,dy:real;
xm,ym,x,y:real;
procedure utama;
begin
clrscr;
driver:=detect;
InitGraph(driver,mode,'');
end;
procedure Input;
begin
writeln('Program Menggambar Garis Dengan Algoritma DDA');
writeln('<<=========================================>>');
writeln;
write('Masukkan Nilai x1: ');
readln(x1);
write('Masukkan Nilai y1: ');
readln(y1);
write('Masukkan Nilai x2: ');
readln(x2);
write('Masukkan Nilai y2: ');
readln(y2);
end;
procedure Garis_DDA;
begin
dx:=x2-x1;
dy:=y2-y1;
x:=x1;
y:=y1;
if abs(dx) > abs(dy) then
step:=round(abs(dx))
else
step:=round(abs(dy));
xm:=dx/step;
ym:=dy/step;
putPixel(round(x),round(y),white);
for k:=1 to step do
begin
x:=x+xm;
y:=y+ym;
putPixel(round(x),round(y),white);
end;
end;
begin
input;
utama;
Garis_DDA;
readln;
end.
0 komentar:
Posting Komentar