Merhaba, Ziyaretçi. Lütfen giriş yapın veya üye olun.

Kullanıcı adınızı, parolanızı ve aktif kalma süresini giriniz
  Gelişmiş Arama
insanın içinde varsa, commodore.gen.tr açığa çıkarır bunu.. bir nevi retro olaylarının dolunayıyız.(Arda)
commodore.gen.trCommodoreCommodore YazılımC64 BASIC Kısa Kod Yarışması - irqHack64 Ödüllü
« önceki sonraki »
Sayfa: 1 2 [3] 4 5 ... 30   Aşağı git
Yazdır
Gönderen Konu: C64 BASIC Kısa Kod Yarışması - irqHack64 Ödüllü  (Okunma Sayısı 237646 defa)
0 Üye ve 2 Ziyaretçi konuyu incelemekte.
eins
Uzman
*****
Mesaj Sayısı: 1.816


A.K.A. deliMawi


Üyelik Bilgileri
« Yanıtla #30 : Nisan 23, 2017, 01:58:59 ÖÖ »
Al işte...
Logged
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
emarti
Uzman
*****
Mesaj Sayısı: 2.592


Only Amiga Makes It Possible █


Üyelik Bilgileri WWW
« Yanıtla #31 : Nisan 23, 2017, 02:01:34 ÖÖ »
Uzun olduğunu biliyorum ama alternatif çözümüm 

Kod:
10 INPUT S$
20 POKE 780,VAL(RIGHT$(S$,1))
25 FOR X=0 TO 30: READ A: POKE 4099+X,A: NEXT
30 SYS 4099
40 END
1000 DATA 41,1,201,0,240
1010 DATA 8,169,25,160,16,32,30,171
1020 DATA 96,169,29,160,16,32,30,171
1030 DATA 96,84,69,75,0,67,73,70,84,0
* tekcift_bas.zip (0.32 KB - Yükleme: 257 kez.)
Logged
https://github.com/emartisoft My GitHUB | http://csdb.dk/scener/?id=26786 My CSDB | https://c64kernal.com Genesis
READY.
SYS(64767): EMARTI
eins
Uzman
*****
Mesaj Sayısı: 1.816


A.K.A. deliMawi


Üyelik Bilgileri
« Yanıtla #32 : Nisan 23, 2017, 02:03:37 ÖÖ »
Sen de "END"in den 10 lu 1000 li satır numaralarına kadar ola ilecek en uzun nasıl yazarım diye uğraşmışsın resmen...
Logged
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
Skate
Uzman
*****
Mesaj Sayısı: 1.479


A Sinner Scener


Üyelik Bilgileri WWW
« Yanıtla #33 : Nisan 23, 2017, 02:04:35 ÖÖ »
uzun sayılarla çalışsın istiyorsanız en pratik yol string olarak sayıyı girdirip, sadece son basamağını alıp kontrol etmek olacaktır.
Logged
emarti
Uzman
*****
Mesaj Sayısı: 2.592


Only Amiga Makes It Possible █


Üyelik Bilgileri WWW
« Yanıtla #34 : Nisan 23, 2017, 02:06:29 ÖÖ »
Alıntı sahibi: Skate üzerinde Nisan 23, 2017, 01:56:34 ÖÖ
ben o koda kod demem, kod tek satıra sığmadıkça.

Kod:
0 inputa:printmid$("ciftek",4^(aand1),4)

32767'den büyük sayılarda ILLEGAL QUANTITY ERROR
Logged
https://github.com/emartisoft My GitHUB | http://csdb.dk/scener/?id=26786 My CSDB | https://c64kernal.com Genesis
READY.
SYS(64767): EMARTI
Skate
Uzman
*****
Mesaj Sayısı: 1.479


A Sinner Scener


Üyelik Bilgileri WWW
« Yanıtla #35 : Nisan 23, 2017, 02:07:16 ÖÖ »
Bir üstteki yorum.
Logged
emarti
Uzman
*****
Mesaj Sayısı: 2.592


Only Amiga Makes It Possible █


Üyelik Bilgileri WWW
« Yanıtla #36 : Nisan 23, 2017, 02:07:25 ÖÖ »
Alıntı sahibi: delimawi üzerinde Nisan 23, 2017, 02:03:37 ÖÖ
Sen de "END"in den 10 lu 1000 li satır numaralarına kadar ola ilecek en uzun nasıl yazarım diye uğraşmışsın resmen...

END'i seviyorum BASIC'te
Logged
https://github.com/emartisoft My GitHUB | http://csdb.dk/scener/?id=26786 My CSDB | https://c64kernal.com Genesis
READY.
SYS(64767): EMARTI
i_r_on
Uzman
*****
Mesaj Sayısı: 2.873



