Minggu, 30 Oktober 2016

Program Delphi Daily Problem "PEMBELIAN TANAH"

By    10/30/2016 07:34:00 PM // No comments
procedure TTanah.Button1Click(Sender: TObject);
var

  m,o,n,s,l:real;
begin
  l:=strtofloat(edit1.Text);
  s:=500000;
  n:=2000000;
  o:=(l*n) + s;
  m:=(200*n) +s+((l-200)*s);
  if l<80 then edit2.Text:='Pembelian Minimal 80 Meter Persegi';
  if l>=80 then edit2.Text:=floattostr(o);
  if l>200 then edit2.Text:=floattostr(m);



end;

procedure TTanah.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.text:=' ';
end;

procedure TTanah.Button3Click(Sender: TObject);
begin
DailyProblems.Show;
Tanah.Hide;
end;

end.

Program Delphi Daily Problem "PARKIR"

By    10/30/2016 07:31:00 PM // No comments
procedure TParkir.Button1Click(Sender: TObject);
var
  l,b,p,by:integer;
begin
  l:=strtoint(edit1.text);
  b:=1000;
  p:=500;
  by:= (l*b)+p;
  if l<2 then edit2.Text:='Error';
  if (l>=2) and (l<=6) then edit2.Text:=inttostr(by);
  if (l>6) and (l<=10) then edit2.Text:=inttostr(by+250*(l-6));
  if (l>10) then edit2.Text:=inttostr(by+500*(l-10));



end;

procedure TParkir.Button2Click(Sender: TObject);
begin
Edit1.Text:=' ';
edit2.Text:=' ';
end;

procedure TParkir.Timer1Timer(Sender: TObject);
begin
label9.Left:=label9.Left-30;
 if  label9.Left<=-100 then
 label9.Left := 750;
end;

procedure TParkir.Button3Click(Sender: TObject);
begin
DailyProblems.Show;
Parkir.Hide;
end;

end.

Program Delphi Daily Problem "BONUS"

By    10/30/2016 07:21:00 PM // No comments
procedure TBonus.Button1Click(Sender: TObject);
Var
  p:real;
begin
  p:=strtofloat(edit1.Text);
  if p>= 500000 then edit2.Text:='Tiket Ke Swiss' else
  if (p>=400000) and (p<500000) then edit2.Text:='Jam Tangan Rolex' else
  if (p>=300000) and (p<400000) then edit2. text:='Tiket Ke Bali' else
  if (p>=200000) and (p<300000) then edit2.Text:='Tiket Ke Yogya' else
  if (p>=100000) and (p<200000) then edit2.Text:='Discount 5%' else
  edit2.Text:='Error';

end;

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

procedure TBonus.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-300 then
 label1.Left := 750;
end;

procedure TBonus.Button2Click(Sender: TObject);
begin
DailyProblems.Show;
Bonus.Hide;
end;

Program Delphi Daily Problem "UTANG PIUTANG"

By    10/30/2016 07:13:00 PM // No comments
procedure TUang.Button1Click(Sender: TObject);
var
  w,i:integer;
  b,p:real;
begin
  p:=strtofloat(edit1.Text);
  b:=strtofloat(edit2.text);
  w:=strtoint(edit3.Text);
  for i:= 1 to w do
  begin
  p:=p+(p*(b/100));
  listbox1.Items.add('Bulan ke-' + inttostr(i) +'=' + floattostr(p));
  end;

end;

procedure TUang.Button2Click(Sender: TObject);
begin
edit1.text:=' ';
edit2.text:=' ';
edit3.text:=' ';
listbox1.items.Clear;
end;

procedure TUang.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-300 then
 label1.Left := 750;
end;

procedure TUang.Button3Click(Sender: TObject);
begin
DailyProblems.Show;
Uang.Hide;
end;

end.

Program Delphi Daily Problem "PEMAKAIAN LISTRIK"

By    10/30/2016 07:09:00 PM // No comments
procedure TListrik.Button1Click(Sender: TObject);
var
  v,k,j:real;
begin
  v:=strtofloat(edit1.Text);
  k:=strtofloat(edit2.Text);
  if v = 450 then
  begin
    j:=(k*415)+5000;
    edit3.Text:=floattostr(j);
  end;
  if v =900 then
  begin
    j:=(k*605)+5000;
    edit3.Text:=floattostr(j);
  end;
  if v =1300 then
  begin
    j:=(k*1352)+6500;
    edit3.Text:=floattostr(j);
  end;
  if v=2200 then
  begin
    j:=(k*1584)+6500;
    edit3.Text:=floattostr(j);
  end;

