Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

delphide kombinasyon

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
2
Cevap
0
Favori
1.075
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • arkadaşlar ufak çapta yazdığım bi programda girilen iki değirin kombinasyonunu ve faktöriyelini bulduruyorum ama ben kombinasyonunu bulduğu sayıları listeletmek istiyorum yani atıyorum 5in 3 lü kombinasyonunda 12345,12354 gibi sıralamayı bi memo da listeletemiyorum.program kodları aşağıda var şimdiden tşkler.

    unit Unit2;

    interface

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

    type
    TForm2 = class(TForm)
    GroupBox2: TGroupBox;
    GroupBox1: TGroupBox;
    Edit3: TEdit;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form2: TForm2;
    n,r:integer;
    c:extended;

    implementation

    {$R *.dfm}


    function fak(deger:integer):integer;
    var
    i,sonuc:cardinal;

    begin
    if deger=0 then
    fak:=1
    else if deger < 0 then
    showmessage('Hatalı Giriş Negatif Sayıların Faktöriyeli Olmaz !')
    else
    begin
    sonuc:=1;
    for i:=1 to deger do
    sonuc:=sonuc*i;
    fak:=sonuc;
    end;
    end;


    procedure TForm2.Button2Click(Sender: TObject);
    var
    deger:integer;
    sonuc:integer;
    begin
    deger:=strtoint(edit3.text);
    sonuc:=fak(deger);
    showmessage(inttostr(sonuc));
    end;

    procedure TForm2.Edit1Change(Sender: TObject);
    begin
    n:=strtoint(edit1.text);
    end;

    procedure TForm2.Edit2Change(Sender: TObject);
    begin
    r:=strtoint(edit2.text);
    end;

    procedure TForm2.Button1Click(Sender: TObject);
    begin
    c:=fak(n)/(fak(r)*fak(n-r));
    showmessage(floattostr(c));
    end;

    end.







  • enteresan . evet.

    Hocam her tetikleme sonuna memo1.lines.add kodu ile yapsanız. Birde function a boolen değer verseniz.....

    Başarılar,
    • Yapay Zeka’dan İlgili Konular
    SQL ve Python hk.
    geçen yıl açıldı
    JavaScript: onClick'e fonksiyon bağlamak ???
    20 yıl önce açıldı
    python kullanarak fizik formülü çalıştırmak
    2 yıl önce açıldı
    Daha Fazla Göster
    
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum