ما المشكلة في هذا الكود - نسخة قابلة للطباعة

ما المشكلة في هذا الكود - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ما المشكلة في هذا الكود (/showthread.php?tid=10125)

ما المشكلة في هذا الكود - ELARAPY - 24-03-2019

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

احاول تطبيق امثلة بسيطة لتعلم 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.
          

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

شكرا

RE: ما المشكلة في هذا الكود - محمد عبد العزيز - 24-03-2019

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

كود :
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.

RE: ما المشكلة في هذا الكود - ELARAPY - 24-03-2019

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

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

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

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

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

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

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

شكرا استاذنا

RE: ما المشكلة في هذا الكود - محمد عبد العزيز - 24-03-2019

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

RE: ما المشكلة في هذا الكود - ELARAPY - 24-03-2019

بارك الله فيك استاذ عبد العزيز واطال الله في عمرك .

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

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