end;


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

procedure TListrik.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-650 then
 label1.Left := 750;
end;

procedure TListrik.Button3Click(Sender: TObject);
begin
DailyProblems.Show;
Listrik.Hide;
end;

end.

Program Delphi Daily Problem "PEMAKAIAN AIR"

By    10/30/2016 07:03:00 PM // No comments
procedure TAir.Panel1Click(Sender: TObject);
var
  j,b1,b2,b3,s,bb,ba,h,b:integer;
begin
  j:=strtoint(edit1.Text);
  bb:=7000;
  ba:=10000;
  b1:=10*3300;
  b2:=10*6000;
  b3:=10*9400;
  if (j>=0) and (j<=10) then
  begin
  b:=(j*3300)+bb+ba;
  h:=j*3300;
  edit2.text:=inttostr(h);
  edit3.text:=inttostr(b);
  end;
  if (j>=11) and (j<=20) then
  begin
  s:=j-10;
  b:=(s*6000)+bb+ba+b1;
  h:=(s*6000)+b1;;
  edit2.text:=inttostr(h);
  edit3.text:=inttostr(b);
  end;
  if (j>=21) and (j<=30) then
  begin
  s:=j-20;
  b:=(s*9400)+bb+ba+b1+b2;
  h:=(s*9400)+b1+b2;;
  edit2.text:=inttostr(h);
  edit3.text:=inttostr(b);
  end;
  if j>30 then
  begin
  s:=j-30;
  b:=(s*12600)+bb+ba+b1+b2+b3;
  h:=(s*12600)+b1+b2+b3;;
  edit2.text:=inttostr(h);
  edit3.text:=inttostr(b);
  end;


end;

procedure TAir.Panel2Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';

end;

procedure TAir.Panel3Click(Sender: TObject);
begin
DailyProblems.Show;
Air.Hide;

end;

end.

Program Delphi Daily Problem "KATAK"

By    10/30/2016 07:00:00 PM // No comments
procedure TKatak.Button1Click(Sender: TObject);
Var
  h,k,j,n,s:integer;
begin
  h:=StrToInt(Edit1.Text);
  k:=0;
  for s:=1 to n do
  begin
    j:=k+6;
    k:=j-5;
    if j=h then listbox1.items.add('Hari ke- '+IntToStr(s)+'Katak Sampai Ke Permukaan');
    if j<h then listbox1.items.add('Hari ke- '+IntToStr(s)+' = '+IntToStr(k)+'Meter');

end;
end;

procedure TKatak.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
listbox1.Items.clear;
end;

procedure TKatak.Timer1Timer(Sender: TObject);
begin
label7.Left:=label7.Left-30;
 if  label7.Left<=-300 then
 label7.Left := 450;
end;

procedure TKatak.Button3Click(Sender: TObject);
begin
DailyProblems.Show;
Katak.Hide;
end;

end.

Program Delphi Untuk Mencetak Deret Aritmatika

By    10/30/2016 06:56:00 PM // No comments
procedure TDeretAritmatika.Button1Click(Sender: TObject);
var i, n, x, b : integer;
un:real;
begin
x := strtoint(edit1.text);
b := strtoint(edit2.text);
n := strtoint(edit3.Text);
if n > 0 then
begin
un:=x+((n-1)*b);
for i:= 1 to n do
begin
Listbox1.Items.Add(format('Suku ke-%3d : %4d',[i,x]));
x := x + b;


end;
end;
end;



procedure TDeretAritmatika.Button3Click(Sender: TObject);
var
n,x,b:integer;
un,sn:real;
begin
x := strtoint(edit1.text);
b := strtoint(edit2.Text);
n := strtoint(edit3.Text);
if n > 0 then
begin
un:=x+((n-1)*b);
sn:= n*(x+un)/2;
edit4.text:=floattostr(sn);
end;



end;

procedure TDeretAritmatika.Button2Click(Sender: TObject);
begin
edit1.text:=' ';
edit2.text:=' ';
edit3.text:=' ';
edit4.text:=' ';
listbox1.Items.clear;

end;

procedure TDeretAritmatika.Button4Click(Sender: TObject);
begin
Deret.Show;
DeretAritmatika.Hide;
end;

procedure TDeretAritmatika.Timer1Timer(Sender: TObject);
begin
label4.Left:=label4.Left-30;
 if  label4.Left<=-150 then
 label4.Left := 500;

