Πως θα βάλω ρίζα;

[yodan000]

λοιπόν το έκανα και έτσι και μου βγάζει αυτό

Κώδικας: Επιλογή όλων

Η ρίζα της εξίσωσης είναι 1.65589357775095E+002


[hlias]

Α, ναι!Το αποτέλεσμα είναι σωστό, απλά πρέπει να κάνεις μορφοποίηση της εντολής εξόδου γιατί ο αριθμός είναι πραγματικός.
οπότε:

Κώδικας: Επιλογή όλων

write('1η λύση: ');
writeln((-b+SQRT(d))/2*a:0:2);


Ομοίως θα κάνεις και την 2η λύση.
Το :0:2 δηλώνει ότι θα χρησιμοποιηθούν τόσες θέσεις όσες χρειάζονται για την εκτύπωση(εμφάνιση) του αποτελέσματος με 2 ψηφία μετά την υποδιαστολή.

[yodan000]

κοίτα το ln το διάβασα και στο βιβλίο και το λέει φυσικό λογάριθμο και δίνει κάτι παραδείγματα αλλά δεν τα καταλαβαίνω.... ούτε αυτό που είπες εσύ για το :0:2....

[hlias]

ποιό ln;; Το writeln λες; Το writeln() κάνει την ίδια δουλειά με το write() απλά πάει και στην επόμενη σειρά.
όσο για το :0:2, χρησιμοποιείται για να εκτυπώσεις έναν πραγματικό αριθμό(όπως τον 1.65589357775095E+002) σε κατανοητή μορφή για τους ανθρώπους.
Στην συγκεκριμένη περίπτωση το 1.65589357775095E+002 θα εμφανίζονταν ως 165.58.
Στο 0:2, το 0 δηλώνει ότι θα χρειαστούν τόσες θέσεις όσες είναι αρκετές για να εμφανιστεί ολόκληρος ο αριθμός ενώ το 2 δηλώνει ότι θα εμφανιστούν μόνο 2 ψηφία μετά την υποδιαστολή.

[yodan000]

ά γιατί στο ποστ σου είχες γράψει write('ln....) και νόμιζα πως έλεγες για τον φυσικό λογάριθμο.... οκ ευχαριστώ... αυτό με το 2 το έπιασα 2 ψηφία μετά την υποδιαστολή το άλλο με το 0 μπορείς να το δώσεις με ένα παράδειγμα....;

[hlias]

ά γιατί στο ποστ σου είχες γράψει write('ln....) και νόμιζα πως έλεγες για τον φυσικό λογάριθμο....

Η γραμματοσειρά φταίει! "1η λύση" γράφω(Πρώτη λύση).

αυτό με το 2 το έπιασα 2 ψηφία μετά την υποδιαστολή το άλλο με το 0 μπορείς να το δώσεις με ένα παράδειγμα....;

Ωραία, παράδειγμα: write(17.9:5:1);
Το 17.9 καταλαμβάνει 4 θέσεις(1η θέση το 1 μετά το 7 μετά η υποδιαστολή μετά το 9).
Με το :5 δηλώνουμε ότι θέλουμε να χρησιμοποιηθούν 5 θέσεις... στην οθόνη θα εμφανιστεί μια ΚΕΝΗ θέση και μετά το 17.9, δηλαδή:
"_17.9"
αντί για "_" θα υπάρχει κενό.


Πάρε και δες την διαφορά:

Κώδικας: Επιλογή όλων

program test;
uses crt;
BEGIN
writeln(17.9:5:1);
write(17.9:0:1);
END.


[yodan000]

α κατάλαβα... ευχαριστώ...

[hlias]

πάτα και το

[yodan000]

τώρα έχω άλλο πρόβλημα.... το έγραψα το πρόγραμμα με var real και μου βγάζει runtime error παίζει ρόλο ότι εγώ βάζω ακεραίους;(είχα διαβάσει πως το μετατρέπει αυτόματα σε δεκαδικό τον ακέραιο)...

[hlias]

Τι ακριβώς error βγάζει;
Εμένα μια χαρά παίρνει τους ακέραιους δηλωμένους ως real. Και τους εμφανίζει ως real.

Έχεις τον fp-compiler;