Fungsi Fungsi standar graph
1. Putpixel (x,y,w) : digunakan untuk menggambar titik menggunakan 3 buah parameter yaitu x,y sebagai
titik kordinat dan w merupakan warna dari pixel line (x0,y0,x1,y1)digunakan untuk menggambar garis
terdiri dari 4 parameter yaitu, X0,Y0 sebagai kordinat awal,dan X1,Y1 sebagai kordinat akhir garis
2. rectangle (x0,yo,x1,y1) digunakan untuk menggambar kotak terdiri dari 4 parameter yaitu x0,y0
sebagaikordinat awal yang terletak di sudut kiri atas,dan x1,y1 sebagai kordinat akhir yang terletak di
sudut kanan bawah kotak
3. circle (X,y,r) digunakan untuk menggambar lingkaran terdiri dari 3 parameter yaitu x,y sebagai titik pusat
lingkaran dan r merupakan jari jari lingkaran
4. arc(x,y,st_angle,end_angle,R) digunakan untuk menggambar busur terdiri dari 5 buah parameter yaitu
x,y sebagai titik pusat arcus,st_angle dan end_angle sebagai sudut awal dan akhir yang bernilai 0-360
derajat dan r merupakan jari jari arcus
5. ellipse (x,y,st_angle,end_angle,rx,ry) elipse juga digunakan untuk menggambar busur, sama dengan
arcus,tetapi pada elipse terdapat parameter rx,ry yang merupakan radius (jari jari untuk sudut x dan jari
jari untuk sudut y)
Contoh Soal:
uses graph,crt;
var gd,gm,i:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph(gd,gm,'');
setbkcolor(14);
setcolor(4);
rectangle (60,60,580,420);
circle(320,240,150);
arc(60,60,270,360,60);
arc(60,420,0,90,60);
arc(580,60,180,270,60);
arc(580,420,90,180,60);
readln;
closegraph;
end.
uses graph,crt;
var gd,gm,i:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph(gd,gm,'');
setbkcolor(14);
setcolor(4);
rectangle (60,60,580,420);
circle(320,240,150);
arc(60,60,270,360,60);
arc(60,420,0,90,60);
arc(580,60,180,270,60);
arc(580,420,90,180,60);
readln;
closegraph;
end.
0 komentar:
Posting Komentar