Qbasic
Avg of 3 no Declare function avg(a,b,c) Cls Input"enter first number ";a Input"enter second number";b Input "enter third number";c Print"avg of three number=";avg(a,b,c) End Function avg(a,b,c) S=a+b+c Av = S/3 Avg=Av End function Total vowel number Declare sub count (N$) Cls Input "enter any word ";N$ Call count (N$) End Sub count (N$) C=0 For I=1 to len(N$) B$=Mid$ (N$,I,1) C$=Ucase$(B$) If C$="A" or C$="E"or C$="I" or C$="O"or C$="U" Next I Print"total no of vowel=";C$ End sub Circle Declare sub area(R) Input "enter radius";R Call area(R) End I Sub area (R) A=22/7*R^2 Print "area of circle=";A End sub Area of 4 wall Declare sub area (l,b,h) Cls Input"enter length";l Input"enter breadth";I Input"enter height";h Call area (l,b,h) End Sub area (l,b,h)