unit bakso;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    edt5: TEdit;
    lbl8: TLabel;
    lbl9: TLabel;
    edt6: TEdit;
    edt7: TEdit;
    edt8: TEdit;
    edt9: TEdit;
    edt10: TEdit;
    edt11: TEdit;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    ud1: TUpDown;
    ud2: TUpDown;
    ud3: TUpDown;
    ud4: TUpDown;
    ud5: TUpDown;
    Label1: TLabel;
    Button1: TButton;
    procedure btn3Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure ud1Click(Sender: TObject; Button: TUDBtnType);
    procedure ud2Click(Sender: TObject; Button: TUDBtnType);
    procedure ud3Click(Sender: TObject; Button: TUDBtnType);
    procedure ud4Click(Sender: TObject; Button: TUDBtnType);
    procedure ud5Click(Sender: TObject; Button: TUDBtnType);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn3Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  k_bakso,k_mi,k_teh,k_jeruk,k_krupuk,
  s_bakso,s_mi,s_teh,s_jeruk,s_krupuk,total:Real;
begin
  k_bakso:=StrToFloat(edt1.Text);
  k_mi:=StrToFloat(edt2.Text);
  k_teh:=StrToFloat(edt3.Text);
  k_jeruk:=StrToFloat(edt4.Text);
  k_krupuk:=StrToFloat(edt5.Text);
  s_bakso:=10000*k_bakso;
  s_mi:=6000*k_mi;
  s_teh:=2000*k_teh;
  s_jeruk:=3000*k_jeruk;
  s_krupuk:=500*k_krupuk;
  total:=s_bakso + s_mi + s_teh + s_jeruk + s_krupuk;

  edt6.Text:=FloatToStr(s_bakso);
  edt7.Text:=FloatToStr(s_mi);
  edt8.Text:=FloatToStr(s_teh);
  edt9.Text:=FloatToStr(s_jeruk);
  edt10.Text:=FloatToStr(s_krupuk);
  edt11.Text:=FloatToStr(total);
end;

procedure TForm1.ud1Click(Sender: TObject; Button: TUDBtnType);
begin
  edt1.Text:=IntToStr(ud1.position);
end;

procedure TForm1.ud2Click(Sender: TObject; Button: TUDBtnType);
begin
  edt2.Text:=IntToStr(ud2.position);
end;

procedure TForm1.ud3Click(Sender: TObject; Button: TUDBtnType);
begin
  edt3.Text:=IntToStr(ud3.position);
end;

procedure TForm1.ud4Click(Sender: TObject; Button: TUDBtnType);
begin
  edt4.Text:=IntToStr(ud4.position);
end;

procedure TForm1.ud5Click(Sender: TObject; Button: TUDBtnType);
begin
  edt5.Text:=IntToStr(ud5.position);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  edt1.Text:='';
  edt2.Text:='';
  edt3.Text:='';
  edt4.Text:='';
  edt5.Text:='';
  edt6.Text:='';
  edt7.Text:='';
  edt8.Text:='';
  edt9.Text:='';
  edt10.Text:='';
  edt11.Text:='';
end;

end.

unit u_nilai;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  close
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
var nilai:integer;
    hasil:string;
begin
    nilai:=strtoint(edit1.text);
    if
      nilai<60 then
      hasil:='Tidak Lulus'
    else
      hasil:='Lulus';
    edit2.Text:=hasil;

end;

end.

unit kalkulator;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure Button7Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button7Click(Sender: TObject);
begin
  close
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit1.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c:real;
begin
  a:=StrToFloat(edit1.text);
  b:=StrToFloat(edit2.text);
  c:=a+b;
  edit3.Text:=FloatToStr (c);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  a,b,c:real;
begin
  a:=StrToFloat(edit1.text);
  b:=StrToFloat(edit2.text);
  c:=a-b;
  edit3.Text:=FloatToStr (c);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  a,b,c:real;
begin
  a:=StrToFloat(edit1.text);
  b:=StrToFloat(edit2.text);
  c:=a*b;
  edit3.Text:=FloatToStr (c);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  a,b,c:real;
begin
  a:=StrToFloat(edit1.text);
  b:=StrToFloat(edit2.text);
  c:=a/b;
  edit3.Text:=FloatToStr (c);
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  a,b,c:integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  c:= a mod b;
  Edit3.Text := IntToStr(c);
end;

end.

unit Ukerucut;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var T,R,S,L,V:real;
begin
  //input
  T:=strtofloat(edit1.text);
  R:=strtofloat(edit2.text);
  S:=strtofloat(edit3.text);
  //proses
  V:=1/3*3.14*2*r*t;
  L:=3.14*R*(R+S);
  //output
  edit4.Text:=floattostr(V);
  edit5.Text:=floattostr(L);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  edit5.Text:='';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 close;
end;

end.

unit menghitung_luas_volume_tabung;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label5: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var T,R,L,V:real;
begin
  //input
  T:=strtofloat(edit1.text);
  R:=strtofloat(edit2.text);
  //proses
  V:=0.25*3.14*2*r*t;
  L:=2*3.14*R*(R+T);
  //output
  edit3.Text:=floattostr(V);
  edit4.Text:=floattostr(L);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
end;

end.

unit luas_persegi_panjang;

interface

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

type
  TForm1 = class(TForm)
    edtLebar: TEdit;
    lbPanjang: TLabel;
    lbLebar: TLabel;
    edtPanjang: TEdit;
    lbLuas: TLabel;
    lbLKeliling: TLabel;
    edtLuas: TEdit;
    edtKeliling: TEdit;
    btnHitung: TButton;
    btnReset: TButton;
    btnClose: TButton;
    Label1: TLabel;
    procedure btnCloseClick(Sender: TObject);
    procedure btnResetClick(Sender: TObject);
    procedure btnHitungClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnCloseClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.btnResetClick(Sender: TObject);
begin
  edtPanjang.Text:='';
  btnReset.Caption:='reset';
  edtLebar.Text:='';
  btnReset.Caption:='reset';
  edtLuas.Text:='';
  btnReset.Caption:='reset';
  edtKeliling.Text:='';
  btnReset.Caption:='reset';
end;

procedure TForm1.btnHitungClick(Sender: TObject);
Var
  nPanjang : Integer;
  nLebar : Integer;
  nLuas : Integer ;
  nKeliling : Integer ;
begin
  nPanjang := StrToInt(edtPanjang.text);
  nLebar := StrToInt(edtLebar.Text);
  nLuas := nPanjang * nLebar;
  nKeliling := (nPanjang + nLebar) *2;
  edtLuas.text := IntToStr(nLuas);
  edtKeliling.text := IntToStr(nKeliling);
end;

end.