Qbasic program to use sub and procedure and to find volume and TSA | SEE computer science procedure program

 

QBasic programs collection-Especially for SEE (Grade-10)

QBasic procedure based programming  questions asked in Triton's model questions

QBasic programs [Triton's model set]

'q9 triton SEE model set set II

declare function volume(l,b,h)

declare sub TSA(l,b,h)

Input "enter l,b,and h"; l, b, h

Call TSA(l, b, h)

Print "the volume is"; volume(l, b, h)

End

Function volume (l, b, h)

    volume = l * b * h

End Function

Sub TSA (l, b, h)

    total_surface_Area = 2 * (l * b + b * h + l * h)

    Print "tsa="; total_surface_Area

End Sub