Scribd
Upload
8 views

DBMS LAB

dbms lab

Uploaded by

anjalimaurya2801
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
8 views

DBMS LAB

dbms lab

Uploaded by

anjalimaurya2801
Copyright
© © All Rights Reserved
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