Basic:
set sever on
declare
message varchar2(20):='Department of
CSE';
begin
dbms_output.put_line(message);
end;
Add & Sub:
set sever on
declare
a integer:=10;
b integer:=20;
c integer;
f real;
begin
c:=a+b;
dbms_output.put_line('Value of c:'|| c);
c:=a-b;
dbms_output.put_line('Value of c:'|| c);
c:= a*b;
dbms_output.put_line('Value of c:'|| c);
c:=b/a;
dbms_output.put_line('Value of c:'|| c);
f:=70.0/3.0;
dbms_output.put_line('Value of f:'|| f);
end;
1+2+3+……..+100:
set sever on
declare
i number(1);
s number;
begin
s:=0;
FOR i IN 1..100 LOOP
s:= s + i;
end loop;
dbms_output.put_line('sum is: '||s);
end;
Min:
declare
a number;
b number;
c number;
procedure findMin(x in number,y
in number,z out number)is
begin
if x<y then
z:=x;
else
z:=y;
end if;
end;
begin
a:=23;
b:=45;
findMin(b,a,c);
dbms_output.put_line('Minimum
of(23,45):'||c);
end;
Fun:
declare
a number;
b number;
c number;
function findMax(x in number,y
in number) return number is
z number;
begin
if x>y then
z:=x;
else
z:=y;
end if;
return z;
end;
begin
a:=23;
b:=45;
c:=findMax(a,b);
dbms_output.put_line('Maximum
of(23,45):'||c);
end;
Recur Fun:
declare
num number;
factorial number;
function fact(x in number) return number is
f number;
begin
if x=0 then
f:=1;
else
f:=x * fact(x-1);
end if;
return f;
end;
begin
num:=6;
factorial:=fact(num);
dbms_output.put_line('Factorial is :
'||factorial);
end;
while loop sum of 100 number:
declare
i number(10);
n number(10);
begin
n:=0;
i:=1;
while i<100
loop
n:=n+i;
i:=i+1;
end loop;
dbms_output.put_line('Sum
is:'||n);
end;
series print:
declare
i number(1);
j number(1);
begin
FOR i IN 1..50 LOOP
dbms_output.put_line('i is: '|| i);
end loop;
end;

Plsql

  • 1.
    Basic: set sever on declare messagevarchar2(20):='Department of CSE'; begin dbms_output.put_line(message); end; Add & Sub: set sever on declare a integer:=10; b integer:=20; c integer; f real; begin c:=a+b; dbms_output.put_line('Value of c:'|| c); c:=a-b; dbms_output.put_line('Value of c:'|| c); c:= a*b; dbms_output.put_line('Value of c:'|| c); c:=b/a; dbms_output.put_line('Value of c:'|| c); f:=70.0/3.0; dbms_output.put_line('Value of f:'|| f); end; 1+2+3+……..+100: set sever on declare i number(1); s number; begin s:=0; FOR i IN 1..100 LOOP s:= s + i; end loop; dbms_output.put_line('sum is: '||s); end; Min: declare a number; b number; c number; procedure findMin(x in number,y in number,z out number)is begin if x<y then z:=x; else z:=y; end if; end; begin a:=23; b:=45; findMin(b,a,c); dbms_output.put_line('Minimum of(23,45):'||c); end;
  • 2.
    Fun: declare a number; b number; cnumber; function findMax(x in number,y in number) return number is z number; begin if x>y then z:=x; else z:=y; end if; return z; end; begin a:=23; b:=45; c:=findMax(a,b); dbms_output.put_line('Maximum of(23,45):'||c); end; Recur Fun: declare num number; factorial number; function fact(x in number) return number is f number; begin if x=0 then f:=1; else f:=x * fact(x-1); end if; return f; end; begin num:=6; factorial:=fact(num); dbms_output.put_line('Factorial is : '||factorial); end; while loop sum of 100 number: declare i number(10); n number(10); begin n:=0; i:=1; while i<100 loop n:=n+i; i:=i+1; end loop; dbms_output.put_line('Sum is:'||n); end; series print: declare i number(1); j number(1); begin FOR i IN 1..50 LOOP dbms_output.put_line('i is: '|| i); end loop; end;