ĐỀ 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 else if <đk> then else if <đk> then 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.