delphi4arab منتديات دلفي للعرب

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

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

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

شكرا

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

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

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

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

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

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

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

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

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

شكرا استاذنا

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

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

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

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

ELARAPY

محمد عبد العزيز

ELARAPY

محمد عبد العزيز

ELARAPY