FAJAR SIDIQ

 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Ex: TEdit;     En: TEdit;     ehasil: TEdit;     hasil: TButton;     Derajat: TLabel;     Sudut: TLabel;     Label3: TLabel;     Label4: TLabel;     keluar: TButton;     Label5: TLabel;     procedure hasilClick(Sender: TObject);     procedure keluarClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.hasilClick(Sender: TObject); var   x,y,z,a,b,c,tanda:real      ;   i,j,n      :integer   ; begin ...

 ini perhitungannya, saya ga tau euy cara ngapture gambarnya pake apa ?? :D :D unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Label4: TLabel;     ER1: TEdit;     ER2: TEdit;     ER3: TEdit;     Ehasil: TEdit;     Button1: TButton;     Button2: TButton;     exit: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure exitClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; impl...