Được khai báo sau từ khoá Var D.. Với giá trị nào của a dưới đây thì biểu thức trên có giá trị TRUE: Câu 5: Lệnh Writeln; dùng để: Câu 6: Cho hai đoạn chương trình tìm số lớn nhất trong
Trang 1TRƯỜNG THPT HẢI LĂNG
Môn: Tin học 11
Họ và tên: Lớp: 11B
========================================================================
A PHẦN TRẮC NGHIỆM (3điểm):
Câu 1: Để gán giá trị 3 cho biến M, cách gán nào dưới đây là đúng:
Câu 2: Để xuất ra màn hình giá trị trung bình của 2 số a, b ta dùng lệnh nào sau đây:
A Write( ‘trung binh la: ,(a+b)/2’); B Write(‘trung binh la:’,a+b/2);
C Write( ‘trung binh la:’,(a+b)/2); D Write(‘trung binh la:,a+b/2’);
Câu 3: Biến số là
C Được khai báo sau từ khoá Var D Câu A và C đúng E Câu B và C đúng
Câu 4: Cho biểu thức: (a mod 100 <10) and (a div 100 > 1) Với giá trị nào của a dưới đây thì biểu
thức trên có giá trị TRUE:
Câu 5: Lệnh Writeln; dùng để:
Câu 6: Cho hai đoạn chương trình tìm số lớn nhất trong hai số, chương trình nào cho kết quả đúng ?
Var a,b,max: Integer Var a,b,max: Integer
Write(‘Nhap vao hai so:’); Write(‘Nhap vao hai so:’);
If max<b Then max:=b else max := a; If a<b then max:=b Else max:=a;
A A và B đều sai B A đúng, B sai C A sai, B đúng D A và B đều đúng
Câu 7: ……… được dùng với ý nghĩa nhất định, khi cần dùng với ý nghĩa khác thì phải khai
báo:
Câu 8: Từ nào sau đây là từ khóa
Câu 9: Trong Turbo Pascal, lời chú thích được đặt giữa
A Cặp dấu { và } B Cặp dấu (* và *) C Cặp dấu /* và */ đúng
Câu 10: Trong Pascal, kiểu dữ liệu nào chỉ có 2 giá trị ?
B PHẦN TỰ LUẬN (7điểm):
Câu 1:Viết chương trình nhập vào từ bàn phím 3 số thực a, b, c In ra màn hình số lơn nhất trong 3
số đó
Câu 2: Viết chương trình nhập vào từ bàn phím 3 số thực a, b, c Kiểm tra chúng có phải là độ dài 3
cạnh của 1 ta, giác hay không? Nếu phải hãy tính chu vi và diện tích của tam giác đó?
(Biết s = p p a p b p c( − )( − )( − ) , p = ½(a+b+c))
Trang 1/2 - Mã đề thi 4
Điểm :
Trang 2ĐÁP ÁN:
A PHẦN TRẮC NGHIỆM:
B PHẦN TỰ LUẬN:
Câu 1: (3Điểm)
Program max_3so;
Var a, b, c, max : real; 0.5đ
BEGIN
Write(‘nhap a, b, c ‘); Readln( a, b, c); 0.5đ
If a > b then max := a else max := b; 1đ
If max < c then max := c;
Writeln( ‘max = ‘, max :10); 0.5đ
Readln; 0.5đ ( không sai cú pháp)
END.
Câu 2: (4Điểm)
Program tam_giac;
Var a, b, c, s, p : real; 0.5đ
BEGIN
Write(‘nhap a, b, c ‘); Readln( a, b, c); 0.5đ
If ((a +b) > c) and ((a+b) > c) and ((b+c)>a) then 2đ
Begin
p:= ½(a+b+c);
s:= sqrt((p*(p-a)*(p-b)*)p-c));
Write(‘Dien tich = ‘, s: 12:2; ‘Chu vi= ‘, 2*p: 12:2);
End
Else Writeln(a:5:2, b:5:2, c:5:2, ‘ khong phai là do dai 3 canh cua 1 tgiac’); 0.5đ
Readln; 0.5đ ( pháp)
END.
Trang 2/2 - Mã đề thi 4
