₦airaland Forum

Write any qbasic programs you know
Let credit you

Thanks

Who qbasic epp?

Module module
Sub Main
Dim a AS Integer
Dim b AS Integer
Dim c AS Double
Dim ans AS Double
c = 0.5;
Print To find circumfrence of a circle, enter height;
Input a$
Print please enter the base;
Input b$
ans = c * b * a;
Print 'the answer is ' ans;
End Sub
End Module

Pardon me if my syntax is not 100% correct, i did this in 100level in skul even without having a laptop and i don't think am going back to it, infact, i don't like the language.

Nice one