end;

Program Delphi Untuk Mencetak Deret "1.2.3 + 2.3.4 + ... + (n-1).n.(n+1) + n.(n+1).(n+2)

By    10/30/2016 06:53:00 PM // No comments
procedure TDeret4.Button18Click(Sender: TObject);
Var
  i,n,k,l,m,o:integer;

begin
  n:=strtoint(edit13.Text);
  k:=0;
  for i:=1 to n do
  begin
  l:= (i*(i+1)*(i+2)) ;
  listbox6.items.add(inttostr(l)) ;
  k:= (k+l);
end;
edit14.text:=inttostr(k);


end;

procedure TDeret4.Button19Click(Sender: TObject);
begin
edit13.text:='';
listbox6.Items.clear;
edit14.text:=' ';

end;

procedure TDeret4.Button20Click(Sender: TObject);
begin
Deret.Show;
Deret4.Hide;
end;

Program Delphi Untuk Mencetak Deret "1 + 1/2 + 1/4 + ..."

By    10/30/2016 06:50:00 PM // No comments
procedure TDeret3.Button15Click(Sender: TObject);
var
  i,n:integer;
  j,a,b,c,d,k:real;
begin
  n:=strtoint(edit11.Text);
  listbox5.Items.add('1');
  j:=0;
  for i:= 1 to n-1 do
  begin
  a:=1;
  b:= 2*i;
  c:=a/b;
  listbox5.Items.add(floattostr(c));
  j:= j+c;
  end;
  edit12.Text:=floattostr(j+1);

end;

procedure TDeret3.Button16Click(Sender: TObject);
begin
edit11.Text:=' ';
listbox5.items.Clear;
edit12.Text:=' ';

end;

procedure TDeret3.Button17Click(Sender: TObject);
begin
Deret.Show;
Deret3.Hide;
end;

Program Delphi Untuk Mencetak Deret "1/2 + 2/3 + 3/4 + ... + 99/100"

By    10/30/2016 06:48:00 PM // No comments
procedure TDeret2.Button12Click(Sender: TObject);
var
  i,a:integer;
  n,k,b,j,c:real;
begin
  j:=0;
  for i:=1 to 99 do
  begin
  a:=i;
  b:=i+1;
  c:=a/b;
  Listbox4.Items.add(floattostr(c));
  j:=j+c;
  end;

  edit10.text:=floattostr(j);




end;

procedure TDeret2.Button13Click(Sender: TObject);
begin
listbox4.items.clear;
edit10.Text:=' ';

end;

procedure TDeret2.Button14Click(Sender: TObject);
begin
Deret.Show;
Deret2.Hide;
end;

Program Delphi Untuk Mencetak Deret "3+9+27+..."

By    10/30/2016 06:46:00 PM // No comments
procedure TDeret1.Button9Click(Sender: TObject);
var
i,n,j:integer;
begin
  n:=strtoint(edit9.Text);
  j:=1;
  for i:= 1 to n do
  begin
  j:=j*3;
  listbox3.Items.add(inttostr(j));
  end;

end;

procedure TDeret1.Button10Click(Sender: TObject);
begin
edit9.Text:=' ';
listbox3.Items.Clear;
end;

procedure TDeret1.Button11Click(Sender: TObject);
begin
Deret.Show;
Deret1.Hide;
end;

procedure TDeret1.Panel3Click(Sender: TObject);
begin
edit9.Text:=' ';
listbox3.Items.Clear;

end;

procedure TDeret1.Panel4Click(Sender: TObject);
begin
Deret.Show;
Deret1.Hide;

end;

Program Delphi Untuk Menentukan Jenis Bilangan

By    10/30/2016 06:42:00 PM // No comments
procedure TJenisBil.Button1Click(Sender: TObject);
Var
  a,b,c,d:integer;
  hasil1,hasil2:string;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  c:= a mod 2;
  d:= b mod 2;
  if c=0 then
  hasil1:='A Merupakan Bilangan Genap';
  if c=1 then
  hasil1:='A Merupakan Bilangan Ganjil';
  If d=0 then
  hasil2:='B Merupakan Bilangan Genap';
  if d=1 then
  hasil2:='B Merupakan Bilangan Ganjil';
  edit3.Text:=hasil1;
  edit4.Text:=hasil2;

end;

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

Program Delphi Untuk Mencari FPB dan KPK

By    10/30/2016 06:40:00 PM // No comments
procedure TFPBdanKPK.Button1Click(Sender: TObject);

