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

Ñ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