Άσκηση : συγγραφή συνάρτησης

Γράψτε συνάρτηση που δέχεται ως παράμετρο:
* δύο θετικές πραγματικές τιμές Χ, Υ
* μια αλφαριθμητική τιμή Ζ
και υπολογίζει το αποτέλεσμα:
α) της τετραγωνικής ρίζας του μέσου όρου των Χ, Υ,
    αν Ζ = 'Τ',
β) του ακέραιου μέρους του γινομένου των Χ, Υ,
    αν Ζ = 'Α',
γ) το λογάριθμο της διαφοράς του Υ από το Χ, σε
    οποιαδήποτε άλλη περίπτωση.

Λύση

        ΣΥΝΑΡΤΗΣΗ ΥΠΟΛ(Χ, Υ, Ζ) : ΠΡΑΓΜΑΤΙΚΗ
        ΜΕΤΑΒΛΗΤΕΣ
              ΠΡΑΓΜΑΤΙΚΕΣ: Χ, Υ
              ΧΑΡΑΚΤΗΡΕΣ: Ζ
        ΑΡΧΗ
              ΑΝ Ζ = 'Τ' ΤΟΤΕ
                    ΥΠΟΛ <-- Τ_Ρ( (Χ+Υ)/2 )
              ΑΛΛΙΩΣ_ΑΝ Ζ = 'Α' ΤΟΤΕ
                    ΥΠΟΛ <-- Α_Μ(Χ*Υ)
              ΑΛΛΙΩΣ
                    ΥΠΟΛ <-- ΛΟΓ(Χ-Υ)
              ΤΕΛΟΣ_ΑΝ
        ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