Var
  a,b,d,c,e,p,n,jml:integer;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.text);
  jml:=1;
  n:=a+b;
  for d:= 1 to n do
  begin
  c:=a mod d;
  e:=b mod d;
  if (c=0) and (e=0) then
  begin
  p:=d;
  edit3.Text:=inttostr(p);
  end;
  end;
  end;



procedure TFPBdanKPK.Button2Click(Sender: TObject);

var
a,b,d,c,e,p,n,jml,k:integer;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.text);
  jml:=1;
  n:=a+b;
  for d:= 1 to n do
  begin
  c:=a mod d;
  e:=b mod d;
  if (c=0) and (e=0) then
  begin
  p:=d;
  k:=(a*b) div (p);
  edit3.Text:=inttostr(k);
  end;
  end;
  end;



procedure TFPBdanKPK.Button3Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';

end;

procedure TFPBdanKPK.Button4Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
FPBdanKPK.Hide;
end;

Program Delphi Bilangan Dekomposisi

By    10/30/2016 06:37:00 PM // No comments
procedure TBilDekomposisi.Button1Click(Sender: TObject);
var i,a,b:integer;
        k:real;
begin
    a:=StrToInt(Edit1.Text);
    i:=2;
    b:=a;
    while i<=a do
    begin
    if b mod i=0
    then
    begin
    Listbox1.Items.Add(IntToStr(i));
    k:=b/i;
    b:=trunc(k);
    end
    else i:=1+i;
    end;


end;

procedure TBilDekomposisi.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
listbox1.Items.Clear;
end;

procedure TBilDekomposisi.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
BilDekomposisi.Hide;
end;

Program Delphi Bilangan Fibonacci

By    10/30/2016 06:35:00 PM // No comments
procedure TBilFibonacci.Button1Click(Sender: TObject);
var  p,c,d,b,g,e : integer;
begin
  p:=StrToInt(edit1.Text);
  g:=0;
  c:=1;
  d:=0;
  e:=1;
  while d < p do
  begin
     g:=g+c;
     listbox1.Items.Add('bilangan fibonacci ke '+ IntToSTr(e)+' = '+IntToStr(g));
     c:=g-c;
     d:=d+1;
     e:=e+1;
  end;

end;

procedure TBilFibonacci.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
listbox1.Items.Clear;
end;

procedure TBilFibonacci.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-50 then
 label1.Left := 550;
end;

procedure TBilFibonacci.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
BilFibonacci.Hide;
end;

Program Delphi Bilangan Prima

By    10/30/2016 06:28:00 PM // No comments
procedure TBilPrima.Button1Click(Sender: TObject);

var n,i,s:integer;
    p:boolean;
begin
    n:=StrToInt(Edit1.Text);
    i:=2;
    P:=True ;
    while (i<=n-1) and p do
    begin
    s:=n mod i;
    if s=0 then p:=false;
    i:=i+1;
    end;

    if p=true
    then Edit2.Text:='  Bilangan Prima'
    else Edit2.Text:='  Bilangan Komposit';
    if n=1
    then Edit2.Text:='  Bilangan Komposit';
    if n=0
    then Edit2.Text:='  Bilangan Komposit';

end;

procedure TBilPrima.Button2Click(Sender: TObject);
var i,a,b,c,d:integer;
            p:boolean;
begin
    a:=StrToInt(Edit1.Text);
    For b:=2 to 1000 do
    begin
    i:=2;
    p:=true;
    while(i<=b-1)and p do
       begin
       c:=b mod i;
       if c=0 then p:=false;
       i:=i+1;
       end;
    if Listbox1.Items.count<a then
    if p=true then
    Listbox1.Items.Add('Bilangan Prima ke-'+IntToStr(Listbox1.Items.count+1)+'='+IntToStr(b));
    end;

end;

procedure TBilPrima.Button3Click(Sender: TObject);
var
a,b,j,k,l : Integer;
BEGIN
b := StrToInt(Edit3.Text);
for a := StrToInt(Edit1.Text) to b do
  begin
    j:=0;
      for k:=1 to a do
        begin
          l:= a mod k;
          if l=0 then j:=j+1
        end;
      if j=2 then Listbox1.items.Add(IntToStr(a));
  end;


end;

procedure TBilPrima.Button4Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
listbox1.Items.clear;
end;

procedure TBilPrima.Button5Click(Sender: TObject);
begin
listbox1.items.clear;
end;

procedure TBilPrima.Button6Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
BilPrima.Hide;
end;

