Δομή Επιλογής - Άσκηση 20 του βιβλιου

 Ο νόμος του Νεύτωνα για τη βαρύτητα λέει ότι κάθε σώμα στο σύμπαν έλκει κάθε άλλο σώμα με δύναμη που δίνεται από τον τύπο:

F=G*m1*m2/r^2  όπου m1 και m2 είναι οι μάζες των δύο σωμάτων (σε κιλά), r η απόσταση μεταξύ τους (σε μέτρα) και G είναι η παγκόσμια βαρυτική σταθερά.

Να αναπτύξετε αλγόριθμο ο οποίος θα διαβάζει τις δύο μάζες, την απόσταση μεταξύ τους και θα υπολογίζει και θα εκτυπώνει τη δύναμη. Στην περίπτωση που η δύναμη είναι πάνω από 1 να βγάζει το μήνυμα "μεγάλη δύναμη" αλλιώς να βγάζει το μήνυμα "μικρή δύναμη"

Δίνεται ότι G = 6,67 x 10-11 N m2 kg-2.

Λύση

Αλγόριθμος ΝΕΥΤΩΝΑΣ
Εμφάνισε 'ΔΩΣΕ ΤΙΣ ΜΑΖΕΣ ΤΩΝ ΣΩΜΑΤΩΝ ΣΕ ΚΙΛΑ'
Διάβασε M1, M2
Εμφάνισε 'ΔΩΣΕ ΤΗΝ ΑΠΟΣΤΑΣΗ ΣΕ ΜΕΤΡΑ'
Διάβασε R
G ← 6.67*10^-11
F ← G*(M1*M2)/R^2
Αν F > 1 τότε
  Εμφάνισε 'Η ΔΥΝΑΜΗ ΕΙΝΑΙ ΜΕΓΑΛΗ'
αλλιώς
  Εμφάνισε 'Η ΔΥΝΑΜΗ ΕΙΝΑΙ ΜΙΚΡΗ'
Τέλος_αν
Εμφάνισε 'F=', F
Τέλος