Faktoriyel Hesaplama

 

Merhaba arkadaşlar bu makalemizde delphide faktöriyel hesaplamayı göreceğiz. Bunun için formumuza 1 adet ListBox,2 adet Edit ve 1 adet Button ekliyoruz. Editlere girdiğimiz sayı aralığındaki sayıların faktoriyel toplamını ListBox ta gösteriyoruz.

Bu örneğimizde fonksiyon kullanıyoruz, private kısmına

function factorial(j: integer): integer;

 

ekliyoruz.

 

 

 

 

 

 

 

 

 

 

 

Şekil 1

 

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm1 = class(TForm)

ListBox1: TListBox;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

function factorial(j: integer): integer;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

i: integer;

begin

ListBox1.Clear;

for i := StrtoInt(Edit1.text) to StrtoInt(Edit2.text) do

ListBox1.Items.Add(InttoStr(factorial(i)));

end;

function TForm1.factorial(j: integer): integer;

var

x, i: integer;

begin

x := 1;

for i := 1 to j do

x := x * i;

factorial := x;

end;

end.

 

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.