procedure TBilPrima.Panel1Click(Sender: TObject);
var n,i,s:integer;
    p:boolean;
begin
    n:=StrToInt(Edit1.Text);
    i:=2;
    P:=True ;
    while (i<=n-1) and p do
    begin
    s:=n mod i;
    if s=0 then p:=false;
    i:=i+1;
    end;

    if p=true
    then Edit2.Text:='  Bilangan Prima'
    else Edit2.Text:='  Bilangan Komposit';
    if n=1
    then Edit2.Text:='  Bilangan Komposit';
    if n=0
    then Edit2.Text:='  Bilangan Komposit';

end;


procedure TBilPrima.Panel2Click(Sender: TObject);
var i,a,b,c,d:integer;
            p:boolean;
begin
    a:=StrToInt(Edit1.Text);
    For b:=2 to 1000 do
    begin
    i:=2;
    p:=true;
    while(i<=b-1)and p do
       begin
       c:=b mod i;
       if c=0 then p:=false;
       i:=i+1;
       end;
    if Listbox1.Items.count<a then
    if p=true then
    Listbox1.Items.Add('Bilangan Prima ke-'+IntToStr(Listbox1.Items.count+1)+'='+IntToStr(b));
    end;


end;

procedure TBilPrima.Panel3Click(Sender: TObject);
var
a,b,j,k,l : Integer;
BEGIN
b := StrToInt(Edit3.Text);
for a := StrToInt(Edit1.Text) to b do
  begin
    j:=0;
      for k:=1 to a do
        begin
          l:= a mod k;
          if l=0 then j:=j+1
        end;
      if j=2 then Listbox1.items.Add(IntToStr(a));
  end;


end;

procedure TBilPrima.Panel4Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
listbox1.Items.clear;

end;

procedure TBilPrima.Panel5Click(Sender: TObject);
begin
listbox1.items.clear;

end;

procedure TBilPrima.Panel6Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
BilPrima.Hide;

end;

end.

Program Delphi Untuk Mengurutkan 3 Buah Bilangan

By    10/30/2016 06:13:00 PM // No comments
procedure TMengurutkan.Button1Click(Sender: TObject);
var
  a,b,c:real;
  hasil:string;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  c:=strtoint(edit3.Text);
  if (a>=b) and (b>=c) then
  hasil:=floattostr(a)+','+floattostr(b)+','+floattostr(c) else
  if (a>=c) and (c>=b) then
  hasil:=floattostr(a)+','+floattostr(c)+','+floattostr(b) else
  if (b>=c) and (c>=a) then
  hasil:=floattostr(b)+','+floattostr(c)+','+floattostr(a) else
  if (b>=a) and (a>=c) then
  hasil:=floattostr(b)+','+floattostr(a)+','+floattostr(c) else
  if (c>=a) and (a>=b) then
  hasil:=floattostr(c)+','+floattostr(a)+','+floattostr(b) else
  if (c>=b) and (b>=a) then
  hasil:=floattostr(c)+','+floattostr(b)+','+floattostr(a);
  edit4.Text:=hasil;


end;

procedure TMengurutkan.Button2Click(Sender: TObject);
begin
EDIT1.TEXT:=' ';
EDIT2.TEXT:=' ';
EDIT3.TEXT:=' ';
EDIT4.TEXT:=' ';
end;

procedure TMengurutkan.Timer1Timer(Sender: TObject);
begin
label4.Left:=label4.Left-30;
 if  label4.Left<=-500 then
 label4.Left := 550;
end;

procedure TMengurutkan.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
Mengurutkan.Hide;
end;

end.

Program Delphi Untuk Mencari Bilangan Ganjil dalam Suatu Selang

By    10/30/2016 06:10:00 PM // No comments
procedure TBilGanjil.Button1Click(Sender: TObject);
var
a,b : Integer;
Begin
b := StrToInt(Edit2.Text);
for a := StrToInt(Edit1.Text) to b do
  begin
    if a mod 2 <> 0 then Listbox1.items.add(IntToStr(a));
  end;



end;

procedure TBilGanjil.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
listbox1.Items.Clear;
end;

procedure TBilGanjil.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-200 then
 label1.Left := 550;
end;

procedure TBilGanjil.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
BilGanjil.Hide;
end;

Program Delphi Untuk Mencari Bilangan Genap Dalam Suatu Selang

