1. propedia_9

εντολή ΜΕΧΡΙΣ_ΟΤΟΥ

αρχή

ΠΡΟΓΡΑΜΜΑ  propedia_9

ΜΕΤΑΒΛΗΤΕΣ

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

ΑΡΧΗ

  ari := 1

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

    polapla := 9 * ari

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

    ari := ari + 1;

  ΜΕΧΡΙΣ_ΟΤΟΥ ari = 11

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

2. ΑΡΙΘΜΟΣ_entos_orion

αρχή

ΠΡΟΓΡΑΜΜΑ repeat_mexris_otou

ΜΕΤΑΒΛΗΤΕΣ

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

ΑΡΧΗ

  ΓΡΑΨΕ 'programma= ΑΡΙΘΜΟΣ_entos_orion'

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

    ΓΡΑΨΕ

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

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

  ΜΕΧΡΙΣ_ΟΤΟΥ   (ΑΡΙΘΜΟΣ < 0) Η (ΑΡΙΘΜΟΣ > 9)

  ΓΡΑΨΕ    'αριθμός εκτός ορίων'

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

3. υπολογισμός κύκλου

αρχή

ΠΡΟΓΡΑΜΜΑ repeat_mexris_otou_div

ΣΤΑΘΕΡΕΣ

  pi=3.14

ΜΕΤΑΒΛΗΤΕΣ

  ΠΡΑΓΜΑΤΙΚΕΣ: aktina,perimetros,epifaneia

ΑΡΧΗ

  ΓΡΑΨΕ 'programma= υπολογισμός κύκλου '

  ΓΡΑΨΕ

  ΓΡΑΨΕ      ('δώσε aktina  : ')

  ΔΙΑΒΑΣΕ aktina

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

    perimetros:=2*aktina*pi

    epifaneia:=aktina*aktina*pi

 ΓΡΑΨΕ  aktina:3:1,' ‘,perimetros:4:2,' ,epifaneia:5:2

    ΓΡΑΨΕ

    ΓΡΑΨΕ      ('δώσε aktina  : ')

    ΓΡΑΨΕ

    ΔΙΑΒΑΣΕ aktina

  ΜΕΧΡΙΣ_ΟΤΟΥ aktina=0

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

4. υπολογισμός αθροίσματος αριθμών

αρχή

ΠΡΟΓΡΑΜΜΑ repeat_mexris_otou

ΜΕΤΑΒΛΗΤΕΣ

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

ΑΡΧΗ

ΓΡΑΨΕ 'programma= υπολογισμός αθροίσματος αριθμών  '

  ΓΡΑΨΕ

  s:=0

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

    s:=s+x

    ΔΙΑΒΑΣΕ x

  ΜΕΧΡΙΣ_ΟΤΟΥ x=0

  ΓΡΑΨΕ s:5:2

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

5. υπολογισμός μέσου όρου αριθμών

αρχή

ΠΡΟΓΡΑΜΜΑ repeat_mexris_otou

ΜΕΤΑΒΛΗΤΕΣ

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

  ΑΚΕΡΑΙΕΣ: n

ΑΡΧΗ

ΓΡΑΨΕ 'programma= υπολογισμός μέσου όρου αριθμών   '

  ΓΡΑΨΕ

  s:=0

  n:=0

  ΔΙΑΒΑΣΕ x

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

    s:=s+x

    n:=n+1

    ΔΙΑΒΑΣΕ x

  ΜΕΧΡΙΣ_ΟΤΟΥ x=0

  ΓΡΑΨΕ 'μέσος = ',s/n:5:2

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

6. βρες το όνομά μου

αρχή

ΠΡΟΓΡΑΜΜΑ  repeat1

ΜΕΤΑΒΛΗΤΕΣ

  ΧΑΡΑΚΤΗΡΕΣ:  onoma

ΑΡΧΗ

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

    ΓΡΑΨΕ 'βρες το όνομά μου! '

    ΔΙΑΒΑΣΕ onoma

  ΜΕΧΡΙΣ_ΟΤΟΥ  onoma='Ram'

  ΓΡΑΨΕ

  ΓΡΑΨΕ 'το πέτυχες!!!'

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

7. Suma

αρχή

ΠΡΟΓΡΑΜΜΑ  repeat2

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ:s,a

ΑΡΧΗ

  s:=0;

  ΔΙΑΒΑΣΕ a

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

    s:=s+a;

    ΔΙΑΒΑΣΕ a

  ΜΕΧΡΙΣ_ΟΤΟΥ  a<0

  ΓΡΑΨΕ  'suma = ',s

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

8. πλήθος ψηφίων ενός αριθμού

αρχή

ΠΡΟΓΡΑΜΜΑ repeat_mexris_otou_div

ΜΕΤΑΒΛΗΤΕΣ

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

ΑΡΧΗ

  ΓΡΑΨΕ 'programma= πλήθος ψηφίων ενός αριθμού'

  ΓΡΑΨΕ

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

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

  plithos:=0

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

    ΑΡΙΘΜΟΣ:=ΑΡΙΘΜΟΣ DIV 10

    plithos:=plithos+1

  ΜΕΧΡΙΣ_ΟΤΟΥ ΑΡΙΘΜΟΣ=0

  ΓΡΑΨΕ    'πλήθος ψηφίων  αριθμού=  ',plithos

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