Üye Girişi
x

Giriş Başarılı.

Yanlış Bilgiler.

E-mail adresinizi doğrulamalısınız.

Facebook'la giriş | Kayıt ol | Şifremi unuttum
İletişim
x

Mesajınız gönderildi.

Mesajınız gönderilemedi.

Güvenlik sorusu yanlış.

Kullandığınız Sosyal Medyayı Seçin
Yeni Klasör 8 yıldır sizin için en güvenli hizmeti veriyor...

Teknoloji dünyasındaki son gelişmeler ve sürpriz hediyelerimiz için bizi takip edin.

Perl dilinde sayi ortalama

> 1 <

Blade IV

grup tuttuğum takım
Albay Grup
Hat durumu Cinsiyet Özel mesaj 8324 ileti
Yer: İstanbul
İş:
Kayıt: 22-05-2006 06:51

işletim sistemim [+][+3][+5] [-]
kırık link bildirimi Kırık Link Bildir! #123932 27-09-2006 06:17 GMT-1 saat    
Perl dilinde sayi ortalama

Sayi aralarini bos birakarak ya da virgul koyarak istediginiz kadar sayi girebilirsiniz

Kod:
$_=<STDIN>; chomp;
@sayilar=split(/[\s,]/, $_);
$a=0;
foreach(@sayilar) {
$a=$a+$_;
}
print $a/(scalar(@sayilar)),"\n";
exit;

Bunu ilk beğenen siz olun

Hata Oluştu

> 1 <