Δομές και Διαφυγή (Break/Continue/Goto) Αναθ.106

Στην Αναθεώρηση 106 τέσταρα τα παρακάτω!
Στην ελληνική έκδοση βλέπουμε και την Απο Προς βάσει αριθμού. Αν ο αριθμός δεν δείχνει ένα από τα "μέρη" που μπορεί να συνεχίσει η ροή..συνεχίζουμε στην επόμενη εντολή. Μπορούμε εκτός από αριθμούς να δώσουμε ονόματα (τα ονόματα θα είναι σε δική τους γραμμή, οι αριθμοί μπορούν να είναι στην αρχή μιας γραμμής με σειρά εντολών)

Με ελληνικές εντολές  (ΝΕΟ)!

Διάβασε χ
Από χ Προς 10, 20, 30, 40, 50, 60, τελευταίο
Έξοδος
10 κ=0
Ενώ κ<200 {
      κ++
      Αν κ>40 Τότε Έξοδος
      Αν Όχι (κ>15 Και κ<18) Τότε Συνέχισε
      Τύπωσε κ
}
Τύπωσε κ
Έξοδος

20 κ=41
Επανέλαβε {
      κ--
      Αν κ>10 Τότε Συνέχισε
      Αν κ<3 Τότε Έξοδος
      Τύπωσε κ
} Μέχρι κ<=0

For κ=1 to 1000 {
      Αν κ<180 Τότε Συνέχισε
      Τύπωσε κ
      Αν κ>200 Τότε Έξοδος
}
Έξοδος
30 κ=201
Τύπωσε κ, " κατέβασμα τιμής στο είκοσι και ανέβασμα πάνω από το25"
\ Κάθε  μπλοκ μπορεί να είναι δομή επανάληψης!
Αν κ>20 Τότε {
      κ--
      Τύπωσε κ
      Αν κ>20 Τότε Ξεκίνα
      {
            κ++
            Τύπωσε κ
            Αν κ >25 Τότε Έξοδος
            Κυκλικά
      }   
}
Έξοδος
40 Δες {
            Τύπωσε "Πέρασμα 1"
            {
                  Τύπωσε "Πέρασμα 2"
                  {
                        Τύπωσε "Πέρασμα 3"
                        Διέκοψε
                        Τύπωσε "Επίπεδο 3"
                  }
                  Τύπωσε "Επίπεδο 2"
            }
            Τύπωσε "Επίπεδο 1"
      }
Τύπωσε "Διαφυγή από τρία επίπεδα με Δες και Διέκοψε"
Έξοδος
\\ Η Δες { } σπάει το μπλοκ στο λάθος...και στο Διέκοψε
50 {
            Τύπωσε "Πέρασμα 1"
            {
                  Τύπωσε "Πέρασμα 2"
                  {
                        Τύπωσε "Πέρασμα 3"
                         Προς 1000
                        Τύπωσε "Επίπεδο 3"
                  }
                  Τύπωσε "Επίπεδο 2"
            }
            Τύπωσε "Επίπεδο 1"
      }
1000 Τύπωσε "Άλμα τρία επίπεδα με την Προς"
Έξοδος
60 κ=3
       {
            Τύπωσε "Πέρασμα 1"
            {
                  Τύπωσε "Πέρασμα 2"
                  {
                        Τύπωσε "Πέρασμα 3"
                         Προς 1010
                        Τύπωσε "Επίπεδο 3"
                  }
              1010 Τύπωσε "Επίπεδο 2, έφθασα με την Προς"
                  κ--
                  Τύπωσε κ
                  Αν κ>0 Τότε Ξεκίνα
            }
            Τύπωσε "Επίπεδο 1"
      }
Έξοδος
τελευταίο:
Αν Ταύτιση("Α") τότε { Διάβασε a } Αλλιώς a=10
Επίλεξε Με a
Με 10
      { Τύπωσε "10" : Διέκοψε } ' Συνέχισε μέχρι να βρείς την  Συνέχισε
Με 20
      Τύπωσε "20"
Με 30
      Τύπωσε "30"
Με 40
      { Τύπωσε "40" : Συνέχισε }
Με 50
      Τύπωσε "50"
Με 60
      Έξοδος   ' Έξοδος από το τμήμα
Αλλιώς
      Τύπωσε ":)"
Τέλος Επιλογής
Τύπωσε "Επιλογές Δοκιμής 7"
Αναφορά {Χωρίς άλλη παράμετρο δίνει τιμή 10
      Με 10 επιλέγουμε από 10 έως 40 - τέσσερις εντολές
      Με 20 ή 30 ή 40 ή 50΄ επιλέγουμε μια μόνο εντολή
      Με 60 τερματίζουμε χωρίς να δούμε αυτό το κείμενο!
      Με ότι άλλο παίρνουμε ένα χαμόγελο!
      }

Και με Αγγλικές Εντολές:

k=0
while k<200 {
      k++
      if k>40 then exit
      if not (k>15 and k<18) then continue
      print k
}

Print k

do {
      k--
      if k>10 then continue
      if k<3 then exit
      print k
} until k<=0


For k=1 to 1000 {
      if k<180 then continue
      print k
      if k>200 then exit
}

Print k, "now down to 20"
\ Any block can be a loop structure
if k>20 then {
      k--
      if k>20 then restart
      {
            k++
            Print k
            if k >25 then exit
            loop
      }   
}

Try {
            Print "Enter 1"
            {
                  Print "Enter 2"
                  {
                        Print "Enter 3"
                        Break
                        Print "level 3"
                  }
                  Print "level 2"
            }
            Print "Level1"
      }
Print "Jump form 3 levels using try and break"
       {
            Print "Enter 1"
            {
                  Print "Enter 2"
                  {
                        Print "Enter 3"
                         goto 1000
                        Print "level 3"
                  }
                  Print "level 2"
            }
            Print "Level1"
      }
1000 Print "Jump form 3 levels using Goto"
k=3
       {
            Print "Enter 1"
            {
                  Print "Enter 2"
                  {
                        Print "Enter 3"
                         goto 1010
                        Print "level 3"
                  }
              1010 Print "level 2, come from goto"
                  k--
                  Print k
                  if k>0 then restart
            }
            Print "Level1"
      }
a=10
Select Case a
Case 10
      { Print "10" : break } ' continue until find continue
Case 20
      Print "20"
Case 30
      Print "30"
Case 40
      { Print "40" : continue }
Case 50
      Print "50"
Case 60
      Exit   ' exit from module
Else
      Print ":)"
End Select

Print "Test End"