By    10/30/2016 06:07:00 PM // No comments
procedure TBilGenap.Button1Click(Sender: TObject);
var
  a,b : Integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrTOInt(Edit2.Text);
  while a <= b do

  begin 
  if a mod 2 = 0 then ListBox1.Items.Add(IntToStr(a));
  a:=a+1;
  end;
end;

procedure TBilGenap.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
listbox1.items.Clear;
end;

procedure TBilGenap.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
BilGenap.Hide;
end;

procedure TBilGenap.Panel9Click(Sender: TObject);
var
  a,b : Integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrTOInt(Edit2.Text);
  while a <= b do

  begin 
  if a mod 2 = 0 then ListBox1.Items.Add(IntToStr(a));
  a:=a+1;
  end;

end;

procedure TBilGenap.Panel10Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
listbox1.items.Clear;

end;

procedure TBilGenap.Panel11Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
BilGenap.Hide;

end;

end.

Program Delphi Untuk Menghitung Permutasi r dari n

By    10/30/2016 06:04:00 PM // No comments
procedure TPermutasi.Button1Click(Sender: TObject);
var a,b,i,n,r,z,j:Integer;
    t:Real;
begin
   a:=StrToInt(Edit1.Text);
    b:=StrToInt(Edit2.Text);
    n:=1;
    r:=1;
    j:=a-b;
    For i:=1 to a do
        n:=i*n;
        Begin
        For i:=1 to j do
            r:=i*r;
        End;
    t:=n/r;
    Edit3.Text:=FloatToStr(t);
    if a<b then Edit3.Text:='Error';
    if a=b then edit3.Text:=inttostr(n);
    if (a<0) or (b<0) then edit3.text:='Error';


end;

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

procedure TPermutasi.Timer1Timer(Sender: TObject);
begin
label5.Left:=label5.Left-30;
 if  label5.Left<=0 then
 label5.Left := 150;
end;

procedure TPermutasi.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
Permutasi.Hide;
end;

end.

Program Delphi Untuk Menghitung Kombinasi r dari n

By    10/30/2016 06:02:00 PM // 1 comment
procedure TKombinasi.Button1Click(Sender: TObject);
var
  n,p,q,i,x,k,r:integer;
  c:real;
begin
  n:=strtoint(edit1.text);
  p:=1;
  for i:= 1 to n do
  begin
    p:=p*i;
  end;
  k:=strtoint(edit2.text);
  q:=1;
  for i:= 1 to k do
  begin
    q:=q*i;
  end;
  x:=n-k;
  if x>=0 then
  begin
    r:=1;
    for i:= 1 to x do
    begin
      r:=r*i;
      c:=p/(q*r);
      edit3.text:=floattostr(c);
      edit4.text:='Nilai n dan r yang Anda Input Memenuhi Kriteria';
    end;
  end;
  if x<0 then
  begin
    edit3.text:= 'ERROR';
    EDIT4.Text:='Nilai n Harus Lebih Besar Atau Sama Dengan r';
    end;
  if n=k then
  begin
    edit3.text:='1';
    EDIT4.text:='Nilai n dan r yang Anda Input Memenuhi Kriteria';
    end;
  if (n<0) or (k<0) then
  begin
  edit3.Text:='Error';
  EDIT4.text:='Nilai n dan r yang Anda Input Tidak Memenuhi Kriteria';
    end;
end;

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

procedure TKombinasi.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-300 then
 label1.Left := 750;
end;

procedure TKombinasi.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
Kombinasi.Hide;
end;

end.

Program Delphi Untuk Mencari Kelipatan Bilangan dalam Suatu Selang

By    10/30/2016 05:56:00 PM // No comments
procedure TKelipatanK.Button1Click(Sender: TObject);
var
  a,b,k,i : integer;
begin
  a:=strtoint(edit2.Text);
  b:=strtoint(edit3.Text);
  k:=strtoint(edit1.Text);
  for i:=a to b do
  if i mod k = 0 then
  begin
     listbox1.Items.add(inttostr(i));

end;
    end;
procedure TKelipatanK.Button2Click(Sender: TObject);
begin
edit1.text:=' ';
edit2.text:=' ';
edit3.text:=' ';
listbox1.items.clear;
end;

procedure TKelipatanK.Timer1Timer(Sender: TObject);
begin
label5.Left:=label5.Left-30;
 if  label5.Left<=-300 then
 label5.Left := 100;
end;

procedure TKelipatanK.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
KelipatanK.Hide;
end;

end.

Program Delphi Untuk Konversi Nilai Akhir Mahasiswa

