الســلام عليكم .. اريد مسساعده في الاوراكل .. انا لسا مبتدئه ..
عندي سوالين : واتمنا ماتبخلو  عليا .. واكون شاكره لكم 
برنامج يطلب من المستخدم ادخال رقم وطباعة مربغ فارغ مع القطرين بطول المستخدم 

مثلا:

السوال الثاني:برنامج يطلب من المستخدم ادخال رقم مكون من اربع خانات المطلوب طباعة ناتج جمع هذه الخانات الاربعة

example:
if the is number:2356.
the outout will be=2+3+5+6=16

 

تم تعديل 27 أبريل 201312 سنة بواسطة tootdream

حل السؤال التاني:

declare
   in_string varchar2(20) := '&NUM';
   in_length number;
   cnt number := 0;
   in_char varchar2(20);
   out_string varchar2(50);
   result_math number :=0;
 
 
 begin
   in_length := length(in_string);
   while (cnt < in_length)
   loop
      in_char:='';
     cnt := cnt + 1;
     in_char := substr(in_string, cnt, 1);
     out_string:=out_string || in_char || '+';
     result_math:=result_math + in_char;
   end loop;
  out_string:=substr(out_string, 0, length(out_string)-1);
 DBMS_OUTPUT.PUT_LINE('the outout will be= '||  out_string ||'=' || result_math);
 
 end;

تم تعديل 28 أبريل 201312 سنة بواسطة Ahmad.Hasan

حل السؤال الأول

SELECT   LPAD (:y, :x, :y) aa FROM DUAL
UNION ALL
SELECT      :y
         || LPAD (:y, c1 - 1, ' ')
         || LPAD (:y, c2 - c1 , ' ')
         || LPAD (:y, :x - NVL (c2, c1), ' ')
  FROM   (SELECT   DECODE (SIGN (x2 - x1), 1, x1, 0, x1, x2) c1,
                   DECODE (SIGN (x2 - x1), 1, x2, 0, NULL, x1) c2
            FROM   (    SELECT   1 + LEVEL x1, :x - LEVEL x2
                          FROM   DUAL
                    CONNECT BY   LEVEL < :x - 1))
UNION ALL
SELECT   LPAD (:y, :x, :y) FROM DUAL

حل السؤال الثاني

SELECT   SUM (x)
  FROM   (    SELECT   SUBSTR (:x, LEVEL, 1) x
                FROM   DUAL
          CONNECT BY   LEVEL <= (LENGTH (:x)));

معليشش عندي اخر سؤال ..   اعذروني على كثر الاسئلة 

السؤال: برنامج يحسب عدد مرات ظهور الارقام على حجر النرد من (1-6) وبعد رمي حجر النرد عدد من المرات اجعلي المستخدم هوا من يقوم باادخال عدد مرات رمي حجر النرد 

example

ادخلي عدد مرات رمي حجر النرد =10 

اذا رمينا حجر النرد 10 مرات وحصلنا على "2,6,2,4,6,1,3,3,6,5"

so the output should be:

face                 frequncy

       1                          1

       2                          2  

       2                          3        

       1                          4 

       1                          5

       3                          6

عملت تطبيقات بس كلها غلط .. 

 

 

SQL>  set serveroutput on;

SQL>   declare

  2    i number:=0;

  3    begin

  4    for i in  1..6 loop

  5    dbms_output.put_line(i);

  6    end loop;

  7    end;

  8    /

1

2

3

4

5

6

 

PL/SQL procedure successfully completed.

 

....

 

جزاكم الله كل خير .. الله يسسسعدكم ويوفقكم يارب.. 

شكرا اخوي عمار.. 

وشكرا اخوي احمد..جربت الكود ماضبط معايا  ..

 

تم تعديل 28 أبريل 201312 سنة بواسطة tootdream

set serveroutput on;



declare 

CNT number := '&NUM';

x number;

out_string varchar2(50);

count1 number :=0;

count2 number :=0;

count3 number :=0;

count4 number :=0;

count5 number :=0;

count6 number :=0;



begin

