اقتباس المشاركة الأصلية كتبت بواسطة 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بالطبع" لكن بصيغة مختلفة؟

فرج الله عليكم كما فرجتم علينـا.

وجزاك بخير ما تتمنى.

اقتباس المشاركة الأصلية كتبت بواسطة shekoforever مشاهدة المشاركة
على ما أعتقد فى 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}
هكذا هى اللغات الحديثة
جزاك الله كل خير أخي الكريم..

لكن حقيقة واجهتني مشكلة لدى تطبيق كود السطر ونصف.. أولاً لم أجد هذا الرمز |، وطبعاً لا يقبل برنامجي أمر اللصق والنسخ.. وثانياً يظهر البرنامج لدى الضغط على Run>>start الخطأ التالي:

"Expected : Statment"..

هل من حل ؟

وعفواً بقدر الإزع ـاج.\

كلآود