getaran.com

Kenapa nyabut jerawat bisa meninggal ?

 

Karena nyabut jerawatnya sambil nyebrang jalan yg ramai padat lalu lintas, main nyelonong aja tanpa liat kanan kiri.

int faktorial (int n)
        {
            int k, fak;
            fak = 1;
            for (k=1; k<=n; k++)
            {
                fak = fak * k;
            }
            return fak;
        }

 

Cara manggil fungsi :

textBox2->Text = faktorial(Convert::ToInt16(textBox1->Text)).ToString();

int pangkat (int a, int n)
        {
            int k, hasil;
            hasil = 1;
            for (k=1; k<=n; k++)
            {
                hasil = hasil * a;
            }
            return hasil;
        }

 

Cara manggil fungsi :

textBox3->Text = pangkat(Convert::ToInt16(textBox1->Text), Convert::ToInt16(textBox2->Text)).ToString();

procedure TForm1.cb1DropDown(Sender: TObject);
var
  i : integer;
begin
  dm.aq1.Active   := False;
  dm.aq1.SQL.Text := 'select nama_field from tabel1';
  dm.aq1.Active   := True;
  if dm.aq1.RecordCount > 0 then
     begin
       cb1.Clear;
       dm.aq1.First;
       for i:= 1 to dm.aq1.RecordCount do
           begin
             cb1.Items.Add(dm.aq1.FieldValues['nama_field']);
             dm.aq1.Next;
           end;
     end
  else
     cb1.Clear;
end;