Qbasic program to find area of rectangle and circle using sub and function procedure | SEE computer science datafile 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-I]

declare sub area_rectangle(l,b)

declare function area_circle(r)

Input "enter length and breadth of rectangle"; l, b

Input "enter radius of circle"; r

Call area_rectangle(l, b)

Print "the area of circle is"; area_circle(r)

End

Sub area_rectangle (l, b)

    area = l * b

    Print "the area is"; area

End Sub

Function area_circle (r)

    area_circle = 3.14 * r ^ 2

End Function

Qbasic program to read the contents of a datafile | SEE computer science datafile 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(b) triton SEE model set set II

Open "record.dat" For Input As #11

Cls

c = 0

While Not EOF(11)

    Input #11, sno, name$, address$, tel, email$

    If LCase$(Right$(email$, 9)) = "yahoo.com" Then

        c = c + 1

        Print name$, address$, email$

    End If

Wend

Print "total records having email is="; c

Close #11

End

SEE Computer Science: sub procedure program – QBASIC Sub Procedure Program Explained-2081 BS

 

QBASIC programs collection

Sub  procedure program [Triton model question-2081 set V q5]

DECLARE SUB SENDUP (S$)

E$ = "NPABSON"

Call SENDUP(E$)

End

Sub SENDUP (S$)

    For i = 1 To Len(S$) Step 1

        If i Mod 2 <> 0 Then

            EE$ = EE$ + LCase$(Mid$(S$, i, 1))

        Else

            EE$ = EE$ + UCase$(Mid$(S$, i, 1))

        End If

    Next i

    Print EE$

End Sub

SEE Computer Science: sub procedure program – QBASIC Sub Procedure Program Explained-2079 BS

 

QBASIC programs collection- 2079 B.S. GP

Sub and function procedure program [Triton model question]

'rem q9 A 2079 GP

declare sub perimeter(l,b)

declare function area(l,b)

Cls

Input "enter length and breadth"; l, b

Call perimeter(l, b)

Print "the area is"; area(l, b)

End

Sub perimeter (l, b)

    p = 2 * (l + b)

    Print "the perimeter is"; p

End Sub

Function area (l, b)

    area = l * b

End Function

SEE Computer Science: Triton Model Set II – QBASIC Sub Procedure Program Explained

 

QBASIC programs collection- Triton model sets-II 

Sub procedure program

DECLARE SUB SERIES ( )

Cls

Call series

End

Sub series

    A$ = "NEPAL"

    B = 1

    For I = Len(A$) To 1 Step -2

        If B <> 3 Then

            Print Mid$(A$, B, I)

        Else

            Print Mid$(A$, 1, I)

        End If

        B = B + 1

    Next I

End Sub

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

Qbasic program to read the contents of data file record.dat and to print on screen | SEE computer science datafile program

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

QBasic Datafile programming of questions asked in Triton's model questions

QBasic program read the contents of datafile and display on screen [Triton's model set]

 

'q9(b) triton SEE model set set II

Open "record.dat" For Input As #11

Cls

c = 0

While Not EOF(11)

    Input #11, sno, name$, address$, tel, email$

    If LCase$(Right$(email$, 9)) = "yahoo.com" Then

        c = c + 1

        Print name$, address$, email$

    End If

Wend

Print "total records having email is="; c

Close #11

End