Ü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 hesap makinesi

> 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! #123933 27-09-2006 06:19 GMT-1 saat    
Perl dilinde hesap makinesi

Linux platformda denendi sadece.

Kod:
#!/usr/bin/perl -w

$_=<STDIN>; chomp;
if(($a,$b)=(/(\d+)[+](\d+)/)) {
         print $a+$b,"\n";
}
if(($a,$b)=(/(\d+)[-](\d+)/)) {
         print $a-$b,"\n";
}
if(($a,$b)=(/(\d+)[*](\d+)/)) {
         prirnt $a*$b,"\n";
}
if(($a,$b)=(/(\d+)[\/](\d+)/)) {
         print $a/$b,"\n";
}

Bunu ilk beğenen siz olun

Hata Oluştu

> 1 <