... Giai_PTB2; Uses crt; Var a, b, c, d: real; x1, x2: real; Begin Clrscr; Write (a, b, c); Readln (a, b, c); d := b*b - 4*a*c; x1:=(-b-sqrt(d))/(2*a); x2:= -b/a x1; writeln(x1=,x1 :6: 2,x2=,x2 :6: 2); readln; ... trong SGK vo mỏy. - Nhn phớm F2, nhp tờn file y : D: \Bai Tap\ PTB2 3. Dch li cỳ phỏp. 4. Thc hin chng trỡnh. 5. Nhp d liu: 1 -3 2. Thụng bỏo kq 6. Tr v mn hỡnh son tho. 7. Thc hin chng trỡnh. 8. ... Readln(a,b,c); x1:=(-b-sqrt(b*b-4*a*c))/(2*a); x2:=(-b+sqrt(b*b-4*a*c))/(2*a); writeln(x1=,x1 :6: 2, x2=,x2 :6: 2,); 4. Củng cố(1) - Nm cỏc bc hon thnh mt chng trỡnh: + Phõn tớch bi toỏn xỏc nh d liu...