Δημοσιεύτηκε: 03 Σεπ 2010, 16:12
λοιπόν αυτό γράφω....
- Κώδικας: Επιλογή όλων
program hi(input,output);
var a,b,c,d,o,n:real;
begin;
writeln('Δώσε τον α');
readln(a);
writeln('Δώσε τον β');
readln(b);
writeln('Δώσε τον γ');
readln(c);
d:=b*b-4*a*c;
o:=(-b+sqtr(d))/2*a;
n:=(-b-sqtr(d))/2*a;
writeln('Οι ρίζες της εξίσωσης είναι' , o:0:2 , 'και' , n:0:2);
end.