sonraki »

[emarti]

@delimavi kodu tüm tam sayılarda illegal quantity error vermeden çalışıyor bence onun hakkı.

Kod:

1 inputa$:printmid$("ciftek ",(val(right$(a$,1))and1)*3+1,4)

bundaki problem şu, reel sayı girince (sallıyorum 1233.55) dağılıyor. wizofwor keşke tam sayının ötesinde tam sayı aralığını da verseydi.

sayı değil karakter girişinde de çift olarak algılıyor yani soruya göre zaten girdi tamsayı olmalı ondalık olmamalı.

[wizofwor]

Sadece tam sayı girdiler için verilen sayının tek mi çift mi olduğunu bulan bir program yazın.
Program tek sayılar için 'TEK' çift sayılar için 'CIFT' yazmalı.

Soru sadece tam sayı girdiler için geçerli. Yani programları sadece tam sayılarla test ediyorum. Bu durumda Skate'in cevabı geçerli oluyor.

32767'den büyük sayılarda hata vermesi'de BASIC'in integer tanımından gelen bir kısıtlama olduğu için sorun değil.

[Simon (Özay Turay)]

Abi platform C64 olduğuna göre bence integer 16 bit signed'dır, bu aralıkta (-32768 ile 32767 aralığı) girilen sayıları girdiğimizde doğru sonuç dönüyorsa geçerlidir bence.

Edit: Gökhan da aynısını yazmış zaten.

[emarti]

Sadece tam sayı girdiler için verilen sayının tek mi çift mi olduğunu bulan bir program yazın.
Program tek sayılar için 'TEK' çift sayılar için 'CIFT' yazmalı.

Soru sadece tam sayı girdiler için geçerli. Yani programları sadece tam sayılarla test ediyorum. Bu durumda Skate'in cevabı geçerli oluyor.

32767'den büyük sayılarda hata vermesi'de BASIC'in integer tanımından gelen bir kısıtlama olduğu için sorun değil.

Tam sayı C64 için 16 bit ama son kullanıcı için sonsuz. Soru o zaman 16 bitlik tamsayılarda geçerli olmak şartı ile sorulmalıydı.

[maverick]

1 inputc:printmid$("21",2^(cand1),1)

Bende tek çift yazısını alıyorum ve 2 / 1 olarak değiştiriyorum (Kodun sahibine de şapka çıkarıp saygılarımı ileterek) 32767 'ye kadar çalışıyor sonrası illegal felan, kodu arakladığımızı anlıyor sanırım

[Skate]

emarti, c64'ün input buffer'ı 80 karakterdir. yani iki satırı geçemez. bu durumda kullanıcı 81 basamaklı bir sayıyı hiç bir zaman test edemez. hani bu tür detaylara takılacaksak diye söylüyorum. basic'i override edip, kendi input yöntemini kullanmaya başladığın zaman da 60k basamağı geçen sayılar hafızaya sığmayacaktır. ince düşünceyi sınırlandırmak gerekiyor anlayacağın.

[Skate]

1 inputc:printmid$("21",2^(cand1),1)

Bende tek çift yazısını alıyorum ve 2 / 1 olarak değiştiriyorum (Kodun sahibine de şapka çıkarıp saygılarımı ileterek) 32767 'ye kadar çalışıyor sonrası illegal felan, kodu arakladığımızı anlıyor sanırım

2 / 1 yerine 1 / 0 kullansak?

Kod:

1 inputc:print(cand1)

[maverick]

 

[i_r_on]

Şöyle diyeyim "Sadece tam sayı girdiler için" dendiği zaman şu iki şey anlanabilir,

1. Program tam sayı girdi kabul edecek
2. Program'a input her zaman tam sayı olarak verilecek.

Ben ilki gibi anlamışım. Yorum farkı.

@wizofwor : sorularda tümevarım yaparken kullanılan yöntemdeki gibi input için minimum değer, sonra gelen bir kaç değer, maksimum değer ve her biri için beklenen sonuç şeklinde belirtilirse hepimiz aynı noktada oluruz.

[wolfiem]

16bit üstündeki sayılar için en kısa versiyonu da not düşelim:

Kod:

1 inputa$:printmid$("ciftek",4^(val(right$(a$,1))and1),4)

Bu yaklaşım @wizofwor @Simon'ın kodunun 16bit üzeri sayılarda çalıştığını söylediği zaman aklıma gelmişti. Sonuçta yarışma c64 üzerindeyse onun limitlerini dikkate almalıyız. Benim yaklaşım işin eğlencesi olsun. Bu turun sonuna kadar daha kısası çıkmazsa @skate bu turun galibidir bence

[i_r_on]

i_r_on, a% kullandığında da 100.5 için değer üretir. a% ile sen input anında casting yapıyorsun. and operatörü ise ileride otomatik casting yapıyor. sonuç her iki kodda da aynı.

uzun sayılar için çözüm isteyenler daha uzun bir koda katlanmak zorundalar.

Kod:

0 inputa$:printmid$("ciftek",4^(val(mid$(a$,len(a$)))and1),4)

ama günümüzde 64 bit mimaride de bir üst sınır var. bu yüzden 16 bit integer limitine takılmak anlamsız.

yok ben 16 bit sınırına takılmadım. wizofwor'un son açıklamasına göre zaten onun niyeti programı tam sayılarla denemekmiş. benim anladığım ise program tam sayı input kabul edecek şekildeydi.

hani 100.5 dediğinde ne çift ne de tek demesi lazım şeklinde yorumladım. bu tabii tamamen benim koda yaklaşımım ile alakalı

[maverick]

Bu turun sonuna kadar daha kısası çıkmazsa @skate bu turun galibidir bence

Kesinlikle katılıyorum

Son bir zorlama olarak:(Print listeleyince uzuyor biliyorum ama son bir ümit )

0 inputz:?(zand1)

[Skate]

Bu turun sonuna kadar daha kısası çıkmazsa @skate bu turun galibidir bence

Kesinlikle katılıyorum

Son bir zorlama olarak:(Print listeleyince uzuyor biliyorum ama son bir ümit )

0 inputz:?(zand1)

Kod:

0inputz:?(zaN1)

input# sağolsun, en kısası bu.

[maverick]

0inputa:?(aaN1)

evet input için iN kısaltması INPUT# ile sonuçlanıyor ve kurtarmıyor, z değişkenini a yapıyor bi daha da kodu mıncıklamıyorum. Zaten a yapmışsın b yapmışsın farketmeyecek bir değişiklik. (6 nolu kuralı da iç ettik )

[Oğuzhan]

1PRINT"TEK"
run

11 karakter Deneyen kişinin bir kere deneyeceği, kod içeriğini önemsemeyeceğini düşünürsek %50 ödül benim değil mi anlamadım