Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

ج

Name: الأنونيموس 2010-11-21 9:12

MARHABA /بروغ/, ج PROGRAMMING LANGUAGE IS THE PREFERRED CHOICE AMONG CYBER-TERRORISTS:

  !! برنامج بلغة ج لحل مسألة أبراج هانوي
          !! عدد الخطوات = 2^ن -1 حيث ن  عدد الأقراص
          المتحول عدد_الأقراص  : صحيح
          المتحول الخطوة : صحيح
          الخوارزمية أنقل (العدد ، المصدر ، الهدف ، الوسيط : صحيح)
          {
            إذا العدد > 0
            {
              أنقل (العدد -1 ، المصدر ، الوسيط ، الهدف)
              الخطوة = الخطوة + 1
              أكتب الخطوة ، " : " ،  "انقل قرصاً واحداً من " ، المصدر ، " إلى " ، الهدف ، سطر
              أنقل (العدد -1 ، الوسيط ، الهدف ، المصدر)
            }
          }
          الخطوة  = 0
          أكتب "أدخل عدد الأقراص : "
          أقرأ عدد_الأقراص
          أنقل (عدد_الأقراص ، 1، 3، 2)

Name: الأنونيموس 2010-11-21 10:31

IT HAS MORE THAN ENOUGH OF "يللا حبيبي"

         *(
         -------------------------------------------------------------------------------------------
         برنامج بلغة ج لرسم منحني حلزون أرخميدس
         جميع الحقوق محفوظة للمؤلف: د. محمد عمار السلكة، 1420 هجري - 2000 م
         -------------------------------------------------------------------------------------------
         )*
         !! المعادلة العامة لمنحني الحلزون في الإحداثيات
         !! القطبية  ر = ثا × يه
         !!=======================================
         أدرج "ألوان"
         الثابت بي = 3.1415
         المتحول ر ، يه ، س ، ع ، ثا : حقيقي
         المتحول ن : صحيح
         المتحول س0 ، ع0 : صحيح
         !! ألون لوحة الرسم باللون السماوي
         !!---------------------------------------
         ألون باللون السماوي ، الورقة
         !! مبدأ الإحداثيات القطبية يقع في منتصف ورقة الرسم
         !!-----------------------------------------------------------
         أجعل س0 = حدس \ 2
         أجعل ع0 = حدع  \ 2
         !! أرسم محوري الإحداثيات المتعامدة
         !!---------------------------------------
         أرسم مستقيم من (س0، 0) إلى (س0، حدع)
         أرسم مستقيم من (0، ع0) إلى (حدس، ع0)
         !! أرسم المنحني باللون الأحمر
         !!----------------------------------
         أرسم باللون الأحمر
         !! أقرأ قيمة الثابت ثا وعدد اللفات ن
         أكتب "أدخل قيمة الثابت ثا:"
         أقرأ ثا
         أكتب "أدخل عدد لفات الحلزون:"
         أقرأ ن
         !! أرسم المنحني نقطة فنقطة بخطوة للزاوية يه قدرها0.01 راديان
         !!--------------------------------------
         أجعل يه = 0
         أكرر طالما يه < 2×بي×ن
         {
           أجعل ر = ثا × يه
           أجعل  س = ر × تجب (يه) + س0
           أجعل  ع = ر  × جب  (يه ) + ع0
           أرسم النقطة (س ، ع)
           أجعل يه = يه + 0.01
         }

Newer Posts
Don't change these.
Name: Email:
Entire Thread Thread List