This preview shows page 1. Sign up to view the full content.
Unformatted text preview: end; procedure main; begin readln(a,b,c,d); x1:=(-2*b-sqrt(4*b*b-12*a*c))/(6*a); x2:=(-2*b+sqrt(4*b*b-12*a*c))/(6*a); write(calc(-100,x1):0:2,' '); write(calc(x1,x2):0:2,' '); writeln(calc(x2,100):0:2); end; begin main; end....
View Full Document
This note was uploaded on 02/21/2011 for the course CS 001 taught by Professor 001 during the Spring '11 term at Shandong University.
- Spring '11