الإعلام الآلي — البرمجة بلغة باسكال: الحلقات التكرارية For و While — الثانية ثانوي — المنهاج الجزائري

الإعلام الآلي — البرمجة بلغة باسكال: الحلقات التكرارية For و While — الثانية ثانوي — المنهاج الجزائري

الحلقات التكرارية تسمح بتنفيذ مجموعة من الأوامر عدة مرات. في باسكال، أهم الحلقات هي for و while و repeat-until.

حلقة for

for variable := start to end do
    statement;

for variable := start downto end do
    statement;

حلقة while

while condition do
    statement;

مثال: جدول الضرب

program MultiplicationTable;
var
    i, num: integer;
begin
    write('أدخل العدد: ');
    readln(num);
    for i := 1 to 10 do
        writeln(num, ' x ', i, ' = ', num * i);
    readln;
end.

تمارين

1. برنامج يطبع الأعداد الزوجية من 2 إلى 100.
2. برنامج يحسب مجموع الأعداد من 1 إلى n.
3. برنامج يقرأ أرقاماً من المستخدم حتى يدخل 0، ثم يطبع مجموعها.

روابط مفيدة

اقرأ أيضاً: البرمجة بلغة باسكال: الحلقات التكرارية For و While و البرمجة بلغة باسكال: الجمل الشرطية if-then-else.

---

📍 دروس مشابهة

• الإعلام الآلي — بايثون: التعامل مع الملفات (قراءة وكتابة) — الأولى ثانوي (شعب
• الإعلام الآلي — HTML: إنشاء صفحات الويب — الرابعة متوسط — المنهاج الجزائري
• إعلام آلي — العروض التقديمية: إضافة الصور والرسوم المتحركة — السنة الأولى متوس