for i in  1..CNT loop



x:= round(dbms_random.value(1,6),0) ;

   

   IF x=1 THEN

      count1:=count1+1;

      out_string:=out_string || x || ',';



   ELSIF x=2 THEN

      count2:=count2+1;

      out_string:=out_string || x || ',';

      

   ELSIF x=3 THEN

      count3:=count3+1;

      out_string:=out_string || x || ',';

      

  ELSIF x=4 THEN

      count4:=count4+1;

      out_string:=out_string || x || ',';

      

  ELSIF x=5 THEN

      count5:=count5+1;

      out_string:=out_string || x || ',';



   ELSE

       count6:=count6+1;

      out_string:=out_string || x || ',';



END IF;



end loop;



 DBMS_OUTPUT.PUT_LINE(' the result of face '|| substr(out_string, 0, length(out_string)-1));

 DBMS_OUTPUT.PUT_LINE('face     ' || 'frequncy');

 DBMS_OUTPUT.PUT_LINE('1        '||count1);

 DBMS_OUTPUT.PUT_LINE('2        '||count2);

 DBMS_OUTPUT.PUT_LINE('3        '||count3);

 DBMS_OUTPUT.PUT_LINE('4        '||count4);

 DBMS_OUTPUT.PUT_LINE('5        '||count5);

 DBMS_OUTPUT.PUT_LINE('6        '||count6);

 

end;

معليشش عندي اخر سؤال ..   اعذروني على كثر الاسئلة 

السؤال: برنامج يحسب عدد مرات ظهور الارقام على حجر النرد من (1-6) وبعد رمي حجر النرد عدد من المرات اجعلي المستخدم هوا من يقوم باادخال عدد مرات رمي حجر النرد 

example

ادخلي عدد مرات رمي حجر النرد =10 

اذا رمينا حجر النرد 10 مرات وحصلنا على "2,6,2,4,6,1,3,3,6,5"

so the output should be:

face                 frequncy

       1                          1

       2                          2  

       2                          3        

       1                          4 

       1                          5

       3                          6

عملت تطبيقات بس كلها غلط .. 

 

 

SQL>  set serveroutput on;

SQL>   declare

  2    i number:=0;

  3    begin

  4    for i in  1..6 loop

  5    dbms_output.put_line(i);

  6    end loop;

  7    end;

  8    /

1

2

3

4

5

6

 

PL/SQL procedure successfully completed.

 

....

 

جزاكم الله كل خير .. الله يسسسعدكم ويوفقكم يارب.. 

شكرا اخوي عمار.. 

وشكرا اخوي احمد..جربت الكود ماضبط معايا  ..

 

    SELECT   LEVEL face, LENGTH (:x) - LENGTH (REPLACE (:x, LEVEL, '')) freq
      FROM   DUAL
CONNECT BY   LEVEL <= 6

وبالنسبة للسؤال السابق ... ليه ما ضبط معك ... جرب وضعه داخل procedure مع اعطاء initial value for x بقيمة حجم المصفوفة وقيمة Y بالرمز المطلوب رسمه "@"

 

وبالتوفيق

معليش بس سؤال شكل المربع ما فهمته اللي يعرف يكتب الكود كامل مع الشرح وهل اتطبق معاه ولا لا ..؟.
يعطيكم العافيه..

تم تعديل 2 مايو 201312 سنة بواسطة soso.a

بلييييز ساعدوني الحل اللي فوق صح اناا البرنامج مو راضي يتحمل عندي ف ارجوا من الله ثم منكم المساعدة وجزاكم الله كل خير

بليييز سسسسساعدوني  اللي يعرف لا يبخل في المساعدةة

معليش بس سؤال شكل المربع ما فهمته اللي يعرف يكتب الكود كامل مع الشرح وهل اتطبق معاه ولا لا ..؟.

يعطيكم العافيه..

 

إجابة سؤال المربع معقدة قليلاً ولن يمكن شرحها بسهولة ... اعتقد انك لو قمت بتجزئتها من الsub queries الداخلية سوف تكون النتائج أوضح