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
Trang 1ĐỀ 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 <câu 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
