Scribd
Upload
24 views26 pages

DBMS LAB

dbms lab

Uploaded by

anjalimaurya2801
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
24 views26 pages

DBMS LAB

dbms lab

Uploaded by

anjalimaurya2801
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 26

DR.

APJ ABDUL KALAM TECHNICAL


UNIVERSITY LUCKNOW

RAM CHAMELI CHADHA VISHWAS GIRLS COLLEGE

SESSION - 2023-24
PROJECT FILE

DATABASE MANAGEMENT SYSTEMS LAB

SUBMITTED BY: SUBMITTED TO:


ANJALI MAURYA PRINCI MAM
MCA 1ST YR
ROLL NO: 2301170140003
INDEX
SR NO TOPIC FACULTY
SIGN
1 HELLO WORLD
2 ADD TWO NUMBER
3 PRIME NUMBER
4 FACTORIAL OF A NUMBER
5 PRINT TABLE OF A NUMBER
6 REVERSE OF A NUMBER
7 FIBONACCI SERIES
8 CHECK NUMBER IS ODD OR
EVEN
9 REVERSE A STRING
10 PALINDROME NUMBER
11 SWAP TWO NUMBER
12 ARMSTRONG NUMBER
13 GREATEST OF THREE NUMBER
14 PRINT PATTERNS
Q-1 WRITE A PROGRAM “HELLO WORLD” IN SQL?
A-1 BEGIN
dbms_output.put_line(‘Hello World..');
END;
/

OUTPUT
HELLO WORLD..

Q-2 WRITE A PROGRAM TO ADD TWO NUMBERS IN MY


SQL?
A-2 Declare
Var1 integer;
Var2 integer;
Var3 integer;
Begin
Var1:=&var1;
Var2:=&var2;
Var3:=var1+var2;
Dbms_output.put_line(var3);
End;
/

OUTPUT
Enter the value for var1: 23
Old 6: var1:&var1;
New 6: var1:=23;
Enter the value of var2: 34
Old 7: var2:&var2;
New 7: var2:=34;
57

Q-3 WRITE A PROGRAM FOR PRIME NUMBER IN MY SQL?


A-3 declare
n number;
i number;
flag number;

begin
i:=2;
flag:=1;
n:=&n;

for i in 2..n/2
loop
if mod(n,i)=0
then
flag:=0;
exit;
end if;
end loop;

if flag=1
then
dbms_output.put_line('prime');
else
dbms_output.put_line('not prime');
end if;
end;
/

OUTPUT
Enter value for n: 12
old 9: n:=&n;
new 9: n:=12;
not prime

Q-4 WRITE A PROGRAM FACTORIAL OF A NUMBER IN MY


SQL?
A-4 declare
n number;
fac number:=1;
i number;

begin
n:=&n;

for i in 1..n
loop
fac:=fac*i;
end loop;
dbms_output.put_line('factorial='||fac);
end;
/

OUTPUT
Enter value for n: 10
old 7: n:=&n;
new 7: n:=10;
factorial=3628800

Q-5 WRITE A PROGRAM TO PRINT TABLE OF A NUMBER IN


MY SQL?
A-5 declare
n number;
i number;

begin
n:=&n;
for i in 1..10
loop
dbms_output.put_line(n||' x '||i||' = '||n*i);
end loop;
end;
/

OUTPUT
Enter value for n: 5
old 6: n:=&n;
new 6: n:=5;
5x1=5
5 x 2 = 10
5 x 3 = 15
5 x 4 = 20
5 x 5 = 25
5 x 6 = 30
5 x 7 = 35
5 x 8 = 40
5 x 9 = 45
5 x 10 = 50

Q-6 WRITE A PROGRAM FOR REVERSE OF A NUMBER IN MY


SQL?

A-6 declare
n number;
i number;
rev number:=0;
r number;
begin
n:=&n;
while n>0
loop
r:=mod(n,10);
rev:=(rev*10)+r;
n:=trunc(n/10);
end loop;

dbms_output.put_line('reverse is '||rev);

end;
/

OUTPUT
Enter value for n: 4578
old 8: n:=&n;
new 8: n:=4578;
reverse is 8754

Q-7 WRITE A PROGRAM FOR FABONACCI SERIES IN MY


SQL?
A-7 declare
first number:=0;
second number:=1;
third number;
n number:=&n;
i number;

begin
dbms_output.put_line('Fibonacci series is:'); dbms_output.put_line(first);
dbms_output.put_line(second);
for i in 2..n
loop
third:=first+second;
first:=second;
second:=third;
dbms_output.put_line(third);
end loop;
end;
/

OUTPUT
Enter value for n: 6
old 5: n number:=&n;
new 5: n number:=6;
Fibonacci series is:
0
1
1
2
3
5
8

Q-8 WRITE A PROGRAM TO CHECK NUMBER IS ODD OR


EVEN?
A-8 declare
n number:=&n;

begin
if mod(n,2)=0
then
dbms_output.put_line('number is even');
else
dbms_output.put_line('number is odd');
end if;
end;
/

OUTPUT
Enter value for n: 7
old 2: n number:=&n;
new 2: n number:=7;
number is odd

Q-9 WRITE A PROGRAM TO REVERSE A STRING IN MY SQL?


A-9 declare
str1 varchar2(50):='&str';
str2 varchar2(50);
len number;
i number;

begin
len:=length(str1);
for i in reverse 1..len
loop
str2:=str2 || substr(str1,i,1);
end loop;
dbms_output.put_line('Reverse of String is:'||str2);
end;
/

OUTPUT
Enter value for str: hello world
old 2: str1 varchar2(50):=’&str’;
new 2: str1 varchar2(50):=’hello world’;
Reverse of String is:dlrow olleh

Q-10 WRITE A PROGRAM PALINDROME NUMBER IN MY


SQL?
A-10 declare
n number;
m number;
rev number:=0;
r number;
begin
n:=12321;
m:=n;
while n>0
loop
r:=mod(n,10);
rev:=(rev*10)+r;
n:=trunc(n/10);
end loop;

if m=rev
then
dbms_output.put_line('number is palindrome');
else
dbms_output.put_line('number is not palindrome');
end if;
end;
/

OUTPUT
Number is palindrome

Q-11 WRITE A PROGRAM TO SWAP TWO NUMBER IN MY


SQL?
A-11 declare
a number;
b number;
temp number;
begin
a:=5;
b:=10;
dbms_output.put_line('a='||a||' b='||b); dbms_output.put_line('before
swapping:');

temp:=a;
a:=b;
b:=temp;
dbms_output.put_line('after swapping:'); dbms_output.put_line('a='||a||'
b='||b);
end;
/

OUTPUT
before swapping:
a=5 b=10
after swapping:
a=10 b=5

Q-12 WRITE A PROGRAM FOR ARMSTONE NUMBER IN MY


SQL?
A-12 declare
n number:=407;
s number:=0;
r number;
len number;
m number;
begin
m:=n;
len:=length(to_char(n));
while n>0
loop
r:=mod(n,10);
s:=s+power(r,len);
n:=trunc(n/10);
end loop;

if m=s
then
dbms_output.put_line('armstrong number');
else
dbms_output.put_line('not armstrong number');
end if;
end;
/

OUTPUT
Armstrong number

Q-13 WRITE A PROGRAM TO FIND GREATEST OF THREE


NUMBER IN MY SQL?
A-13 declare
a number:=10;
b number:=12;
c number:=5;
begin
dbms_output.put_line('a='||a||' b='||b||' c='||c);
if a>b AND a>c
then
dbms_output.put_line('a is greatest');
else
if b>a AND b>c
then
dbms_output.put_line('b is greatest');
else
dbms_output.put_line('c is greatest');
end if;
end if;
end;
/

OUTPUT
a=10 b=12 c=5

Q-14 WRITE A PROGRAM TO PRINT PATTERN IN MY SQL?


A-14 declare
n number:=5;
i number;
j number;
begin
for i in 1..n
loop
for j in 1..i
loop
dbms_output.put('*');
end loop;
dbms_output.new_line;
end loop;
end;
/

OUTPUT
**************************

You might also like