Eski Günlere Geri Döndük...!! (Üniversite Yılları)

[TRWE_2012]

Merhaba

Önce kodlamayı verelim.

Kod: Tümünü seç

CLS
DIM num AS INTEGER
DIM isPrime AS INTEGER
DIM i AS INTEGER

' Kullanıcıdan sayı al
PRINT "1 ile 100 arasinda bir sayi girin: ";
INPUT num

' Sayinin geçerli aralıkta olup olmadigini kontrol et
IF num < 1 OR num > 100 THEN
    PRINT "Lutfen 1 ile 100 arasinda bir sayi girin."
    END
END IF

' Asal sayi kontrolü
isPrime = 1 ' Baslangicta asal kabul et

IF num = 1 THEN
    isPrime = 0 ' 1 asal degildir
ELSE
    FOR i = 2 TO SQR(num)
        IF num MOD i = 0 THEN
            isPrime = 0 ' Sayi asal degil
            EXIT FOR
        END IF
    NEXT i
END IF

' Sonucu yazdir
IF isPrime = 1 THEN
    PRINT num; " bir asal sayidir."
ELSE
    PRINT num; " bir asal sayi degildir."
END IF

END

Peki bu Q-Basic programını nasıl deneyeceğiz modern sistemlerde (Windows11 ve Windows10)

Merak etmeyin...!!! TRWE_2012 her zaman bir çözüm yolu bulur kendince (karınca misali)

Aşağıdaki ekran görüntülerine bakın...!!! Aaaa!!! diye şaşıracaksınız...!!!

Web Adresi :

https://www.programmingbasic.com/downlo ... 4-bit-2021

NOT:

Bu yazılım (portable) özellikle @Tarkan_Dost (windows hekimi)'un ve @esatiz ve de @localhost'un dikkatini çekecektir.

[TRWE_2012]

Yazılımın oluşturduğu .exe dosyasında "BÖCÜK" de yoktur.En azından bendeki Panda Dome ötmedi....!!! (tarattım , sıfır böçük)

[burak35]

Güzelmiş.

[Kayserilifatih]

Eski yıllarımdaki matematikte asal sayı dersini hatırlattı kodlar bana nedense

[burak35]

Asal sayı testi işlemci gücü falan ölçme gibi birşey benim bi arkadaşta vardı. Ama hiç kullanmadım.
O zamanlar çürük çarık desktop kullanıyordum tabi. :)

[root@localhost]

Programlama da biz 30 lu yaşlarında olup , lise ve ünide karşılaştığımız ilklerdendir qbasic. Basic. Teşekkürler.