Çözüldü Sayı Toplamı Msgbox Bildirimi

[jason]

İkiden başlanarak bire kadar 0.05 aralıklarla olan sayıların çift olanlarını
toplayıp, sonucu msgbox kutusu ile kullanıcıya ileten VBA kodunu yazınız

 

[Ümit Bakacak]

2 ile 1 arasında tamsayı sadece 2 ve 1 dir. Burası tamam.

Ondalıklı sayılarda tek çift nasıl olacak???

 

[jason]

2 ile 1 arasında tamsayı sadece 2 ve 1 dir. Burası tamam.

Ondalıklı sayılarda tek çift nasıl olacak???

2,00 dan 0,5 aralıkla azalıp 1,00e kadar olan sayılar örn 2 , 1,95, 1,90 ,1,85 ... 1,05,1,00

 

[askan]

2,00 dan 0,5 aralıkla azalıp 1,00e kadar olan sayılar örn 2 , 1,95, 1,90 ,1,85 ... 1,05,1,00

Ona son basamağı çift desek daha doğru olmaz mı?

 

[Ümit Bakacak]

Matematikte çift sayı tanımı;
n bir tamsayı olmak üzere 2n şeklinde ifade edilen sayılar çift sayıdır. Yani bir sayının çift yada tek olması için önce tamsayı olması lazım. 1,90 tamsayı değildir. Dolayısı ile tek ya da çift olarak sınıflandıramazsınız.

 

[Ümit Bakacak]

askan Hocamın dediği gibi son basamağı çift olan sayıları istiyor olabilir misiniz...

 

[jason]

askan Hocamın dediği gibi son basamağı çift olan sayıları istiyor olabilir misiniz...

Evet son basamağı çift olan sayılar

 

[jason]

Ona son basamağı çift desek daha doğru olmaz mı?

Evet son basamağı çift olan sayılar.

 

[Ümit Bakacak]

Buyurun:

Sub hesapla()
Dim bas As Double, eksilt As Double, sonuc As Double

bas = 2: eksilt = 0.05
Do While bas >= 1
If bas * 100 Mod 2 = 0 Then sonuc = sonuc + bas
bas = WorksheetFunction.RoundUp(bas - eksilt, 2)
Loop

MsgBox "Bulunan sonuç: " & sonuc, vbInformation
End Sub

Bu döngü ile...

 

[jason]

Buyurun:

Sub hesapla()
Dim bas As Double, eksilt As Double, sonuc As Double

bas = 2: eksilt = 0.05
Do While bas >= 1
If bas * 100 Mod 2 = 0 Then sonuc = sonuc + bas
bas = bas - eksilt
Loop
MsgBox "Bulunan sonuç: " & sonuc, vbInformation
End Sub

Teşekkür ederim hocamm..

 

[Ümit Bakacak]

Ufak bir düzeltme yaptım. Kodu tekrar alınız.

 

[Ümit Bakacak]

Bu da matematikteki terim sayısı ve düzenli artış formülü ile...

Sub hesapla2()
Dim tsayisi As Double, eksilt As Double, aa As Double, bb As Double, sonuc As Double

aa = 1: bb = 2: eksilt = 0.1
tsayisi = ((bb - aa) / eksilt) + 1
sonuc = (aa + bb) / 2 * tsayisi

MsgBox "Bulunan sonuç: " & sonuc, vbInformation
End Sub

 

[Ümit Bakacak]

Her iki makroda da 1 sayısı "," sonrasında 2 haneli yazıldığında yani 1,00 şeklinde olduğunda çift olarak kabul edildi.