السلام عليكم ورحمه االه وبركاته

=========================

الكود هذا ان يشرحه لنا احد ؛ الجزء الملون بالاحمر 

 

 

 

 

BEGIN

 

  st_number := &starting_number;

  en_number := &end_number;

  FOR i IN st_number .. en_number  LOOP

    flag := 1;

    FOR j IN 2 .. (i-1) LOOP

      IF (i mod j)=0 THEN

        flag:= 0;

        EXIT ;

      END IF ;

    END LOOP;

    IF flag = 1 THEN

      dbms_output.put_line(i);

    END IF ;

  END LOOP;

end;

 

وعليكم السلام عليكم ورحمه االه وبركاته

 

شرح الكود هذا مافهمتة من طلبك  اخ mo7amed ههو كالتالى :     flag := 1; متغير يبداء بمخصص له قيمة = 1   ،     FOR j IN 2 .. (i-1) LOOP انشاء اللوب بعداد j

الى الرقم 2 على ان يتناقص بقيمة 1 ،        IF (i mod j)=0 THEN اذا i  باقى قسمته على j =0     

 

 

                IF (i mod j)=0 THEN   اجعل هذا المتغير   ،      flag:= 0;   ثم اخرج ،   IF flag = 1 THEN  اذا المتغير = 1 عندئذ اطبع الرسالة i