ÑEÀ CÖÔNG OÂN TAÄP KIEÅM TRA THÖÏC HAØNH PASCAL 8
THÔØI GIAN 45 PHUÙT
Phaàn: 8,0 ñieåm
Caâu 1: Vieát chöông trình nhaäp vaøo 3 soá a, b, c töø baøn phím, in ra maøn hình soá lôùn nhaát
trong 3 soá vöøa nhaäp.
Caâu 2: Vieát chöông trình nhaäp vaøo 3 soá a, b, c töø baøn phím, in ra maøn hình soá nhoû nhaát
trong 3 soá vöøa nhaäp.
Caâu 3: Vieát chöông trình nhaäp hai soá nguyeân a, b töø baøn phím vaø in 2 soá ñoù ra maøn
hình theo thöù töï khoâng giaûm?
Caâu 4: Vieát chöông trình giaûi phöông trình baäc nhaát bx + c = 0.
Caâu 5: Vieát chöông trình nhaäp vaøo 3 soá a, b, c töø baøn phím, in ra maøn hình keát quaû
kieåm tra ba soá ñoù coù theå laø ñoä daøi caùc caïnh cuûa moät tam giaùc hay khoâng.
Caâu 6: Vieát chöông trình tính ñieåm trung bình cuûa 2 moân Toaùn vaø Vaên, vôùi ñieåm Toaùn
vaø Vaên ñöôïc nhaäp töø baøn phím. In ra maøn hình keát quaû ÑTB vöøa tính vaø xeáp loaïi cuûa
ÑTB.
(Cho bieát: DTB>=8.0 XL Gioûi, 8.0>DTB>=6.5 XL Khaù, 6.5>DTB>=5.0 XL
TB, coøn laïi XL Yeáu)
Phaàn: 2,0 ñieåm -> Vaän duïng toång hôïp, tu duy
Löu yù: 1. söû duïng caâu leänh ñieàu kieän loàng nhau:
If then else if then else if then else ……….
2. Neáu sau töø khoùa then muoán thöïc hieän hôn 1 caâu leänh thì caùc caâu leänh ñoù phaûi
ñaët trong 2 töø khoùa: Begin …. End; (tính giaù trò x vaø in nghieä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: Nguyeãn Vaên Phong