Παρασκευή 11 Δεκεμβρίου 2015

Αναθεώρηση 111

Λίγα πράγματα σήμερα:
1. Διόρθωση στη Για για διάφορα βήματα (ανά 1 ανά .1 ανά 4.5) ώστε πάντα να μην περνάμε ποτέ το πάνω όριο (δεν είναι εύκολο αυτό γιατί εδώ έχουμε να κάνουμε με πραγματικούς και το βήμα μπορεί να μην είναι ακέραιος).
Το παράδειγμα εδώ είναι εντάξει http://georgekarras.blogspot.gr/2015/10/71.html
παραθέτω μερικά τεστ

for i=-.1 to .5 step .1 {
? i
}


for i= .5 to -.1 step .1 {
? i
}


FOR I=6 TO 20 STEP 3.1 {
? I
}

FOR I=-.45 TO -4.23 STEP .22 {

? I
}

for i=-110 TO 0 step 14.5 {

print i
}

for i=0 TO -110 step 14.5 {

print i
}

Λύθηκε στην αναθεώρηση 113
Εδώ υπάρχει ακόμα θέμα στα κ=.3 και = .9 οπότε θα ετοιμάσω νέα αναθεώρηση!

Για k=.1 Έως 10 ανα .1 {
      Για i=-6 Έως -20 Ανά k {
           Αν i<-20 Τότε Τύπωσε i,k : α$=κομ$
      }
}
α$=κομ$
Για k=.1 Έως 10 ανα .1 {
      Για i=6 Έως 20 Ανά k {
           Αν i>20 Τότε Τύπωσε i,k : α$=κομ$
      }
}


Βεβαίως αυτό γίνεται με άλλο τρόπο χωρίς πρόβλημα
k=.1
Ενώ k<=10 {
      i=-6
      Ενώ i>=-20 {
            ? i
           Αν i<-20 Τότε Τύπωσε i,k : α$=κομ$
           i-=k
      }
      k+=.1
}
α$=κομ$


k=.1
Ενώ k<=10 {
      i=6
      Ενώ i<=20 {
            ? i
           Αν i>20 Τότε Τύπωσε i,k : α$=κομ$
           i+=k
      }
      k+=.1
}

Η For (Για) δουλεύει χωρίς το <= ή >= προσθέτοντας ή αφαιρόντας μια τιμή από το όριο ώστε να μην έχουμε θέμα "ακρίβειας". Πώς η Ενώ δεν έχει πρόβλημα; Επειδή το  i<=20 εκτελεί πρώτα στρογγύλευση! Θέλω το Για να μην κάνει στρογγύλεψη επειδή την τιμή. 2. Στην αντιγραφή Html τώρα βγαίνει οκ η τελευταία γραμμή (αν είχε κενή γραμμή δεν είχε πρόβλημα αλλά τώρα το διόρθωσα)
Μία λύση είναι αυτή παρακάτω αλλά αναζητώ μια για όλες τις χρήσεις!

Για i=6 ενώς ακ((20-6)/.3)*.3+6 ανά .3 {
}
? i

 

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

Φορμα 30,20
α$={Афинский институт русского языка имени А.С. Пушкина предоставляет услуги устного и письменного перевода с греческого на русский язык и с русского на греческий язык, а также с русского на английский язык и с английского на русский язык частным лицам, фирмам, представительствам, компаниям и организациям.}
Οθόνη
Πίνακας b$(20)
Κάνε Ακέραια(Χ)=Ακ(Χ+.5)
Αναφορά 3, α$, 15, -1000 ως b$(13)
Έγγραφο b$(13)
Τύπωσε Εγγράφου.παρ(b$(13)), γραμμέςαναφοράς
Α=Αληθές
για ι=1 εως γραμμέςαναφοράς
Φαρδια Α
      Α~
      Αν Α Τότε { Πένα 11 } Αλλιώς Πένα 12
Αναφορά 3, παραγραφος$(b$(13), ι)
Φαρδια 0
επόμενο ι

Δεν υπάρχουν σχόλια:

Δημοσίευση σχολίου

You can feel free to write any suggestion, or idea on the subject.