By    10/30/2016 05:51:00 PM // No comments
procedure TNilai.Button1Click(Sender: TObject);
Var
  skor:real;
begin
  skor:=StrToFloat(Edit1.Text);
  if skor>=101 then Edit2.Text:='ANDA SALAH MEMASUKAN NILAI' else
  if skor>=80 then Edit2.Text:='A' else
  if skor>=70 then Edit2.Text:='B' else
  if skor>=60 then Edit2.Text:='C' else
  if skor>=50 then Edit2.Text:='D' else
                  Edit2.Text:='GAGAL'

end;

procedure TNilai.Button2Click(Sender: TObject);
begin
Edit1.Text:=' ';
  Edit2.Text:=' ';
end;

procedure TNilai.Button3Click(Sender: TObject);
begin
MainMenu.Show;
Nilai.Hide;
end;

procedure TNilai.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-150 then
 label1.Left := 600;
end;


end.

Program Delphi Untuk Nama

By    10/30/2016 05:47:00 PM // No comments
procedure TNama.Button1Click(Sender: TObject);
var
  Nama,NIM,Departemen,hasil:string;
begin
  Nama:=Edit1.Text;
  NIM:=Edit2.Text;
  Departemen:=Edit3.Text;
  Edit4.Text:='Namaku '+Nama+' NIM '+NIM+' Departemen '+Departemen;



                end;
procedure TNama.Button2Click(Sender: TObject);
var
  Nama:string;
begin
  Nama:=Edit5.Text;
  edit6.Text:=Nama;


end;

procedure TNama.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-100 then
 label1.Left := 700;
end;

procedure TNama.Button4Click(Sender: TObject);
begin
MainMenu.Show;
Nama.Hide;

end;

procedure TNama.Button3Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
edit4.Text:=' ';
edit5.Text:=' ';
edit6.Text:=' ';
end;

end.

Program Delphi untuk Membuat Kalkulator

By    10/30/2016 05:05:00 PM // No comments
procedure TKalkulator.Button1Click(Sender: TObject);
var
  A,B,tambah:real;
begin
  A:=StrToFloat(Edit1.Text);
  B:=StrToFloat(Edit2.Text);
  tambah:=A+B;
  Edit3.Text:=FloatToStr(tambah);

end;
procedure TKalkulator.Button2Click(Sender: TObject);
var
  A,B,kurang:real;
begin
  A:=StrToFloat(Edit1.Text);
  B:=StrToFloat(Edit2.Text);
  kurang:=A-B;
  Edit3.Text:=FloatToStr(kurang);
end;
procedure TKalkulator.Button3Click(Sender: TObject);
var
  A,B,kali:real;
begin
  A:=StrToFloat(Edit1.Text);
  B:=StrToFloat(Edit2.Text);
  kali:=A*B;
  Edit3.Text:=FloatToStr(kali);

end;

procedure TKalkulator.Button4Click(Sender: TObject);
var
  A,B,bagi:real;
begin
  A:=StrToFloat(Edit1.Text);
  B:=StrToFloat(Edit2.Text);
  bagi:=A/B;
  Edit3.Text:=FloatToStr(bagi);


end;

procedure TKalkulator.Button5Click(Sender: TObject);
var
  A,B,pangkat:real;
begin
  A:=StrToFloat(Edit1.Text);
  pangkat:=A*A;
  Edit3.Text:=FloatToStr(pangkat);

end;

procedure TKalkulator.Button6Click(Sender: TObject);

var
  A,pt:real;
begin
  A:=StrToFloat(Edit1.Text);
  pt:=A*A*A;
  Edit3.Text:=FloatToStr(pt);
end;

procedure TKalkulator.Button7Click(Sender: TObject);

var
  A,c:real;
begin
  A:=StrToFloat(Edit1.Text);
  c:=1/A;
  Edit3.Text:=FloatToStr(c);

end;

procedure TKalkulator.Button8Click(Sender: TObject);

var
  A,Sinus:real;
begin
  A:=StrToFloat(Edit1.Text);
  Sinus:=sin(A*3.14/180);
  Edit3.Text:=FloatToStr(round(sin(A*3.14/180)*100)/100);

end;

procedure TKalkulator.Button9Click(Sender: TObject);

var
  A,cosinus:real;
begin
  A:=StrToFloat(Edit1.Text);
  cosinus:=cos(A*3.14/180);
  Edit3.Text:=FloatToStr(round(cos(A*3.14/180)*100)/100);
end;

procedure TKalkulator.Button10Click(Sender: TObject);
var
  A,tangen:real;
