24-03-2019, 02:21 PM
السلام عليكم ورحمة الله وبركاته
احاول تطبيق امثلة بسيطة لتعلم Nested_loop ووجد امثلة لرسم احرف وما شابه في الكونسول ووجدت كود بسيط يعمل في Cplus plus لم استيطيع ضبطه بالدلفي والمحاولة خاصة بالحلقة التكرارية For
الكود الاصلي
الكود يشتغل بشكل غير صحيح ,, ايضا حين تجربة نصف الكود ليرسم الصف رقم 1 والصف رقم 10 لم يشتغل الكود
اين المشكلة
هذا ما استخدمته لرسم الصف الاول والصف العاشر ولم يصلح
انا احاول التمكن من الحلقات حتى اتمكن من المصفوفات لاستخدمها مع الملفات
شكرا
احاول تطبيق امثلة بسيطة لتعلم Nested_loop ووجد امثلة لرسم احرف وما شابه في الكونسول ووجدت كود بسيط يعمل في Cplus plus لم استيطيع ضبطه بالدلفي والمحاولة خاصة بالحلقة التكرارية For
الكود الاصلي
كود :
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 لم يشتغل الكود
اين المشكلة
هذا ما استخدمته لرسم الصف الاول والصف العاشر ولم يصلح
كود :
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.
انا احاول التمكن من الحلقات حتى اتمكن من المصفوفات لاستخدمها مع الملفات
شكرا
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين