Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
çift sayıların toplamını bulan prog.
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Samsung Galaxy S25: Yapay Zeka Parmaklarınızın Ucunda
https://www.amazon.com.tr/stores/page/92F263DE-74F5-45CA-B8EE-2FA578898A76?ref_=s25dh
Lepro LED el feneri LE2050 ultra parlak LED el feneri, klipsli, yakınlaştırılabilir kamp el lambası, 5 modlu, su geçirmez el feneri, kamp, dış mekan, doğa yürüyüşü, balık tutma, hediye, 2'li paket : Amazon.com.tr: Yapı Market
https://www.amazon.com.tr/dp/B0932X7YH6?ref=ppx_yo2ov_dt_b_fed_asin_title
dün paylaşıldı
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
1 Misafir - 1 Masaüstü
Giriş
Mesaj
-
-
Merhaba kısaca anlatmak gerekirse. FOR NEXT döngüsü ile 1 to n(n olarak sen 10 demişsin) deyip sıralamayı tanımlayacaksın yanlız burada sona step 2 dersen iyi olur sayılar birer atlayarak gidecektir. Sonra toplam diye bos bir küme belirle toplam=1 sonra toplam = n +1 şeklinde yazabilirsin.
İkinci bir yol. Çift sayıları belirlemek o da devide yoluyla /2 = cift dersin. Yani iki yoldan da gidebilirsin gerisi sana kalmış.
-
sanırım bu bir ev ödevi
eğer öyleyse tavsiyem hazır kodlara konma
biraz uğraş yaparsın
kolay olduğunu göreceksin
üstteki mesajda mantık anlatılmış -
yok ev ödevi deilde bi iş için lazım olucak -
Daha geçen hafta okulda yazdık hatta altında da tek sayları ve tek sayıların toplamını gösteriodu ama unuttum zaten bugün yazılı da da yapamadım 1 alacam yaw! 
-
aşağıdakilerden birini kullanabilirsin
1)
Private Sub Form_Click()
Cls
For sayi = 1 To 10
If sayi Mod 2 = 0 Then toplam = toplam + sayi
Next
Print toplam
End Sub
2)
Private Sub Form_Click()
Cls
For sayi = 0 To 10 Step 2
toplam = toplam + sayi
Next
Print toplam
End Sub
3)
Private Sub Form_Click()
sayi = 0: toplam = 0
Do Until sayi = 10
sayi = sayi + 2
toplam = toplam + sayi
Loop
Print toplam
End Sub
< Bu mesaj bu kişi tarafından değiştirildi akcan -- 20 Aralık 2006; 20:20:00 >
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