begin
  A:=StrToFloat(Edit1.Text);
  tangen:=(sin(A*3.14/180))/(cos(A*3.14/180));
  Edit3.Text:=FloatToStr(round((sin(A*3.14/180))/(cos(A*3.14/180))*100)/100);

end;

procedure TKalkulator.Button11Click(Sender: TObject);

var
  A,lon:real;
begin
  A:=StrToFloat(Edit1.Text);
  lon:=ln(A);
  Edit3.Text:=FloatToStr(lon);
end;

procedure TKalkulator.Button12Click(Sender: TObject);

var
  A,eks:real;
begin
  A:=StrToFloat(Edit1.Text);
  eks:=exp(A);
  Edit3.Text:=FloatToStr(eks);
end;

procedure TKalkulator.Button13Click(Sender: TObject);
var
  A,kosekan:real;
begin
  A:=StrToFloat(Edit1.Text);
  kosekan:=1/(sin(A*3.14/180));
  Edit3.Text:=FloatToStr(round(1/(sin(A*3.14/180))*100)/100);


end;

procedure TKalkulator.Button14Click(Sender: TObject);
var
  A,sekan:real;
begin
  A:=StrToFloat(Edit1.Text);
  sekan:=1/(cos(A*3.14/180));
  Edit3.Text:=FloatToStr(round(1/(cos(A*3.14/180))*100)/100);


end;

procedure TKalkulator.Button15Click(Sender: TObject);
var
  A,cotangen:real;
begin
  A:=StrToFloat(Edit1.Text);
  cotangen:=(cos(A*3.14/180))/(sin(A*3.14/180));
  Edit3.Text:=FloatToStr(round((cos(A*3.14/180))/(sin(A*3.14/180))*100)/100);


end;

procedure TKalkulator.Button16Click(Sender: TObject);

var
  x,a:real;
begin
x:=strtofloat(edit1.Text);
a:=sqrt(x);
edit3.Text:=floattostr(a);

end;

procedure TKalkulator.Button21Click(Sender: TObject);

var
x,y,p:real;
begin
x:=strtofloat(edit1.Text);
p:=x/100;
edit3.Text:=floattostr(p);

end;

procedure TKalkulator.Button18Click(Sender: TObject);
var n,i,f : integer;
begin
if trystrtoint(Edit1.Text,n)=false then
begin showmessage('Salah Memasukan Angka, ulangi!!!');
exit;
end;
f := 1;
for i:=1 to n do
f := f * i;
Edit3.Text:= inttostr(f);

end;

procedure TKalkulator.Button19Click(Sender: TObject);
Var x,y,z:Real;
begin
    x:=StrToFloat(Edit1.Text);
    y:=StrToFloat(Edit2.Text);
    Z:=exp(y*ln(x));
    Edit3.Text:=FloatToStr(z);


end;

procedure TKalkulator.Button20Click(Sender: TObject);

Var x,y,z:Real;
begin
    x:=StrToFloat(Edit1.Text);
    y:=StrToFloat(Edit2.Text);
    Z:=ln(y)/ln(x);
    Edit3.Text:=FloatToStr(z);

end;

procedure TKalkulator.Button22Click(Sender: TObject);
var
  x,a:real;
begin
  x:=strtofloat(edit1.text);
  a:=abs(x);
  edit3.Text:=floattostr(a);



end;

procedure TKalkulator.Button23Click(Sender: TObject);
var
  x,a:real;
begin
  x:=strtofloat(edit1.Text);
  a:=x*(22/7);
  edit3.text:=floattostr(a);


end;

procedure TKalkulator.Button24Click(Sender: TObject);
VAR
  x,y,a:real;
begin
  x:=strtofloat(edit1.Text);
  y:=strtofloat(edit2.Text);
  a:=abs(x)*abs(y);
  edit3.Text:=floattostr(a);
end;


procedure TKalkulator.Button17Click(Sender: TObject);

var
  a,g:real;
begin
a:=strtofloat(edit1.text);
g:=ln(a)/ln(10);
edit3.text:=floattostr(g);
end;

procedure TKalkulator.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-300 then
 label1.Left := 750;

end;

procedure TKalkulator.Button25Click(Sender: TObject);
begin
 Edit3.Text:=' ';
  Edit1.Text:=' ';
  Edit2.Text:=' ';
end;


procedure TKalkulator.Button26Click(Sender: TObject);
begin
MainMenu.Show;
Kalkulator.Hide;
Langganan: Postingan (Atom)