QBasic Tc Kimliğin Son 2 Hanesini Bulma

QBasic programı gelişim aşamasında   karşımıza  TC kimlik son 2 hanesini bulan programı nasıl yapılır sorusu çıkıyor.

Bu kodlar ile birlikte qbasic programında TC kimlik numarasına göre son 2 hanesini bulma hesabını kolayca yapabileceksiniz.

 

QBasic Tc Kimliğin Son 2 Hanesini Bulma

CLS
INPUT tc$
tc$ = "10000001"
s1 = VAL( MID$ (tc$, 1, 1))
s2 = VAL( MID$ (tc$, 2, 1))
s3 = VAL( MID$ (tc$, 3, 1))
s4 = VAL( MID$ (tc$, 4, 1))
s5 = VAL( MID$ (tc$, 5, 1))
s6 = VAL( MID$ (tc$, 6, 1))
s7 = VAL( MID$ (tc$, 7, 1))
s8 = VAL( MID$ (tc$, 8, 1))
s9 = VAL( MID$ (tc$, 9, 1))
t1 = s1 + s3 + s5 + s7 + s9
t2 = s2 + s4 + s5 + s8
s10 = (t1 * 7 - t2) MOD 10
s11 = (t1 + t2 + s10) MOD 10
PRINT tc$; s10; s11;

 

Sizlerde kendi yazdığınız programları, istek ve sorularınızı bizlere iletişim kısmından iletebilirsiniz.

QBasic ile ilgili kavramlara ek olarak, QBasic öğrenimini teşvik etmek için karar verme ve döngü kontrolleri dahil olmak üzere bazı örnekler ve örnek uygulamalar vardır.
Diğer örneklere de göz atabilirsiniz:,
Rastgele 10 Adet Sayıyı Büyükten Küçüğe Sıralama
Girilen Doğum Tarihine Göre Ne Zamandır Yaşıyorum
Rastgele 10 Adet Sayıdan En Büyüğünü Ve En Küçüğünü Bulan Program
Asal Sayı
1-100 Arası Kaç Adet 9 Olduğunu Bulan Program

Kodlarda herhangi bir problem olduğunda lütfen yorum kısmından iletişime geçiniz.