تابع‌های عام و میانجی‌ها

ساختار جعبه<ت>:
    همگانی درون: ت
پایان

تابع بیشینه<ت>(الف: ت، ب: ت): ت:
    اگر الف > ب:
        برگشت الف
    پایان
    برگشت ب
پایان

تابع ریشه:
    سرچاپ بیشینه(۳، ۹)، بیشینه("الف"، "ب")، بیشینه(۲.۵، ۱.۵)
    ج := جعبه { درون = "هدیه" } برگردان جعبه<رشته>
    سرچاپ ج.درون
پایان

ساختار پشته<ت>:
    اقلام: وکتور<ت> = وکتور {}

    همگانی تابع بگذار(مقدار: ت):
        این.اقلام.بیفزا(مقدار)
    پایان

    همگانی تابع بردار(): ت:
        برگشت این.اقلام.دربیاور()
    پایان

    همگانی تابع رویی(): ت:
        برگشت این.اقلام.بگیر(این.اقلام.طول() - ۱)
    پایان

    همگانی تابع تعداد(): صحیح:
        برگشت این.اقلام.طول()
    پایان

    همگانی تابع خالی است(): منطقی:
        برگشت این.اقلام.طول() == ۰
    پایان

    همگانی تابع آزادکن():
        این.اقلام.آزادکن()
    پایان
پایان

تابع ریشه:
    واگرد := پشته {} برگردان پشته<رشته>
    دیرکن واگرد.آزادکن()
    واگرد.بگذار("نوشتن «سلام»")
    واگرد.بگذار("پررنگ کردن")
    واگرد.بگذار("پاک کردن یک خط")
    سرچاپ واگرد.تعداد()، "گام، آخرین:"، واگرد.رویی()
    تا وارونه واگرد.خالی است():
        سرچاپ "واگرد"، واگرد.بردار()
    پایان

    صفحه‌ها := پشته {} برگردان پشته<صحیح>
    دیرکن صفحه‌ها.آزادکن()
    صفحه‌ها.بگذار(۱)
    صفحه‌ها.بگذار(۱۴)
    سرچاپ "بازگشت به صفحه‌ی"، صفحه‌ها.بردار()
پایان

ساختار جفت<الف، ب>:
    همگانی اولی: الف
    همگانی دومی: ب
پایان

تابع جابجا<الف، ب>(ج: جفت<الف، ب>): جفت<ب، الف>:
    برگشت جفت { اولی = ج.دومی، دومی = ج.اولی }
پایان

تابع ریشه:
    موجودی := جفت { اولی = "مداد"، دومی = ۱۲۰ } برگردان جفت<رشته، صحیح>
    سرچاپ موجودی
    سرچاپ جابجا(موجودی)
    نقطه := جفت { اولی = ۲.۵، دومی = -۱.۰ } برگردان جفت<اعشار۶۴، اعشار۶۴>
    سرچاپ نقطه.اولی + نقطه.دومی
پایان

میانجی شکل:
    تابع مساحت(): صحیح
    تابع نام(): رشته
پایان

ساختار مربع:
    ضلع: صحیح = ۰
    همگانی تابع مساحت(): صحیح: برگشت این.ضلع * این.ضلع پایان
    همگانی تابع نام(): رشته: برگشت "مربع" پایان
پایان

ساختار مستطیل:
    پهنا: صحیح = ۰
    بلندی: صحیح = ۰
    همگانی تابع مساحت(): صحیح: برگشت این.پهنا * این.بلندی پایان
    همگانی تابع نام(): رشته: برگشت "مستطیل" پایان
پایان

تابع توصیف(ش: پویا شکل):
    سرچاپ ش.نام()، ش.مساحت()
پایان

تابع ریشه:
    توصیف(مربع { ضلع = ۵ })
    توصیف(مستطیل { پهنا = ۴، بلندی = ۶ })
پایان

میانجی شکل:
    تابع مساحت(): اعشار۶۴
    تابع شرح(): رشته:
        برگشت "مساحت " + این.مساحت()
    پایان
پایان

ساختار دایره:
    همگانی شعاع: اعشار۶۴ = ۱.۰
    همگانی تابع مساحت(): اعشار۶۴:
        برگشت ۳.۱۴ * این.شعاع * این.شعاع
    پایان
پایان

ساختار مربع:
    همگانی ضلع: اعشار۶۴ = ۱.۰
    همگانی تابع مساحت(): اعشار۶۴:
        برگشت این.ضلع * این.ضلع
    پایان
    همگانی تابع شرح(): رشته:
        برگشت "مربعی با ضلع " + این.ضلع
    پایان
پایان

تابع ریشه:
    سرچاپ دایره { شعاع = ۲.۰ }.شرح()
    سرچاپ مربع { ضلع = ۳.۰ }.شرح()
پایان

میانجی رتبه‌دار:
    تابع رتبه(): صحیح
پایان

کاربست رتبه‌دار بر صحیح:
    تابع رتبه(): صحیح: برگشت این پایان
پایان

کاربست رتبه‌دار بر رشته:
    تابع رتبه(): صحیح: برگشت طول(این) پایان
پایان

تابع بالاتر<ت: رتبه‌دار>(الف: ت، ب: ت): صحیح:
    اگر الف.رتبه() > ب.رتبه():
        برگشت الف.رتبه()
    پایان
    برگشت ب.رتبه()
