السلام عليكم ورحمة الله وبركاته
ياريت حد يساعدنى فى رسم شكل (معين بلغة الفجول بيسك)
*
**
***
****
*****
for I = 1 To 5
for J = 1 TO I
print "*";
next J
next I
end sub
هدا برنامج لرسم الشكل الى فوق
انا اريد برنامج متله لرسم هدا الشكل
ياريت مساعده
برنامج بلغة الفجول بيسك لرسم شكل معين
السلام عليكم...
- Dim X As Long
- Dim I As Long
- Dim J As Long
- 'Cls
- X = 3 ' عدد النجمات في الصف الأوسط، أي أعرض صف
- For I = 1 To X
- Print Spc(X - I);
- For J = 1 To I
- Print "*"; Spc(1);
- Next J
- Print
- Next I
- For I = X - 1 To 1 Step -1
- Print Spc(X - I);
- For J = 1 To I
- Print "*"; Spc(1);
- Next J
- Print
- Next I
يمكن أن نعطي أي قيمة مبدئية للمتغير X ليعطينا حجماً أكبر و لكن بنفس الشكل.
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
السلام عليكم ورحمة الله وبركاته
شكرا لك خبيرنا وابن بلدي
ونعم ما قصرت أبد
كل التقدير والإحترام
الخارقة