declare sub pabson(A,b)
Cls
x = 15
y = 10
Call pabson(x, y)
Call pabson(3, 6)
End
Sub pabson (a, b)
If a < b Then
Print a
Else
Print b
End If
End Sub
declare function num(A)
Cls
For x = 1 To 5
Read n
s = s + num(n)
Next x
Print s
Data 1,2,3,4,5
End
Function num (a)
num = a ^ 2
End Function
 |
| program to find the output of given program |
'wap to input a string in lowercase and convert that into uppercase
'use function procedure
declare function uppercase$(a$)
Cls
Input "ente a string"; a$
Print "string in upper case is="; uppercase(a$)
End
Function uppercase$ (a$)
uppercase$ = UCase$(a$)
End Function
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1">
<title>js program to convert into uppercase</title>
</head>
<body>
<form>
enter your text:<input type="text" id="mytext" placeholder="enter a text">
</form>
<button onclick="convertintouppercase();">change into uppercase</button>
<p id="result"></p>
<script>
function convertintouppercase()
{
var txt;
txt=document.getElementById('mytext').value;
document.getElementById('result').innerText=txt.toUpperCase();
}
</script>
</body>
</html>
 |
| JS code to convert string into uppercase |
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1">
<title>js program to find sum of two numbers using text boxes</title>
</head>
<body>
<form>
enter first number:<input type="text" id="n1" placeholder="enter first number"><br>
enter second number:<input type="text" id="n2" placeholder="enter second number"><br>
</form>
<button onclick="sumnumbers();">click to find the sum</button>
<p>sum is:<span id="resultsum"></span></p>
<p>difference is:<span id="resultdiff"></span></p>
<script>
function sumnumbers()
{
var number1,number2,sum;
number1=parseFloat(document.getElementById('n1').value);
number2=parseFloat(document.getElementById('n2').value);
sum=number1+number2;
document.getElementById('resultsum').innerText=sum;
document.getElementById('resultdiff').innerText=number1-number2;
}
</script>
</body>
</html>
 |
| JS program to find sum of two numbers entered by user |
'q9 a to find area and perimeter using sub and function procedure
Declare sub perimeter(l,b)
declare function area(l,b)
Cls
Input "enter l and b"; 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="; p
End Sub
Function area (l, b)
area = l * b
End Function
 |
| program to find area and perimeter |
declare sub sum(A)
A = 2
Call sum(A)
End
Sub sum (A)
While A <= 20
If A Mod 4 = 0 Then
s = s + A
End If
A = A + 1
Wend
Print s
End Sub
|
A |
While
A<=20 |
If A Mod 4 = 0 |
S=s+A |
A=A+1 |
|
2 |
yes |
no |
|
A=3 |
|
3 |
yes |
no |
|
A=4 |
|
4 |
yes |
yes |
S=s+A=0+4=4 |
A=5 |
|
5 |
yes |
no |
|
A=6 |
|
6 |
yes |
no |
|
A=7 |
|
7 |
yes |
no |
|
A=8 |
|
8 |
y |
yes |
S=4+8=12 |
A=9 |
|
9 |
yes |
n |
|
=10 |
|
10 |
yes |
n |
|
=11 |
|
11 |
yes |
N |
|
=12 |
|
12 |
yes |
y |
=12+12=24 |
A=13 |
|
13 |
yes |
n |
|
=14 |
|
14 |
yes |
n |
|
=15 |
|
15 |
yes |
n |
|
=16 |
|
16 |
yes |
y |
=24+16=40 |
=17 |
|
17 |
yes |
n |
|
=18 |
|
18 |
yes |
n |
|
=19 |
|
19 |
yes |
n |
|
=20 |
|
20 |
yes |
y |
=40+20=60 |
21 |
|
21 |
no |
|
|
|
declare function find()
Print find
End
Function find ()
For n = 1 To 9 Step 2
Let s = s + n
Next n
find = s
End Function
|
N=1 to 9 step
2 |
S=s+n |
find |
|
|
N=1;true |
S=0+1=1 |
|
|
|
N=3;true |
S=1+3=4 |
|
|
|
N=5;true |
S=4+5=9 |
|
|
|
N=7;true |
S=9+7=16 |
|
|
|
N=9;true |
S=s+N=16+9=25 |
|
|
|
N=11;false |
|
Find=s=25 |
|
'CDC model question set 1
declare sub Result()
Call result
End
Sub result ()
N = 5
C = 1
While C <= 5
Print N
N = N * 10 + 5
C = C + 1
Wend
End Sub
|
N |
C |
C<=5 |
Print N |
N=N*10+5 |
C=c+1 |
|
5 |
1 |
yes |
5 |
=5*10+5=55 |
2 |
|
55 |
2 |
yes |
55 |
=55*10+5=555 |
3 |
|
555 |
3 |
yes |
555 |
=555*10+5=55555 |
4 |
|
5555 |
4 |
yes |
5555 |
=5555*10+5=55555 |
5 |
|
55555 |
5 |
yes |
55555 |
=55555*10+5=555555 |
6 |
|
555555 |
6 |
no |
|
|
|
5
55
555
5555
55555
DECLARE SUB CHEMISTRY()
Cls
Call CHEMISTRY
End
Sub CHEMISTRY ()
Let A$ = "VIDEO"
Let B = Len(A$)
For I = 1 To 4
Print Mid$(A$, I, B)
Next I
End Sub
|
A$ |
B=LEN(A$)=5 |
I= 1 TO 4 |
MID$(A$,I,B) |
|
VIDEO |
B=5 |
I=1 |
MID$(A$,I,B)=VIDEO |
|
|
B=5 |
I=2 |
MID$(A$,I,B)=IDEO |
|
|
B=5 |
I=3 |
MID$(A$,I,B)=DEO |
|
|
B=5 |
I=4 |
MID$(A$,I,B)=EO |
VIDEO
IDEO
DEO
DECLARE FUNCTION OUTPUTT$(W$)
Cls
W$ = "CRIMES"
Print OUTPUTT$(W$)
End
Function OUTPUTT$ (W$)
For M = Len(W$) To 1 Step -2
M$ = M$ + Mid$(W$, M, 1)
Next M
OUTPUTT$ = M$
End Function
|
W$ |
M=6 TO 1
STEP-2 |
M$=M$+MID$(W$,M,1) |
OUTPUTTT$ |
|
|
|
CRIMES |
M=6 |
M$=S |
|
|
|
|
|
M=4 |
M$=S+M=SM |
|
|
|
|
|
M=2 |
M$=SM+R=SMR |
SMR |
|
|