پایان

تابع ریشه:
    سرچاپ بالاتر(۳، ۹)
    سرچاپ بالاتر("hi"، "salam")
پایان

میانجی امتیازدار:
    تابع امتیاز(): صحیح
    تابع برچسب(): رشته
پایان

ساختار بازیکن:
    همگانی نام: رشته = ""
    همگانی امتیازها: صحیح = ۰
    همگانی تابع امتیاز(): صحیح: برگشت این.امتیازها پایان
    همگانی تابع برچسب(): رشته: برگشت این.نام پایان
پایان

ساختار پیشنهاد:
    همگانی خریدار: رشته = ""
    همگانی مبلغ: صحیح = ۰
    همگانی تابع امتیاز(): صحیح: برگشت این.مبلغ پایان
    همگانی تابع برچسب(): رشته: برگشت این.خریدار + " با " + این.مبلغ پایان
پایان

ساختار جدول<ت: امتیازدار>:
    ردیف‌ها: وکتور<ت> = وکتور {}

    همگانی تابع بیفزای(مورد: ت):
        این.ردیف‌ها.بیفزا(مورد)
    پایان

    همگانی تابع بهترین(): ت:
        ناپایا برتر := این.ردیف‌ها.بگیر(۰)
        هر ر در این.ردیف‌ها:
            اگر ر.امتیاز() > برتر.امتیاز():
                برتر = ر
            پایان
        پایان
        برگشت برتر
    پایان

    همگانی تابع جمع کل(): صحیح:
        ناپایا جمع := ۰
        هر ر در این.ردیف‌ها:
            جمع += ر.امتیاز()
        پایان
        برگشت جمع
    پایان

    همگانی تابع آزادکن():
        این.ردیف‌ها.آزادکن()
    پایان
پایان

تابع بالاتر<ت: امتیازدار>(الف: ت، ب: ت): ت:
    اگر ب.امتیاز() > الف.امتیاز():
        برگشت ب
    پایان
    برگشت الف
پایان

تابع ریشه:
    تیم := جدول {} برگردان جدول<بازیکن>
    دیرکن تیم.آزادکن()
    تیم.بیفزای(بازیکن { نام = "سارا"، امتیازها = ۴۲ })
    تیم.بیفزای(بازیکن { نام = "رضا"، امتیازها = ۵۷ })
    تیم.بیفزای(بازیکن { نام = "مینا"، امتیازها = ۴۹ })
    سرچاپ "بهترین بازیکن:"، تیم.بهترین().برچسب()
    سرچاپ "جمع امتیاز تیم:"، تیم.جمع کل()

    اول := پیشنهاد { خریدار = "علی"، مبلغ = ۱۲۰ }
    دوم := پیشنهاد { خریدار = "نیما"، مبلغ = ۱۵۰ }
    سرچاپ "پیشنهاد برنده:"، بالاتر(اول، دوم).برچسب()
پایان

میانجی پیام‌رسان:
    تابع بفرست(گیرنده: رشته، متن: رشته): منطقی
    تابع راه(): رشته
پایان

ساختار ایمیل:
    همگانی سرور: رشته = "mail.example.com"
    همگانی تابع بفرست(گیرنده: رشته، متن: رشته): منطقی:
        سرچاپ "  ایمیل به"، گیرنده، "از"، این.سرور، "|"، متن
        برگشت درست
    پایان
    همگانی تابع راه(): رشته: برگشت "ایمیل" پایان
پایان

ساختار پیامک:
    همگانی اعتبار: صحیح = ۰
    همگانی تابع بفرست(گیرنده: رشته، متن: رشته): منطقی:
        اگر این.اعتبار == ۰:
            برگشت نادرست
        پایان
        سرچاپ "  پیامک به"، گیرنده، "|"، متن
        برگشت درست
    پایان
    همگانی تابع راه(): رشته: برگشت "پیامک" پایان
پایان

ساختار هشدار:
    همگانی با: پویا پیام‌رسان = ایمیل {}
    همگانی تابع بزن(گیرنده: رشته):
        شد := این.با.بفرست(گیرنده، "دیسک تقریباً پر است")
        سرچاپ "هشدار با"، این.با.راه()، شد ? "فرستاده شد" : "نرسید"
    پایان
پایان

تابع ریشه:
    راه‌ها := وکتور {} برگردان وکتور<پویا پیام‌رسان>
    راه‌ها.بیفزا(ایمیل {})
    راه‌ها.بیفزا(پیامک { اعتبار = ۰ })
    راه‌ها.بیفزا(پیامک { اعتبار = ۵ })
    ناپایا رسیده := ۰
    هر ر در راه‌ها:
        اگر ر.بفرست("سارا"، "سفارش شما ارسال شد"):
            رسیده++
        پایان
    پایان
    سرچاپ رسیده، "از"، راه‌ها.طول()، "پیام رسید"
    هر ر در راه‌ها:
        ر.آزادکن()
    پایان
    راه‌ها.آزادکن()

    زنگ := هشدار { با = پیامک { اعتبار = ۱ } }
    زنگ.بزن("پشتیبانی")
    زنگ.با.آزادکن()
پایان