KALKULATOR SEDERHANA

Pada kesempatan kali ini saya akan membagikan PROGRAM KALKULATOR SEDERHANA dengan menggunakan DELPHI.

procedure TKALKULATOR_SEDERHANA.ButtonTambahClick(Sender: TObject);

//program untuk menghitung hasil a+b

var a, b, c : real ;

begin

  a := StrToFloat (edita.Text);

  b := StrToFloat (editb.Text) ;

  //menghitung hasil a+b

  c := a + b ;

  //cetak c

  edit0.Text := FloatToStr (c);

end;

procedure TKALKULATOR_SEDERHANA.ButtonKurangClick(Sender: TObject);

//program untuk menghitung hasil a-b

var a, b, c : real;

begin

  //baca a dan b

  a := StrToFloat (edita.Text);

  b := StrToFloat (editb.Text) ;

  //hitung a-b

  c := a - b ;

  //cetak hasil a - b

  edit0.Text := FloatToStr (c);

end;

procedure TKALKULATOR_SEDERHANA.ButtonKaliClick(Sender: TObject);

//program untuk menghitung a * b

var a,b,c: real;

begin

  //baca a dan b

    a := StrToFloat (edita.Text);

    b := StrToFloat (editb.Text);

  //hitung a*b

    c := a*b ;

  //cetak a*b

    edit0.Text := FloatToStr (c);

end;

procedure TKALKULATOR_SEDERHANA.ButtonBagiClick(Sender: TObject);

//program untuk menghitung a : b

var a,b,c : real;

begin

 //baca a dan b

   a := StrToFloat (edita.Text);

   b := StrToFloat (editb.Text);

 //hitung a : b

  if b = 0 then edit0.Text := 'TIDAK TERDEFINISI'

  else

    begin

      c := a/b ;

      edit0.Text := FloatToStr (c);

    end

end;

procedure TKALKULATOR_SEDERHANA.ButtonPangkatClick(Sender: TObject);

//program untuk menghitung a^b

var a, b, i :integer;  c : real;

begin

  //baca a dan b

  a := StrToInt (editA.Text);

  b := StrToInt (editB.Text);

  //hitung a ^b jika pangkat = 0

  if b = 0 then edit0.Text := '1';

  //hitung a^b jika pangkat > 0 atau < 0

  c := 1 ;

  for i := 1 to abs (b) do

    begin

    c := c * a ;

    end;

  if b > 0 then  edit0.text := FloatToStr (c);

  if b < 0 then

    begin

    c := 1/a;

    edit0.Text := FloatToStr (c);

  end;

end;

procedure TKALKULATOR_SEDERHANA.ButtonFaktorialClick(Sender: TObject);

//program menghitung faktorial

var a, i, c : integer ;

begin

  //baca a

  a := StrToInt (editA.Text);

  //hitung faktorial

  if a = 0 then edit0.Text := '1' ;

  if a < 0 then showmessage ('Masukan Tidak Berlaku') ;

  if (a > 0) and (a < 13) then

      begin

      c := 1;

      for i := 1 to a do

             begin

            c := c*i ;

            end;

      edit0.Text := IntToStr (c); 

      end ;

  if (a >= 13) then showmessage ('Maaf Kalkulator Ini Hanya Dapat Menghitung Sampai 12 Faktorial !');   

end;