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

[yodan000]

Λοιπόν θέλω να φτιάξω ένα πρόγραμμα που να βρίσκει τις ρίζες μίας δευτεροβάθμιας εξίσωσης αλλά δεν ξέρω πως να βάλω στο gedit το σύμβολο τις ρίζας το έκανα αντιγραφή επικόλληση αλλά δεν δούλεψε.... μετά μετέφερα το πρόγραμμα στο open office το αποθήκευσα σε .txt αλλά πάλι δεν κατάφερα να το μεταφράσω..... καμιά ιδέα;

[c7p]

Αν υψώσεις τη παράσταση εις το 1/2 δηλ. (παρασταση)^1/2, νομίζω πως έχεις το ίδιο αποτελέσμα (τετραγωνική ρίζα).

[ftso]

αν θες για bash...

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

echo $timi_parastasis 0.5 | awk '{print $1 ^ $2}'

[yodan000]

δλδ για τετραγωνική ρίζα του Δ θα γράψω ^1/2 Δ;

[c7p]

δλδ για τετραγωνική ρίζα του Δ θα γράψω ^1/2 Δ;

τετραγωνική ρίζα του Δ = Δ^1/2 (για κυβική ρίζα Δ^1/3 κτλ)

[hlias]

Ισχύει αυτό που είπε ο c7p.

[yodan000]

οκ ευχαριστώ...

[yodan000]

λοιπόν βάζω αυτό αλλά μου βγάζει λάθος για illegal qualifier στη δύναμη....

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

program eksiswsh(input,output);
var a,b,c,d:integer;
begin;
writeln('dwse ton a');
readln(a);
writeln('dwse ton b');
readln(b);
writeln('dwse ton c');
readln(c);
d:=b*b-4*a*c;
writeln('oi rizes tis eksiswshs einai ' , d^1/2/2*a+b/2 , ' h ' , b/2-d^1/2/2*a+b/2,);
end.


[hlias]

SQRT(d) είναι η συνάρτηση που ψάχνεις! Είναι η ριζα. Γιατί δεν ανέφερες ότι γράφεις σε pascal;

Α, και που'σαι... η διακρίνουσα πρέπει να είναι θετική για να υπάρχουν 2 διαφορετικές λύσεις. Οι λύσεις θα ήταν κάπως έτσι:

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

writeln('Πρώτη λύση: ',(-b+SQRT(d))/2*a);
writeln('Δεύτερη λύση: ',(-b-SQRT(d))/2*a);

[yodan000]

οκ ευχαριστώ.....