ZX81, χρήση ως scientific calculator

Τα πράγματα εδώ είναι πολύ εύκολα, χάρη στην ύπαρξη της συνάρτησης VAL στην Sinclair Basic. Αυτή η συνάρτηση, υπολογίζει την τιμή της παράστασης που δίνεται, ακόμα και αν αυτή η τιμή δεν είναι αριθμητική αλλά λογικού τύπου (με 0 απαντά όταν είναι Ψευδής, με 1 απαντά αν η παράσταση είναι Αληθής).

Γράφουμε (ή και αποθηκεύουμε μετά σε κασέτα) τον παρακάτω μικρό κώδικα, και έχουμε στην διάθεσή μας ένα επιστημονικό κομπιουτεράκι με όλες τις τριγωνομετρικές ή εκθετικές συναρτήσεις (sin, cos, tan, arcsin κ.α.) μ' εμφάνιση και των προηγούμενων αποτελεσμάτων.

10 SCROLL
20 INPUT A$
30 PRINT A$;" = "; VAL A$
40 GOTO 10

Να θυμίσω ότι η ύψωσε σε δύναμη, είναι με τον διπλό αστερίσκο (**), περισσότερα στο εγχειρίδιο του ZX81, ή και εδώ


Sinclair Basic tricks & tips


Μερικά σύντομα και χρήσιμα "εργαλεία" για τα προγράμματά μας! Η Sinclair Basic είναι πλούσια σε τέτοια εργαλεία, αλλά πολλές φορές δεν εμφανίζονται ευκρινώς στο malual.  


Κυλιόμενο μήνυμα

Η λογική είναι απλή, κάθε φορά θέτουμε το αρχικό string με τον πρώτο χαρακτήρα του στο τέλος. Δοκιμάστε το παρακάτω μικρό πρόγραμμα:
"Κλικ" στην εικόνα για μεγέθυνση

Μετατροπή μοίρες σε ακτίνια

Οι τριγωνομετρικές συναρτήσεις της Sinclair Basic δέχονται τις παραμέτρους σε ακτίνια, εμείς πολλές φορές θέλουμε να είναι σε μοίρες. Σε αυτή την περίπτωση δημιουργούμε την συνάρτηση μετατροπής a(m) όπως φαίνεται στο παρακάτω πρόγραμμα:
"Κλικ" στην εικόνα για μεγέθυνση

O ZX ως scientific calculator

Τα πράγματα εδώ είναι πολύ εύκολα χάρη στην ύπαρξη της συνάρτησης VAL στην Sinclair Basic. Αυτή η συνάρτηση υπολογίζει την τιμή της παράστασης που δίνεται, ακόμα και αν αυτή η τιμή δεν είναι αριθμητική αλλά λογικού τύπου (με 0 απαντά όταν είναι Ψευδής, με 1 απαντά αν η παράσταση είναι Αληθής). Δοκιμάστε το παρακάτω πρόγραμμα:
"Κλικ" στην εικόνα για μεγέθυνση

Τυχαίοι αριθμοί

Υπάρχει έτοιμη συνάρτηση, αλλά αν θέλουμε αυστηρά έναν ακέραιο μεταξύ του α και του β αριθμού, πρέπει να έχουμε εισάγει την παρακάτω συνάρτηση:
"Κλικ" στην εικόνα για μεγέθυνση


ZX_Jim Greece

e-mail: dcotsos2015@gmail.com