PL/SQL program for finding a number is Prime or Not
-------------Prog 6-------------
declare i number(2); j number(2); begin
i := 2; loop
j := 2; loop exit when((mod(i, j) = 0) or (i = j)); j := j + 1; end loop; if (j = i) then dbms_output.put_line(i || ' is prime'); END IF; i := i + 1; exit WHEN i = 50; END LOOP; 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