faktöriyel döngüler


   
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));

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
kayra12 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 23 Aralık 2024 Durum: Aktif Değil Puanlar: 2	Mesaj Seçenekleri Yanıt Yaz Alıntı kayra12 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: faktöriyel döngüler Gönderim Zamanı: 16 Saat 8 Dakika Önce 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));

Developer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 356	Mesaj Seçenekleri Yanıt Yaz Alıntı Developer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 9 Saat 45 Dakika Önce 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)); }