1. Το πρόγραμμα υπολογίζει το άθροισμα 1+2+...+ν

αρχή

ΠΡΟΓΡΑΜΜΑ ΕΝΑ_ΣΥΝ_ΔΥΟ_ΣΥΝ

ΜΕΤΑΒΛΗΤΕΣ

  ΠΡΑΓΜΑΤΙΚΕΣ: ν

  ΑΚΕΡΑΙΕΣ: ΜΕΤΡΗΤΗΣ, ΑΘΡΟΙΣΜΑ

ΑΡΧΗ

  ΓΡΑΨΕ 'Το πρόγραμμα ζητάει το ν και υπολογίζει το άθροισμα 1+2+...+ν '

  ΓΡΑΨΕ 'Δώστε ν'

  ΔΙΑΒΑΣΕ ν

  ΜΕΤΡΗΤΗΣ <-- 1

  ΑΘΡΟΙΣΜΑ <-- 0

  ΟΣΟ ΜΕΤΡΗΤΗΣ <= ν ΕΠΑΝΑΛΑΒΕ

    ΑΘΡΟΙΣΜΑ <-- ΑΘΡΟΙΣΜΑ + ΜΕΤΡΗΤΗΣ

    ΜΕΤΡΗΤΗΣ <-- ΜΕΤΡΗΤΗΣ + 1

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ 'Το άθροισμα 1+2+..+..',ν,' είναι', ΑΘΡΟΙΣΜΑ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

2. Το πρόγραμμα υπολογίζει το άθροισμα 1+2+...+10

αρχή

ΠΡΟΓΡΑΜΜΑ ΕΝΑ_ΣΥΝ_ΔΥΟ_ΣΥΝ

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΑΡΙΘΜΟΣ, ΣΥΝΟΛΟ

ΑΡΧΗ

  ΓΡΑΨΕ Το πρόγραμμα υπολογίζει το άθροισμα 1+2+...+10 '

  ΑΡΙΘΜΟΣ <-- 10

  ΣΥΝΟΛΟ <-- 0

  ΟΣΟ ΑΡΙΘΜΟΣ > 0 ΕΠΑΝΑΛΑΒΕ

    ΣΥΝΟΛΟ <-- ΣΥΝΟΛΟ + ΑΡΙΘΜΟΣ

    ΑΡΙΘΜΟΣ <-- ΑΡΙΘΜΟΣ - 1

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ 'Το άθροισμα 1+2+...10  είναι', ΣΥΝΟΛΟ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

3. Μετά το διάβασμα ενός αριθμού και όσο είναι μεταξύ των ορίων (0-9) αν τον εμφανίζει αλλιώς να ξαναζητάει αριθμό.

Εντολή ΟΣΟ

αρχή

ΠΡΟΓΡΑΜΜΑ ΑΡΙΘΜΟΣ_entos_orion_while_oso

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΑΡΙΘΜΟΣ

ΑΡΧΗ

  ΓΡΑΨΕ   ('δώσε ακέραιο αριθμό μεταξύ 0 και 9 : ')

  ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ

  ΟΣΟ  (ΑΡΙΘΜΟΣ < 0) Η (ΑΡΙΘΜΟΣ > 9)  ΕΠΑΝΑΛΑΒΕ

    ΓΡΑΨΕ  ('δώσε ακέραιο αριθμό μεταξύ 0 και 9 : ')

    ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ    ΑΡΙΘΜΟΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

4. Υπολογισμός αθροίσματος 1+2+..+10 .

Εντολή ΟΣΟ.

αρχή

ΠΡΟΓΡΑΜΜΑ υπολογισμός_αθροίσματος_10_αριθμών_while_oso

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΑΡΙΘΜΟΣ, synolo

ΑΡΧΗ

  ΑΡΙΘΜΟΣ:=10

  synolo:=0

  ΟΣΟ  (ΑΡΙΘΜΟΣ > 0)   ΕΠΑΝΑΛΑΒΕ

    synolo:=synolo+ΑΡΙΘΜΟΣ

    ΑΡΙΘΜΟΣ:=ΑΡΙΘΜΟΣ-1

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ    'ΣΥΝΟΛΟ= ', synolo

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

