كيف استخرج اكبر رقم بدون استخدام دالة max

[المجازف]

الله لايمسيكم الا بالخير

اخواني الاوراكليون

انا قدر الله علي وغبت محاضر وحيده وكانت هالمحاضره مفتاح كل حاجه

طبعا الدكتور عطانا واجب يقول انشئ جدول فيه عمود واحد فقط اسمه id

ادخل 50 رقم وطلع لي اكبر رقم بدون استخدام دالة max

يجب استخدام while loop

طبعا الكود تكتبون كذا

declare

begin

end


وخالص شكري وتقديري وامتناني لكم مقدماً

اخوكم المجازف

[TROYMAN]

السلام عليكم...
هذه بعض الحلول,أعتقد أن الحل الثالث يفي بالغرض....بالتوفيق

declare
Pmax number:=0;
Pmin number:=0;
cursor cur is select ID from test; begin for rec in cur loop
if rec.ID>Pmax then Pmax:=rec.ID;end if;
if rec.ID <Pmin then Pmin:=rec.ID;end if;
end loop;
dbms_output.put_line(Pmax);
dbms_output.put_line(Pmin);
end;
/

declare
Pmax number:=0;
cursor cur is select ID from test order by ID desc;
begin open cur;
fetch cur into Pmax; close cur;
dbms_output.put_line(Pmax);
end;
/

declare
Pmax number:=0;
Pcurrent number:=0;
cursor cur is select ID from test; begin open cur;
fetch cur into Pcurrent; while cur%found loop
if Pcurrent>Pmax then Pmax:=Pcurrent;end if;
fetch cur into Pcurrent; end loop;
close cur;
dbms_output.put_line(Pmax);
end;
/

[المجازف]

 

 

بيض الله وجهك

 

فكيت عني ازمة

 

الله يفرج عنك كروب الدنيا

[TROYMAN]

السلام عليكم...
لقد لا حظت أن هناك خطأ في الحل الأول لأن عملية المقارنة لأول مرة يجب أن تتم مع أحد نتائج الكيرسر و ليس مع الصفر لذلك يصبح الحل:

declare
Pmax number:=0;
Pmin number:=0;
f boolean:=false;
cursor cur is select ID from test; begin for rec in cur loop
if not f then Pmax:=rec.ID;Pmin:=rec.ID;f:=true; end if;
if rec.ID>Pmax then Pmax:=rec.ID;end if;
if rec.ID<Pmin then Pmin:=rec.ID;end if;
end loop;
dbms_output.put_line(Pmax);
dbms_output.put_line(Pmin);
end;
/