Membuat Program Fungsi Parameter (Cardiod) di Delphi7

     

                   Program Fungsi Parameter (Cardiod) di Delphi7

Langka-Langkah Membuat Program Fungsi Parameter :

1. Tambahkan 1 Button 
2. Selanjutnya Klik 2 kali Pada Button 
3. Kemudian Masukan Koding di bawah ini :

        procedure TForm1.Button1Click(Sender: TObject);

        var r,d,c,x,y,theta,thetf: real;

         a,xc,yc:integer;

         begin

         a:=100;xc:=300;yc:=200;

         thetf:=0.0;

         d:=2*PI;

         theta:=d;

         c:=1/a;

         while (thetf<theta) do

         begin

          r:=a*(1+cos(thetf));

          x:=r*cos(thetf);

         y:=-r*sin(thetf);

         canvas.pixels[trunc(xc+x),trunc(yc+y)]:=clblue;

         thetf:=thetf+c;

         end;

         end;

         end.

        4. Langkah Selanjutnya Jalankan Program

 

Demikianlah cara membuat program Elips Midpoint. selamat mencoba semoga berhasil.

Jangan lupa ikuti terus informasi dan berita terupdate di blog herawan09.blogspot.com. sampai bertemu di konten selanjutnya brody.

Baca Juga : Program Fungsi Parameter (Forleaf) di Delphi7