LUYỆN TẬP VIẾT CHƯƠNG TRÌNH PASCAL LỚP 8
Bài 1: Tính tam giác: Nhập vào ba số a,b,c bất kì. Kiểm tra xem nó có thể là độ dài ba cạnh hay không, nếu không thì in ra màn hình `Khong la ba canh cua mot tam giac`. Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình.
Bài 2: Viết chương trình tính chu vi và diện tích của hình chữ nhật có chiều dài hai cạnh là a, b (được nhập từ bàn phím).
Nhập hai cạnh vào hai biến a, b.
Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
Bài 3: Viết chương trình tính chu vi, diện tích hình vuông có cạnh a (được nhập từ bàn phím).
a. Hướng dẫn:
Nhập cạnh vào biến canh.
Chu vi hình vuông bằng 4*canh; Diện tích hình vuông bằng canh*canh.
Bài 4: Viết chương trình tính chu vi và diện tích hình tròn có bán kính r (được nhập từ bàn phím).
a. Hướng dẫn:
Nhập bán kính vào biến r.
Chu vi đường tròn bằng 2**r.
Diện tích hình tròn bằng *r*r.
Bài 5: Viết chương trình tính diện tích của tam giác có ba cạnh là a, b, c (được nhập từ bàn phím)
Nhập ba cạnh của tam giác vào ba biến a, b, c.
Nửa chu vi của tam giác p = (a+b+c)/2.
/
Bài 6: Viết chương trình cho phép tính trung bình cộng của bốn số.
Nhập bốn số vào bốn biến a, b, c, d
Trung bình cộng của a, b, c, d bằng (a + b + c + d)/4.
Bài 7: Viết chương trình cho phép tính trung bình cộng của bốn số với điều kiện chỉ được sử dụng hai biến.
Dùng một biến S có giá trị ban đầu bằng 0.
Dùng một biến để nhập số.
Sau khi nhập một số cộng ngay vào biến S.
Bài 8: Viết chương trình cho phép tính trung bình nhân của bốn số với điều kiện chỉ được sử dụng hai biến.
Dùng một biến S có giá trị ban đầu bằng 1.
Dùng một biến để nhập số.
Sau khi nhập một số nhân ngay vào biến S.
Trung bình nhân bốn số là căn bậc 4 tích của chúng (Dùng hai lần căn bậc hai).
Bài 9: Viết chương trình nhập hai số, đổi giá trị hai số rồi in ra hai số.
Dùng các biến a, b để lưu hai số được nhập từ bàn phím;
Gán cho biến tam giá trị của a.
Gán giá trị của b cho a. (Sau lệnh này a có giá trị của b).
Gán giá trị của tạm cho cho b (Sau lệnh này b có giá trị của tam = a).

HƯỚNG DẪN GIẢI
Bài 1: Program HINH_CHU_NHAT; Uses Crt; Var a,b,s,c: real; Begin
Clrscr;  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.
Bài 2: Program HINHTRON; Uses Crt; Var r,dt,cv:real;
Begin Clrscr; 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.
Bài 3: Program TAMGIAC;  Uses crt; Var a,b,c,s,p: real;
Begin Clrscr;  Write(`nhap a =`);readln(a); Write (`nhap b =`);readln(b);  Write(`nhap c =`);readln(c); If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln(`Chu vi tam giac:`,2*p:4:2);  Writeln(`Dien tich tam giac:`,s:4:2); End Else Writeln(a,’, ‘, b,