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..
Button1y yazılacaklar;
[code lang=”vbnet”]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") [/code]