a) D="Çarşamba"
For i=5 to step -1
Sonuc=sonuc +i + len(D)
Next i
b) D="Çarşamba"
D=D + string(3 ,"a")
D=D + mid(D, 3,4)
sonuc= len(D)
c) d="Çarşamba"
d=d+ String(3,"a")
d=d + mid(d, 3,4)
d=len(d)
c="Çarşamba"
c= Str(d) + String(3,"a")
c= Str(d) + Mid(c, 3,4)
c= len(c)
sonuc= d/3 + c
d)b=1
For a 2 to 5
b=b*a
Next a
sonuc=b
Soru 2)Aşagıdaki QBasic kodlarının Ne işe yaradıgını ekran görüntüleriyle açıklayınız.
a) Cls
For i=1 To 9
For j=1 To 9
Print str(i) + "*" + str(j) + "="; i*j
Next j
Next i
end
b) Dim a,b As Integer
Dim a2 As String
İnput "Bir İfade Giriniz" , a2
For i=len(a2) To 1 Step -1
Print Right $(a2, i -1)
Next i
Soru 3)Klavyeden Girilen Bir Metni Şifre Kabul Edip Yine Klavyeden Girilen Bir Metnin Şifre ile Doğruluğu Onaylandıgında Girilen Bir Rakamın Kaç Basamak Oldugunu Ekrana Yazan Programın QBasic Kodlarını Yazınız.
Soru 4)Klavyeden Girilen Bir Cümlenin Kaç Kelimeden Oluştugunu ekrana yazdıran programın Qbasic Kodlarını yazınız.
Soru 5)Klavyeden girilen 2 basmaklı bir sayıyı yazı ile ekrana yazan programın QBasic kodlarını yazınız.
Arkadaşlar bu sorunların çözümleri benim için çok önemli lütfen 5 dk nızı ayırarak soruların çözümlerini yazarsanız çok memnun olurum.
Hayat Memat Meselesi
