أهلا شباب
كيفكم
انشاء الله بخير
حل التطبيق السابق
program forloop;
uses wincrt;
var a, i: integer;
begin
for i:=10 to 14 do
a:=a+i;
write(a);
end.
درس اليوم هوعن العقدة while
و هو شرح فيديو
صوت و صورة
مدة الشرح
45 دقيقة
حجم الملف 22.5 ميقا
و لضعف النت عندي
اضطررت الى تقسيمه الى 5 أجزاء لرفعه
الملفات من هنا في هذا المجلد
حملها كلها و ضعها في نفس الجلد
ثم فك الضغط
هنا سينتج الفيديو كاملا
فرجة ممتعة
-------------
التطبيق
نفس تطبيق الدرس السابق
أكتب برنامج يجمع الأعداد باستعمال العقدة while
من 10 حتى 14 (10+11+12+13+14)
الناتج سيكون 60
طريقة العمل
a يستقبل 0
العداد i ينطلق من 10 حتى 14