ما المشكلة في هذا الكود
#1
السلام عليكم ورحمة الله وبركاته 

احاول تطبيق امثلة بسيطة لتعلم Nested_loop ووجد امثلة لرسم احرف وما شابه في الكونسول ووجدت كود بسيط يعمل في Cplus plus لم استيطيع ضبطه بالدلفي والمحاولة خاصة بالحلقة التكرارية For

الكود الاصلي 
[صورة مرفقة: p_11782jitt1.png]


كود :
 var i, j :integer;
begin
 for i:= 1 to 10 do
   for j:= 1 to 10 do
    begin
      if ((i=1)or (i=10)) then
       write('*')
      else if ((j=1)or(j=10)) then
       writeln('*')
      else
        write(' ')
      end;
   readln;
end.
       


الكود يشتغل بشكل غير صحيح ,, ايضا حين تجربة نصف الكود ليرسم الصف رقم 1 والصف رقم 10 لم يشتغل الكود 

[صورة مرفقة: p_117856orj1.png]

اين المشكلة

هذا ما استخدمته لرسم الصف الاول والصف العاشر ولم يصلح 

كود :
var i, j :integer;
begin
 for i:= 1 to 10 do
   for j:= 1 to 10 do
     if ((i=1)or (i=10)) then
     write('*') ;
  readln;
end.
end.
         

انا احاول التمكن من الحلقات حتى اتمكن من المصفوفات لاستخدمها مع الملفات 

شكرا
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين
الرد
#2

وعليكم السلام ورحمة الله وبركاته
المشكلة في الرجوع للسطر

كود :
var i, j :byte;
begin
Writeln;
    for i:= 1 to 10 do
    BEGIN
      for j:= 1 to 10 do
      begin
        if (i=1)or(i=10) then
        write('*')
        else if (j=1)or(j=10) then
             write('*')
             else
             write(' ');
      end;
    Writeln;
    END;
    readln;
end.
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
[-] كل من 1 user says قال شكرا ل B.M.AbdelAziZ على المشاركة المفيدة
  • ELARAPY
الرد
#3
السلام عليكم ورحمة الله وبركاته

شكرا استاذ عبد العزيز , انا بدأت اقرأ كتب اكثر من الفيديوهات في باسكال كما اشرت الي ,

وايضا اخذت بنصيحة بعض الاخوة في التعلم بدون الاستعجال في صنع برامج ذات واجهات رسومية , والغرض بناء اساس قوي .

لذلك ان شاء الله ستجد اغلب ما سوف استفسر عنه يخص الاساسيات فارجوا ان لا تملوا مني .

لي استفسار اخر بسيط

انا لم اجد كتب في باسكال تخص امثله مثل رسم الحروف وغيرها مما يشبه موضوعنا هذا وقد بحثت كثيرا في الخورزميات حتى انشط زهني في التفكير بما املك من ادوات باسكال , فاين اجد مثل تلك الدروس .

ثانيا انا انظر الى امثله في لغات اخرى واحاول ان اطبقها ببسكال فما رايك في ذلك

شكرا استاذنا
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين
الرد
#4

لا عليك إسأل ماشئت اجيبك اويجيب غيري...
الكتب كثيرة وصراحة لا اتذكر اين شاهدت شيئ مماثل
الاستعانة بلغات اخرى جيد فقط انتبه عند التحويل
هناك دائما امور صغيرة هنا او هناك تتعب بعض الشيئ لكن تزيد الأمر متعة.
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
[-] كل من 2 users say قال شكرا ل B.M.AbdelAziZ على المشاركة المفيدة
  • ELARAPY, Ramzi2
الرد
#5
بارك الله فيك استاذ عبد العزيز واطال الله في عمرك .

ميزة باسكال ودلفي ان لهم منتدى دلفي للعرب والذي لم اجد مثله في سرعة الرد والمساعدة لوجه الله فيما يخص اللغات الاخرى ,

اغلب المنتديات الاخرى اشاهد طلبات واستفسارات لاعضاء و اكثر من سنة ولم يجيب احدا عليهم , خيركم من تعلم العلم وعلمه ,واسال الله ان يتقبل منكم صالح الاعمال ويجعل عملكم هذا خالصا لوجهه الكريم
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف