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 ban kinh R=`);readln(r);
dt:=pi*r*r;
cv:=2*pi*r;
Writeln(`Dien tich hinh tron la:`,dt:6:2);
Writeln(`Chu vi hinh tron la:`,cv:6:2);
Readln;
End.
THE END.