Đề kiểm tra 15phút Mon :Tin hoc 11
Dé 1
A Phương trình bậc hai: ax’*+bx+e = 0
Cho một chương trình giải phương trình bậc hai dưới đây(ngôn ngữ pascal)
Dong 1: Program giai-PTB2;
Dong 2: Uses crt:
Dong 3: Var a,b,c ; integer;
Dong 4: D;x1,x2 : real;
Dong 5: Begin
Dong 6: Clrscr;
Dong 7: Write(‘nhap a ,b, c:’);
Dong 8: Read(a,b,c);
Dong 9: D:=b*b-4a*c;
Dong 10: If D<0 then
Dong TT: Writeln(‘phuong trinh vo nghiem.’);
Dong 12: Else
Dong 13: Begin
Dong 14: X1:=(-b-sqrt(D))/(2*a);
Dong 15: X2 ;=-b/a-x1;
Dong 16: Writeln(nghiem x1 la:’,x1,’nghiem x2 la:’,x2);
Dong 17: End;
Dong 18: ReadIn
Dong 19: End
1/ Tìm lỗi của phương trình trên va ghi ra dong bi 16i
2/ Sửa lôi của chương trình
B/ viết chương trình tìm min của hai biến a,b trong đó có dùng cấu trúc lặp IF-THEN