Practical Assignment 1
Practical Assignment 1
num number;
mt number;
begin
dbms_output.put_line('enter number');
num:=#
for i in 1..10 loop
mt:=i*num;
dbms_output.put_line(mt);
end loop;
end;
/
declare
rno st.rno%type;
name st.sname%type;
class st.class%type;
per st.per%type;
perclass st.perclass%type;
begin
rno:='&rno';
name:='&sname';
class:='&class';
per:='&per';
IF(per>=75 and per<=100)THEN
perclass:='distinction';
ELSE IF(per>=60 and per<75)THEN
perclass:='firstclass';
ELSE IF(per>=55 and per<60)THEN
perclass:='higher second class';
ELSE IF(per>=50 and per<55)THEN
perclass:='second class';
else
perclass:='fail';
end IF;
end IF;
end IF;
end IF;
insert into st values(rno,name,class,per,perclass);
dbms_output.put_line('one record inserted successfully.....!');
End;
/
DECLARE
num1 number;
num2 number;
BEGIN
DBMS_OUTPUT.PUT_LINE('enter the first number');
num1:=&num1;
DBMS_OUTPUT.PUT_LINE('enter the second number');
num2:=&num2;
IF num1>0 AND num2>0 THEN
DBMS_OUTPUT.PUT_LINE('odd numbers between'||num1||'and'||num2||':');
FOR i IN num1..num2 LOOP
IF MOD(i,2)=1 THEN
DBMS_OUTPUT.PUT_LINE(i);
END IF;
END LOOP;
ELSE
DBMS_OUTPUT.PUT_LINE('Both the numbers should be positive');
END IF;
END;
/