mathematica.gr

Έφτιαξα ένα απλό πρόγραμμα σε Fortran 90/95 το οποίο βρίσκει το μεγαλύτερο στοιχείο ενός συνόλου:

program maximum_value_of_set
integer n
real b, maxvalue
real, allocatable, dimension (:) :: A
print *, "Give the dimension of the vector:"
read *, n
allocate (A(n))
do i=1,n
read *, A(i)
enddo
b= maxvalue (n,A)
print *,b
end


real function maxvalue (n,A)
integer, intent (in) :: n
real, intent (in), dimension (n) :: A
integer i
maxvalue=A(1)
do i=2,n
if (A(i)>maxvalue) maxvalue=A(i)
enddo
end function

Όταν το τρέχω όμως και βάζω διάφορες τιμές π.χ αντί να βγάλει το μου βγάζει
Δηλαδή σε κάθε αποτέλεσμα προσθέτει το
Από τι μπορεί να οφείλεται αυτό. Μήπως είναι το format;
Αν μπορεί να βοηθήσει κάποιος θα το εκτιμούσα πολύ.

Διονύση αυτό το +0.0000023 στο βγάζει οτι νούμερα και να δώσεις στην αρχή ή μονο για τα συγκεκριμμένα;

Ρωτάω γιατι ένα τέτοιο αποτέλεσμα μπορεί να οφείλεται σε σφάλμα αναπαράστασης του 7.51
οπότε το μηχανημα τον προσεγγίζει απο τον αριθμό που σου εκτυπώνει.

Αν δεν θες να εμφανίζεται μπορεις αντι της print να χρησιμοποιήσεις την print ''(f5.3)'', μεταβλητή
η οποία θα εμφανίσει τον αριθμό με 1 ψηφίο πριν την υποδιαστολή και 3 μετά την υποδιαστολή

Το κάνει οποιοδήποτε αριθμούς και να βάλω. Αυτό που λές είναι το format.

Το θέμα είναι ότι αν κάνεις το συγκεκριμένο format που λες ή για κάποιο συγκεκριμένο αριθμό δεκαδικών, π.χ:

b= maxvalue (n,A)
print '(F5.3)',b
end

ή όπως μου αρέσει να το γράφω για να διαβάζεται καλύτερα:

b= maxvalue (n,A)
print 1,b
1 format (f5.3)
end

τότε θα εμφανίζονται μόνο 3 δεκαδικά ψηφία. Έτσι αν θέλω ας πουμε να συγκρίνω αριθμούς με δεκαδικά ψηφία π.χ τους αριθμούς: και θα έχουμε παράδοξο και θα βγάλει αποτέλεσμα

Επίσης, τώρα παρατηρώ ότι δε προσθέτει πάντα το συγκεκριμένο αριθμό που γράφω παραπάνω, αλλά μια φορά μου αφαίρεσε
Μήπως είναι ο compiler;