Arabanın yakıtının kaç km sonra biteceini hesaplayan program.. 1.yazılı 3 .soru.
Bir arabanın deposunda 200 lt benzin bulunmaktadır. Bu araba km ‘de 0.05 lt benzin yakmaktadır. Bu arabanın yakıtının kaç km sonra biteceğini hesaplayan programı tasarlayınız
Program 1 Buttondan oluşuyor..
Button1 yazılacaklar;
Dim yakıt As Decimal
Dim km As Integer
yakıt = 200
km = 0
While yakıt > 0
km = km + 1
yakıt = yakıt - 0.04
End While
MsgBox(yakıt)
MsgBox("Bu arabanın yakıtı " & km & " km sonra biter")
