همخوان و ترابرد

روال رده(نمره: صحیح): رشته:
    برگشت همخوان نمره / ۱۰:
        ۱۰، ۹ => "عالی"
        ۸ => "خیلی خوب"
        ۷ => "خوب"
        وگرنه => "نیاز به تلاش"
    پایان
پایان

روال ریشه:
    سرچاپ رده(۹۵)، رده(۸۰)، رده(۴۵)
پایان

جداشمار فصل:
    بهار، تابستان، پاییز، زمستان
پایان

روال هوا(ف: فصل): رشته:
    برگشت همخوان ف:
        بهار, پاییز => "معتدل"
        تابستان => "گرم"
        زمستان => "سرد"
    پایان
پایان

روال ریشه:
    سرچاپ "هوای بهار:", هوا(فصل.بهار)
    سرچاپ "هوای زمستان:", هوا(فصل.زمستان)
پایان

روال ریشه:
    تکرار ۵ در روز:
        ترابرد روز:
            ۰:
                سرچاپ روز, "شنبه، آغاز هفته"
                بشکن
            پایان
            ۱ تا ۳:
                سرچاپ روز, "میانه‌ی هفته"
                بشکن
            پایان
            وگرنه:
                سرچاپ روز, "نزدیک تعطیلی"
            پایان
        پایان
    پایان
پایان

روال ریشه:
    تکرار ۳ در ای:
        دما := ای * ۱۵
        ترابرد درست:
            دما < ۱۰:
                سرچاپ دما, "سرد"
                بشکن
            پایان
            دما < ۲۵:
                سرچاپ دما, "معتدل"
                بشکن
            پایان
            وگرنه:
                سرچاپ دما, "گرم"
            پایان
        پایان
    پایان
    نمره := ۷۵
    ترابرد نمره:
        >= ۹۰:
            سرچاپ "عالی"
            بشکن
        پایان
        >= ۶۰:
            سرچاپ "قبول"
            بشکن
        پایان
        وگرنه:
            سرچاپ "مردود"
        پایان
    پایان
پایان

ساختار نقطه:
    همگانی ایکس: صحیح = ۰
    همگانی ایگرگ: صحیح = ۰
پایان

روال جای(ن: نقطه): رشته:
    برگشت همخوان ن:
        نقطه { ایکس = ۰، ایگرگ = ۰ } => "مبدأ"
        نقطه { ایکس = ۰، ایگرگ } => "روی محور عمودی، ایگرگ = " + ایگرگ
        نقطه { ایکس، ایگرگ = ۰ } => "روی محور افقی، ایکس = " + ایکس
        وگرنه => "جای دیگر"
    پایان
پایان

روال ریشه:
    سرچاپ جای(نقطه {})
    سرچاپ جای(نقطه { ایگرگ = ۵ })
    سرچاپ جای(نقطه { ایکس = ۳ })
    سرچاپ جای(نقطه { ایکس = ۱، ایگرگ = ۲ })
پایان