mükemmel sayı


   var
i,toplam : Integer;
values:String;
form:TCLform;

void SetInputQueryString;
{
toplam=0;
   try
    values = Clomosy.GlobalResult;
    values=StrToInt(values);
   for(i=1 to values)
   {
     if (values mod i == 0) 
   { 
   toplam=toplam+i;
    }}
    
    if(values==toplam)
    { 
   ShowMessage(' Mükemmel Sayidir'); 
  }
  else{
    ShowMessage(' Mükemmel Sayi Degildir');
  }
    except
      //ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
      ShowMessage('Bir sayi giriniz ');
}
}
void InputExit;{
  Exit;
}
 {
 form=TCLform.Create(self);
 
 InputAndCall('Sayı giriniz','default','SetInputQueryString','InputExit');
  
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
iremNisak Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 10 Temmuz 2024 Konum: konya Durum: Aktif Değil Puanlar: 25	Mesaj Seçenekleri Yanıt Yaz Alıntı iremNisak Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: mükemmel sayı Gönderim Zamanı: 12 Temmuz 2024 Saat 16:54
	var i,toplam : Integer; values:String; form:TCLform; void SetInputQueryString; { toplam=0; try values = Clomosy.GlobalResult; values=StrToInt(values); for(i=1 to values) { if (values mod i == 0) { toplam=toplam+i; }} if(values==toplam) { ShowMessage(' Mükemmel Sayidir'); } else{ ShowMessage(' Mükemmel Sayi Degildir'); } except //ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage); ShowMessage('Bir sayi giriniz '); } } void InputExit;{ Exit; } { form=TCLform.Create(self); InputAndCall('Sayı giriniz','default','SetInputQueryString','InputExit'); }