ΠΡΟΓΡΑΜΜΑ Υπολογισμός_Παράστασης
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: μετρητής, κάτω_όριο, άνω_όριο, Α, αριθμητής, παρονομαστής, παράγοντας
  ΠΡΑΓΜΑΤΙΚΕΣ: άθροισμα

ΑΡΧΗ
  κάτω_όριο <-- 0
  άνω_όριο <-- 10
  ΚΑΛΕΣΕ Επιτρεπτή_Τιμή (Α, κάτω_όριο, άνω_όριο)!  έλεγχος δεδομένων με διαδικασία
  άθροισμα <-- 0
  ΓΙΑ μετρητής ΑΠΟ 1 ΜΕΧΡΙ Α
    παράγοντας <-- Α + μετρητής
    αριθμητής <-- Εις_το_Τετράγωνο (παράγοντας)
    παρονομαστής <-- Παραγοντικό (μετρητής)
    άθροισμα <-- άθροισμα + αριθμητής / παρονομαστής
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Η παράσταση είναι ', άθροισμα
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

!==================================================================
ΔΙΑΔΙΚΑΣΙΑ Επιτρεπτή_Τιμή (αριθμός, όριο_κάτω, όριο_άνω)
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ : αριθμός, όριο_κάτω, όριο_άνω, εκτίμηση
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δώστε έναν αριθμό στο διάστημα [', όριο_κάτω, ', ',  όριο_άνω, ']'
    ΔΙΑΒΑΣΕ εκτίμηση
  ΜΕΧΡΙΣ_ΟΤΟΥ (εκτίμηση >= όριο_κάτω) ΚΑΙ (εκτίμηση <= όριο_άνω)
  αριθμός <-- εκτίμηση
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!==================================================================
ΣΥΝΑΡΤΗΣΗ Παραγοντικό (αριθμός):    ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ : αριθμός, εκτίμηση, i
ΑΡΧΗ
  ΑΝ (αριθμός < 0) ΤΟΤΕ
    εκτίμηση <-- -1!   Η  τιμή -1 θα ερμηνευτεί ως λάθος δεδομένο εισόδου
  ΑΛΛΙΩΣ
    εκτίμηση <-- 1
    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ αριθμός
      εκτίμηση <-- εκτίμηση * i
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΑΝ
  Παραγοντικό <-- εκτίμηση
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
!==================================================================
ΣΥΝΑΡΤΗΣΗ Εις_το_Τετράγωνο (Χ): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:  Χ, εκτίμηση
ΑΡΧΗ
  εκτίμηση <-- Α_Μ (Χ^2)
  Εις_το_Τετράγωνο <-- εκτίμηση
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
!==================================================================