Pl/SQL program to find maximum of 2 numbers using function
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; --Calling function FindMAx-- begin a:=45; b:=90; c := findmax(a,b); dbms_output.put_line('the maximum between two number :' || c); end;
declare a number; procedure squarenum(x IN OUT number) Is begin x:= x*x; end; begin a:=29; squarenum(a); dbms_output.put_line(' Square of (23): ' || a); END;
declare f number:=&fahrenheit; c number:=&celcius; result number; begin result:=(F-32)*5/9; dbms_output.put_line('the result in celcius is : ' || result); result:=9/5*C+32; dbms_output.put_line('the result in fahrenheit is : ' || result); end;
declare value1 number; value2 number; mytotal number; function myfun(myval1 in number, myval2 in number) return number is total number; begin total := myval1 ** myval2; dbms_output.put_line(total); return total; end; begin value1 :=&val1; value2 := &val2; mytotal:= myfun(value1, value2); end;
Comments
Post a Comment