Đề cương Kiểm tra Pascal lớp 8

ĐỀ CƯƠNG ÔN TẬP KIỂM TRA THỰC HÀNH PASCAL 8
THỜI GIAN 45 PHÚT

Phần: 8,0 điểm
Câu 1: Viết chương trình nhập vào 3 số a, b, c từ bàn phím, in ra màn hình số lớn nhất
trong 3 số vừa nhập.
Câu 2: Viết chương trình nhập vào 3 số a, b, c từ bàn phím, in ra màn hình số nhỏ nhất
trong 3 số vừa nhập.
Câu 3: Viết chương trình nhập hai số nguyên a, b từ bàn phím và in 2 số đó ra màn
hình theo thứ tự không giảm?
Câu 4: Viết chương trình giải phương trình bậc nhất bx + c = 0.
Câu 5: Viết chương trình nhập vào 3 số a, b, c từ bàn phím, in ra màn hình kết quả
kiểm tra ba số đó có thể là độ dài các cạnh của một tam giác hay không.
Câu 6: Viết chương trình tính điểm trung bình của 2 môn Toán và Văn, với điểm Toán
và Văn được nhập từ bàn phím. In ra màn hình kết quả ĐTB vừa tính và xếp loại của
ĐTB.
(Cho biết: DTB>=8.0  XL Giỏi, 8.0>DTB>=6.5  XL Khá, 6.5>DTB>=5.0  XL
TB, còn lại XL Yếu)
Phần: 2,0 điểm -> Vận dụng tổng hợp, tu duy
Lưu ý: 1. sử dụng câu lệnh điều kiện lồng nhau:
If <đk> then <câu lệnh> else if <đk> then <câu lệnh> else if <đk> then lệnh> else ……….
2. Nếu sau từ khóa then muốn thực hiện hơn 1 câu lệnh thì các câu lệnh đó phải
đặt trong 2 từ khóa: Begin …. End; (tính giá trò x và in nghiệm)
Program Bai_tap_4;
Uses crt;
Var b, c, x: real;
Begin
Clrscr;
Write(‘Nhap he so b:’); Readln(b);
Write(‘Nhap he so c:’); Readln(c);

If b = 0 then
If c = 0 then
Write(‘PTVSN’)
Else write(‘PTVN’)
Else
Begin
x := -c / b;
write(‘Nghiem pt:’, x:5:2);
End;
Readln
End.
GV: Nguyễn Văn Phong