Έχεις λάθος στην συνάρτηση ρίζας. Λες sqtr() ενώ είναι sqrt().
Το λάθος είναι στην διακρίνουσα!!! Με τους αριθμούς που βάζεις η διακρίνουσα βγαίνει αρνητική και όπως είναι γνωστόν, ρίζα αρνητικού αριθμού δεν υπάρχει οπότε να όλο το πρόγραμμα:
- Κώδικας: Επιλογή όλων
program hi(input,output);
var a,b,c,d,o,n:real;
begin;
write('Δώσε τον α :');
readln(a);
write('Δώσε τον β :');
readln(b);
write('Δώσε τον γ :');
readln(c);
d:=(sqr(b)-4*a*c);
writeln('Διακρίνουσα:',d:0:2);
if d > 0 then
begin
o:=((-b+sqrt(d))/2*a);
n:=((-b-sqrt(d))/2*a);
writeln('Οι ρίζες της εξίσωσης είναι' , o:0:2 , ' και' , n:0:2);
end
else if d = 0 then
writeln('Η διπλή λύση της εξίσωσης είναι:', (-b/2*a):0:2)
else
writeln('Δεν υπάρχει λύση!');
end.
sqr()= ύψωση εις το τετράγωνο.
sqrt()= ρίζα
yodan000 έγραψε:εμένα δεν μου βγάζει τπτ τέτοιο.... το φτιάχνω στο gedit και μετά εξαφανίζεται.....
Κατέβασε τον geany!
sudo apt-get install geany