MENGHITUNG LUAS DAN VOLUME BOLA DENGAN DELPHI

unit Bola;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

type
  TBola = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    edJari: TEdit;
    Label3: TLabel;
    edLuas: TEdit;
    Label4: TLabel;
    edVolume: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Image1: TImage;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Bola: TBola;
 r,luas,volume:real;
implementation

{$R *.dfm}

procedure TBola.FormCreate(Sender: TObject);
begin
edJari.Enabled:=false;
edLuas.Enabled:=false;
edVolume.Enabled:=false;
end;

procedure TBola.Button1Click(Sender: TObject);
begin
edJari.Enabled:=true;
edJari.SetFocus;
end;

procedure TBola.Button2Click(Sender: TObject);
begin
r:=strtofloat(edJari.Text);
luas:=4*3.14*(r*r);
volume:=(4/3)*(22/7)*(r*r*r);
edLuas.Text:=FloatToStr(luas);
edVolume.Text:=FloatToStr(volume);
end;

procedure TBola.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;

end.



>>JANGAN DI COPAS YA GAN...DICOBA SENDIRI JA DENGAN MELIHAT INI...SEMOGA MEMBANTU<<
<<SELAMAT MENCOBA...SEMOGA SUKSES>>