Üyelik Bilgileri WWW
« Yanıtla #37 : Nisan 23, 2017, 02:07:41 ÖÖ »
skate'in çözümü kesinlikle olayı kısaltmış ancak tam sayılar demiş soruda, o yüzden değişken a% olarak tanımlanmalı.

c64'ün basic'inde başka tam sayı yok, reel sayı input alırsınız tam sayı sonuç verirsiniz amenna

ps: demek istediğim şu

run
? 100.5
cift

integer tanımlarsanız zaten girdiyi kabul etmeyip baştan gir diyor (redo from start)
Logged
Every imagination is one's self reflection but not every self reflection is imagination. <I.R.on - 2001>

twitter | blog
emarti
Uzman
*****
Mesaj Sayısı: 2.592


Only Amiga Makes It Possible █


Üyelik Bilgileri WWW
« Yanıtla #38 : Nisan 23, 2017, 02:10:45 ÖÖ »
Alıntı sahibi: i_r_on üzerinde Nisan 23, 2017, 02:07:41 ÖÖ
skate'in çözümü kesinlikle olayı kısaltmış ancak tam sayılar demiş soruda, o yüzden değişken a% olarak tanımlanmalı.

c64'ün basic'inde başka tam sayı yok, reel sayı input alırsınız tam sayı sonuç verirsiniz amenna

ps: demek istediğim şu

run
? 100.5
cift

integer tanımlarsanız zaten girdiyi kabul etmeyip baştan gir diyor (redo from start)

O vakit soru iptal
Logged
https://github.com/emartisoft My GitHUB | http://csdb.dk/scener/?id=26786 My CSDB | https://c64kernal.com Genesis
READY.
SYS(64767): EMARTI
Skate
Uzman
*****
Mesaj Sayısı: 1.479


A Sinner Scener


Üyelik Bilgileri WWW
« Yanıtla #39 : Nisan 23, 2017, 02:12:03 ÖÖ »
a ile a% arasında herhangi bir davranış farkı olmaması lazım. a% ile de cift alırsın.
Logged
i_r_on
Uzman
*****
Mesaj Sayısı: 2.873



Üyelik Bilgileri WWW
« Yanıtla #40 : Nisan 23, 2017, 02:15:30 ÖÖ »
Alıntı sahibi: Skate üzerinde Nisan 23, 2017, 02:12:03 ÖÖ
a ile a% arasında herhangi bir davranış farkı olmaması lazım. a% ile de cift alırsın.

demek istediğim, tanımsız değerler için de sonuç üretmesi. 100.5 çift midir yoksa tek midir? tek/çift tam sayı değerler için tanımlıdır.

senin çözüm delimawi'nin post ettiği en kısadan daha kısa ona lafım yok
Logged
Every imagination is one's self reflection but not every self reflection is imagination. <I.R.on - 2001>

twitter | blog
Simon (Özay Turay)
Yönetici
*****
Mesaj Sayısı: 7.756


Commodore Forever


Üyelik Bilgileri WWW
« Yanıtla #41 : Nisan 23, 2017, 02:17:09 ÖÖ »
@wizofwor: Hay aklınla bin yaşa, çok eğlenceli bir başlık oldu. Durup durup daha kısa veya daha farklı bir yöntem kullanan var mı diye kontrol etme ihtiyacı duyuyorum. Kahkaha
Logged
https://retrodergi.com - https://e-turay.com - https://karizmawow.e-turay.com

Retro: Commodore 64, Amiga 500, Amiga 1200
Retromsu: Wii, XBox360, XBox, PS3 Slim, PS2 FAT, PS1, PS Vita, Nintendo 3DS, Nintendo 2DS
emarti
Uzman
*****
Mesaj Sayısı: 2.592


Only Amiga Makes It Possible █


Üyelik Bilgileri WWW
« Yanıtla #42 : Nisan 23, 2017, 02:21:41 ÖÖ »
@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)
Logged
https://github.com/emartisoft My GitHUB | http://csdb.dk/scener/?id=26786 My CSDB | https://c64kernal.com Genesis
READY.
SYS(64767): EMARTI
i_r_on
Uzman
*****
Mesaj Sayısı: 2.873



Üyelik Bilgileri WWW
« Yanıtla #43 : Nisan 23, 2017, 02:25:26 ÖÖ »
Alıntı sahibi: emarti üzerinde Nisan 23, 2017, 02:21:41 ÖÖ
@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.
Logged
Every imagination is one's self reflection but not every self reflection is imagination. <I.R.on - 2001>

twitter | blog
Skate
Uzman
*****
Mesaj Sayısı: 1.479


A Sinner Scener


Üyelik Bilgileri WWW
« Yanıtla #44 : Nisan 23, 2017, 02:26:47 ÖÖ »
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.
Logged
Sayfa: 1 2 [3] 4 5 ... 30   Yukarı git
Yazdır
« önceki sonraki »
Gitmek istediğiniz yer: