Να γίνει πρόγραμμα που να διαβάζει ένα δεκαδικό αριθμό (με οσοδήποτε δεκαδικά) και να τον στρογγυλοποιεί στα δύο δεκαδικά του ψηφία. Δηλαδή, αν ο αριθμός είναι ο 74,3546 να γίνει 74,35 και αν είναι ο 4,736 να γίνει 4,74. Προσπαθήστε να το λύσετε και χωρίς χρήση της εντολής ΑΝ.
ΛΥΣΗ 1η (με δομη επιλογής)
ΠΡΟΓΡΑΜΜΑ Στρογγυλοποίηση_Δεκαδικου_2
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ν,Υπ
ΠΡΑΓΜΑΤΙΚΕΣ: Α
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε δεκαδικό αριθμό'
ΔΙΑΒΑΣΕ Α
Ν <-- Α_Μ(Α * 1000)
Υπ <-- Ν MOD 10
Α <-- (Ν-Υπ)/1000
ΑΝ 5<Υπ ΤΟΤΕ
Α <-- Α +0.01
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Στρογγυλοποιημένος αριθμος=',Α
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΛΥΣΗ 2η (ΜΟΝΟ με δομη ακολουθίας)
ΠΡΟΓΡΑΜΜΑ Στρογγυλοποίηση_Δεκαδικου_2
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ν,Υπ
ΠΡΑΓΜΑΤΙΚΕΣ: Α
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε δεκαδικό αριθμό'
ΔΙΑΒΑΣΕ Α
Α <-- Α+0.005
Ν <-- Α_Μ(Α * 1000)
Υπ <-- Ν MOD 10
Α <-- (Ν-Υπ)/1000
ΓΡΑΨΕ 'Στρογγυλοποιημένος αριθμος=',Α
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