TIẾT 9 + 10: BÀI TẬP THỰC HÀNH 1 1. Một số chương trình hoàn chỉnh: Ví dụ 1: Chương trình giải phương trình bậc 2 (trường hợp có hai nghiệm) Program giai_ptb2; Uses crt; Var a, b, c, d, x1, x2: real; Begin Clrscr; Write(’nhap a b c ’); Readln(a, b, c); D: = b*b-4*a*c; X1: = (-b-sqrt(d))/(2*a); X2: = (-b+sqrt(d))/(2*a); Writeln(’x1 = ’,x1:6:2,’ x2 = ’,x2:6:2); Readln End. Chúng ta sẽ thử với các trường hợp cụ thể sau:  Trường hợp 1: a = 1; b = 1; c = 2; Khi chạy chương trình sẽ thấy thông báo lỗi: Ivanlid floating point operation. (sử dụng sai thao tác với số thực) ở đây là do delta âm nên hàm sqrt không thực hiện được.  Trường hợp 2: a = 1; b = 2; c = 1; Khi chạy chương trình cho ta kết quả: x1 = -1.00; x2 = -1.00;  Trường hợp 3: a = 1; b = -3; c = 2; Khi chạy chương trình cho ta kết quả: x1 = 1.00; x2 = -2.00; Ví dụ 2: Viết chương trình nhập từ bàn phím 2 số nguyên a và b, tính và đưa ra màn hình tổng và tích của hai số đó. Program tong_tich; Var a,b:integer; Begin write(‘nhap vao ba so nguyen:’); readln(a,b); writeln(‘tong hai so la:’,a+b); writeln(‘tich hai so la:’,a*b); readln End. Chúng ta sẽ thử với các trường hợp cụ thể sau:  Trường hợp 1: a = 3; b = 5; khi chạy chương trình ta được kết quả:  Tong hai so la: 8  Tich hai so la: 15 Ví dụ 3: Nhập vào 2 cạnh của một hình chữ nhật. In ra màn hình diện tích và chu vi của nó. Program hinh_chu_nhat; Uses Crt; Var a,b,s,c: real; Begin Clrscr; Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’); Writeln(‘--------------------------------------------------------------‘); Write('Nhap chieu dai='); readln(a); Write('Nhap chieu rong=');readln(b); s:=a*b; c:=(a+b)*2; Writeln('Dien tich hinh chu nhat la:’,s:6:2); Writeln('Chu vi hinh chu nhat:',c:6:2); Readln; End. [...]...Ví dụ 4: Nhập vào bán kính của hình tròn In ra màn hình diện tích và chu vi của nó Program hinh_tron; Uses Crt; Var r,dt,cv:real; Begin Clrscr; Writeln('TINH DIEN TICH & CHU VI HINH TRON:'); Writeln(' '); Write ('Nhap . TIẾT 9 + 10 : BÀI TẬP THỰC HÀNH 1 1. Một số chương trình hoàn chỉnh: Ví dụ 1: Chương trình giải phương trình bậc 2 (trường. với số thực) ở đây là do delta âm nên hàm sqrt không thực hiện được.  Trường hợp 2: a = 1; b = 2; c = 1; Khi chạy chương trình cho ta kết quả: x1 = -1. 00;