5. Υπολογισμός αθροίσματος 1+2+..+10 .

Εντολή ΟΣΟ.

αρχή

ΠΡΟΓΡΑΜΜΑ υπολογισμός_αθροίσματος_10_αριθμών_while_oso

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΑΡΙΘΜΟΣ, synolo

ΑΡΧΗ

  ΑΡΙΘΜΟΣ:=1

  synolo:=0

  ΟΣΟ  (ΑΡΙΘΜΟΣ < 10)   ΕΠΑΝΑΛΑΒΕ

    synolo:=synolo+ΑΡΙΘΜΟΣ

    ΑΡΙΘΜΟΣ:=ΑΡΙΘΜΟΣ+1

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ    'ΣΥΝΟΛΟ= ', synolo

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

6. Υπολογισμός MO ν αριθμών.

Εντολή ΟΣΟ.

αρχή

ΠΡΟΓΡΑΜΜΑ υπολογισμός_MO_n_ARITHMON

ΜΕΤΑΒΛΗΤΕΣ

  ΠΡΑΓΜΑΤΙΚΕΣ: s,a,m

  ΑΚΕΡΑΙΕΣ: k

ΑΡΧΗ

  s:=0

  k:=0

  ΓΡΑΨΕ  'δώσε έναν αριθμό '

  ΔΙΑΒΑΣΕ   a

  ΟΣΟ  (a<>0.0)   ΕΠΑΝΑΛΑΒΕ

    s:=s+a

    k:=k+1

    ΓΡΑΨΕ   'δώσε έναν αριθμό '

    ΔΙΑΒΑΣΕ   a

    m:=s/k

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ    'M.O.= ', m

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

7. Υπολογισμός παράστασης Κ=, Μ= για (Κ>0 και Μ<20)  με αρχικές τιμές Κ=50 και Μ=2.

Εντολή ΟΣΟ.

αρχή

ΠΡΟΓΡΑΜΜΑ   aaa

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ:   K,Μ

ΑΡΧΗ

  Μ:=2

  Κ:=50

  ΟΣΟ (Κ>0) Ή (Μ<20) ΕΠΑΝΑΛΑΒΕ

    Κ:= Κ-2*Μ

    Μ:= 3*Μ-1

    ΓΡΑΨΕ Κ, Μ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

8. Εμφάνιση μηνύματος «μάντεψε» αν αριθμός >0.

Εντολή ΟΣΟ.

αρχή

ΠΡΟΓΡΑΜΜΑ  while2

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ:  ΑΡΙΘΜΟΣ

ΑΡΧΗ

  ΑΡΙΘΜΟΣ <-- 1

  ΟΣΟ  ΑΡΙΘΜΟΣ <> 0 ΕΠΑΝΑΛΑΒΕ

    ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ

    ΓΡΑΨΕ

    ΓΡΑΨΕ 'μάντεψε!'

    ΓΡΑΨΕ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

9. Προπαίδεια του 9

εντολή ΟΣΟ

αρχή

ΠΡΟΓΡΑΜΜΑ  propedia_9

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ari, polapla

ΑΡΧΗ

  ari := 1

  ΟΣΟ  ari < 11 ΕΠΑΝΑΛΑΒΕ

     polapla := 9 * ari

    ΓΡΑΨΕ  ' 9 * ', ari , ' = ',polapla

    ari := ari + 1;

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

10. Προπαίδεια του 9

εντολή ΟΣΟ

αρχή

ΠΡΟΓΡΑΜΜΑ  propedia_9

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ari, polapla

ΑΡΧΗ

  ari := 1

  ΟΣΟ  ari <= 10 ΕΠΑΝΑΛΑΒΕ

    polapla := 9 * ari

    ΓΡΑΨΕ  ' 9 * ', ari , ' = ',polapla

    ari := ari + 1;

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

11. σύνολο_χρημάτων_μιας_τάξης

εντολή ΟΣΟ

αρχή

ΠΡΟΓΡΑΜΜΑ σύνολο_χρημάτων_μιας_τάξης

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΣΥΝΟΛΟ, ΠΟΣΟ

