---------Prog 7 ---------------------- declare i number(2); j number(2); begin for i in 1 .. 100 loop if(mod(i,2)=0) then dbms_output.put_line('number is Even :' || i); else dbms_output.put_line('number is Odd :' || i); end if; 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