اقتباس المشاركة الأصلية كتبت بواسطة WaHdAiN مشاهدة المشاركة
أهلا بعودتك إسلامو , شكرا لردك ^_^
================================================== ============

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


لم أفهم هذه النقطة جيدا , كيف تريدي ان يخرج الناتج إذا؟ ^^"

على كل هذا هو كود العملية التي طلبتيها وإن شاء الله يكون واضح

كود:
Dim inside, outside ' تعريف متغيرات البرنامج

For outside = 1 To user_entry

  For inside = 1 To outside
   Print outside; ' الكتابة على نفس الخط
  Next inside
  
Print 'خط جديد

Next outside
غيري user_entry إلى متغير إدخال المستخدم

أي نقطة ليست واضحة في الكود سأقوم بشرحها بإذن الله
على ما أعتقد فى QBasic يمكت تعديل بسيط على الكود ليصبح هكذا:

كود:
Input "Enter a number: ",N
For outside = 1 To N
    For inside = 1 To outside
        Print outside;
    Next inside
    Print
Next outside
يمكن عمل تلك الحركة فى روبى بنفس فكرة التكرار و لكن أيضاً يمكن ذلك بسطرين (يعتبروا سطرا واحد)!
كود:
print "Enter a number: "
(1..gets.to_i).map{|i| puts "#{i} "*i}
هكذا هى اللغات الحديثة