ΑΡΧΗ

  ΓΡΑΨΕ 'Το πρόγραμμα βρίσκει το σύνολο των χρημάτων που έχουν οι μαθητές μιας τάξης.'

  ΓΡΑΨΕ 'Για τερματισμό πατήστε αρνητικό αριθμό '

  ΣΥΝΟΛΟ <-- 0

  ΓΡΑΨΕ 'Δώστε το ποσό του πρώτου μαθητή'

  ΔΙΑΒΑΣΕ ΠΟΣΟ

  ΣΥΝΟΛΟ <-- ΠΟΣΟ

  ΟΣΟ ΠΟΣΟ>=0  ΕΠΑΝΑΛΑΒΕ

    ΓΡΑΨΕ 'ΕΠΩΜΕΝΟΣ ΜΑΘΗΤΗΣ'

    ΓΡΑΨΕ 'Δώστε το ποσό του μαθητή'

    ΔΙΑΒΑΣΕ ΠΟΣΟ

    ΣΥΝΟΛΟ <-- ΣΥΝΟΛΟ + ΠΟΣΟ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΣΥΝΟΛΟ <-- ΣΥΝΟΛΟ - ΠΟΣΟ

  ΓΡΑΨΕ  ΣΥΝΟΛΟ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

12. σύνολο_χρημάτων_μιας_τάξης

εντολή ΟΣΟ  ????????????

αρχή

ΠΡΟΓΡΑΜΜΑ σύνολο_χρημάτων_μιας_τάξης

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΣΥΝΟΛΟ, ΠΟΣΟ

  ΧΑΡΑΚΤΗΡΕΣ: ΤΕΛΟΣ

ΑΡΧΗ

  ΓΡΑΨΕ 'Το πρόγραμμα βρίσκει το σύνολο των χρημάτων που έχουν οι μαθητές μιας τάξης.'

  ΓΡΑΨΕ 'Για τερματισμό πατήστε αρνητικό αριθμό '

  ΣΥΝΟΛΟ <-- 0

  ΓΡΑΨΕ 'Δώστε το ποσό του πρώτου μαθητή'

  ΔΙΑΒΑΣΕ ΠΟΣΟ

  ΣΥΝΟΛΟ <-- ΠΟΣΟ

  ΓΡΑΨΕ  'ΤΕΛΟΣ (Ν/Ο)'

  ΔΙΑΒΑΣΕ ΤΕΛΟΣ  

  ΟΣΟ ΤΕΛΟΣ<>'Ν'  ΕΠΑΝΑΛΑΒΕ

    ΓΡΑΨΕ 'ΕΠΩΜΕΝΟΣ ΜΑΘΗΤΗΣ'

    ΓΡΑΨΕ 'Δώστε το ποσό του μαθητή'

    ΔΙΑΒΑΣΕ ΠΟΣΟ

    ΣΥΝΟΛΟ <-- ΣΥΝΟΛΟ + ΠΟΣΟ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΣΥΝΟΛΟ <-- ΣΥΝΟΛΟ - ΠΟΣΟ

  ΓΡΑΨΕ  ΣΥΝΟΛΟ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

13. σύνολο_χρημάτων_μιας_τάξης

αρχή

ΠΡΟΓΡΑΜΜΑ σύνολο_χρημάτων_μιας_τάξης

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΣΥΝΟΛΟ, ΠΟΣΟ

  ΧΑΡΑΚΤΗΡΕΣ: ΤΕΛΟΣ

ΑΡΧΗ

  ΓΡΑΨΕ 'Το πρόγραμμα βρίσκει το σύνολο των χρημάτων που έχουν οι μαθητές μιας τάξης.'

  ΓΡΑΨΕ 'Για τερματισμό πατήστε Ν '

  ΣΥΝΟΛΟ <-- 0

  ΓΡΑΨΕ 'Δώστε το ποσό του πρώτου μαθητή'

  ΔΙΑΒΑΣΕ ΠΟΣΟ

  ΣΥΝΟΛΟ <-- ΠΟΣΟ

  ΓΡΑΨΕ  'ΤΕΛΟΣ (Ν/Ο)'

  ΔΙΑΒΑΣΕ ΤΕΛΟΣ

  ΟΣΟ ΤΕΛΟΣ<>'N'  ΕΠΑΝΑΛΑΒΕ

    ΓΡΑΨΕ 'ΕΠΩΜΕΝΟΣ ΜΑΘΗΤΗΣ'

    ΓΡΑΨΕ 'Δώστε το ποσό του μαθητή'

    ΔΙΑΒΑΣΕ ΠΟΣΟ

    ΓΡΑΨΕ  'ΤΕΛΟΣ (Ν/Ο)'

    ΔΙΑΒΑΣΕ ΤΕΛΟΣ

    ΣΥΝΟΛΟ <-- ΣΥΝΟΛΟ + ΠΟΣΟ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ  ΣΥΝΟΛΟ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

