3 Lab Exercise DBMS
3 Lab Exercise DBMS
Lab Exercise-3
Initial Tables
Employee Table:
Department Table:
30) Displaying the first four characters and last four of the
department names using substring function:
Code:
set serveroutput on
declare
BEGIN
dbms_output.put_line(message);
END;
/
Code:
set serveroutput on
declare
var1 integer;
var2 integer;
var3 integer;
Begin
var1:=&var1;
var2:=&var2;
var3:=var1+var2;
dbms_output.put_line(var3);
End;
/
Code:
set serveroutput on
declare
n number;
i number;
flag number;
begin 1:=2;
flag:=1;
n:=&n;
for i in 2..n/2
Loop
if mod(n, 1)=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;
/
54. PL/SQL Program to Find Factorial of a Number
Code:
set serveroutput on
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;
/
Code:
set serveroutput on
declare
n number;
i number;
begin
n:=&n;
for i in 1..10
Loop
dbms_output.put_line(n||'x'||||''||nd);
end Loop;
end;
/
56)PI/SQL program for reverse of a number.
CODE:
DECLARE
num NUMBER := 12345;
reversed_num NUMBER := 0;
temp_num NUMBER;
BEGIN
temp_num := num;
OUTPUT:
OUTPUT:
DECLARE
num_to_check NUMBER := 5;
result_str VARCHAR2(10);
BEGIN
CheckEvenOdd(num_to_check, result_str);
DBMS_OUTPUT.PUT_LINE('Number ' || num_to_check || ' is ' || result_str);
END;
/
OUTPUT:
59) PL/SQL Function to Reverse a String.
CODE:
CREATE OR REPLACE FUNCTION ReverseString(input_string IN VARCHAR2) RETURN
VARCHAR2
IS
reversed_string VARCHAR2(1000);
BEGIN
FOR i IN REVERSE 1..LENGTH(input_string) LOOP
reversed_string := reversed_string || SUBSTR(input_string, i, 1);
END LOOP;
RETURN reversed_string;
END;
/
DECLARE
input_string VARCHAR2(100) := ‘hello’;
reversed_string VARCHAR2(100);
BEGIN
reversed_string := ReverseString(input_string);
DBMS_OUTPUT.PUT_LINE('Original String: ' || input_string);
DBMS_OUTPUT.PUT_LINE('Reversed String: ' || reversed_string);
END;
/
OUTPUT: