Genel İşlemler - faktöriyel döngüler

Sayfayı Yazdır | Pencereyi Kapat

faktöriyel döngüler

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=974
Tarih: 15 Ocak 2025 Saat 08:14
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: faktöriyel döngüler

Mesajı Yazan: kayra12
Konu: faktöriyel döngüler
Mesaj Tarihi: 14 Ocak 2025 Saat 10:12

var

Counter, Factorial, Number: Integer;

begin

// Faktöriyel hesaplanacak sayıyı belirle

Number = 5; // Örneğin, 5'in faktöriyelini hesaplayalim

// Faktöriyel başlangıç değeri olarak 1

Factorial = 1;

// Faktöriyel hesaplama döngüsü (1'den 'Number'a kadar)

for Counter = 1 to Number do

begin

Factorial = Factorial * Counter; // Her adımda Factorial'ı Counter ile çarp

end;

// Sonucu ekranda göster

ShowMessage("Factorial": + IntToStr(Factorial));

Cevaplar:

Mesajı Yazan: Developer
Mesaj Tarihi: 14 Ocak 2025 Saat 16:35

Merhaba

Kodu düzelttim.

var

Counter, Factorial, Number: Integer;

{

// Faktöriyel hesaplanacak sayıyı belirle

Number = 5; // Örneğin, 5'in faktöriyelini hesaplayalim

// Faktöriyel başlangıç değeri olarak 1

Factorial = 1;

// Faktöriyel hesaplama döngüsü (1'den 'Number'a kadar)

for( Counter = 1 to Number)

{

Factorial = Factorial * Counter;

}

// Her adımda Factorial'ı Counter ile çarp

// Sonucu ekranda göster

ShowMessage('Factorial:' + IntToStr(Factorial));

}