14. σύνολο_χρημάτων_μιας_τάξης

αρχή

ΠΡΟΓΡΑΜΜΑ σύνολο_χρημάτων_μιας_τάξης

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΣΥΝΟΛΟ, ΠΟΣΟ

  ΧΑΡΑΚΤΗΡΕΣ: ΤΕΛΟΣ

ΑΡΧΗ

  ΓΡΑΨΕ 'Το πρόγραμμα βρίσκει το σύνολο των χρημάτων που έχουν οι μαθητές μιας τάξης.'

  ΓΡΑΨΕ 'Για τερματισμό πατήστε * '

  ΣΥΝΟΛΟ <-- 0

  ΓΡΑΨΕ 'Δώστε το ποσό του πρώτου μαθητή'

  ΔΙΑΒΑΣΕ ΠΟΣΟ

  ΣΥΝΟΛΟ <-- ΠΟΣΟ

  ΓΡΑΨΕ  'ΤΕΛΟΣ (Ν/Ο)'

  ΔΙΑΒΑΣΕ ΤΕΛΟΣ

  ΟΣΟ ΤΕΛΟΣ<>'*'  ΕΠΑΝΑΛΑΒΕ

    ΓΡΑΨΕ 'ΕΠΩΜΕΝΟΣ ΜΑΘΗΤΗΣ'

    ΓΡΑΨΕ 'Δώστε το ποσό του μαθητή'

    ΔΙΑΒΑΣΕ ΠΟΣΟ

    ΓΡΑΨΕ  'ΤΕΛΟΣ (Ν/Ο)'

    ΓΡΑΨΕ 'ENTER για συνέχεια'

    ΔΙΑΒΑΣΕ ΤΕΛΟΣ

    ΣΥΝΟΛΟ <-- ΣΥΝΟΛΟ + ΠΟΣΟ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ  ΣΥΝΟΛΟ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

15. Μετά το διάβασμα ενός αριθμού και όσο ο αριθμός αυτός είναι θετικός να τον εμφανίζει και να ζητάει άλλον αριθμό.

αρχή

ΠΡΟΓΡΑΜΜΑ ΑΡΙΘΜΟΣ_entos_orion

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΑΡΙΘΜΟΣ

ΑΡΧΗ

  ΓΡΑΨΕ      ('δώσε ακέραιο αριθμό  : ')

  ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ

  ΟΣΟ  (ΑΡΙΘΜΟΣ >= 0)  ΕΠΑΝΑΛΑΒΕ

    ΓΡΑΨΕ  ΑΡΙΘΜΟΣ

    ΓΡΑΨΕ      ('δώσε ακέραιο αριθμό : ')

    ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

16. Μετά το διάβασμα ενός αριθμού και όσο ο αριθμός αυτός είναι θετικός να εμφανίζει τον αντίθετό του και να ζητάει άλλον αριθμό.

αρχή

ΠΡΟΓΡΑΜΜΑ ΑΡΙΘΜΟΣ_entos_orion

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΑΡΙΘΜΟΣ

ΑΡΧΗ

  ΓΡΑΨΕ      ('δώσε ακέραιο αριθμό  : ')

  ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ

  ΟΣΟ  (ΑΡΙΘΜΟΣ >= 0)  ΕΠΑΝΑΛΑΒΕ

    ΓΡΑΨΕ  -ΑΡΙΘΜΟΣ

    ΓΡΑΨΕ      ('δώσε ακέραιο αριθμό : ')

    ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