Plsql
- 1. 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;
- 2. 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;