Thứ sáu, 01/11/2024
IMG-LOGO
Trang chủ Lớp 11 Tin học Top 4 Đề thi Tin học 11 Học kì 1 có đáp án

Top 4 Đề thi Tin học 11 Học kì 1 có đáp án

Đề thi Học kì 1 Tin học 11 có đáp án (Đề 4)

  • 1637 lượt thi

  • 22 câu hỏi

  • 45 phút

Danh sách câu hỏi

Câu 11:

Biểu thức nào không phải là biểu thức trong Pascal?

Xem đáp án

Đáp án B


Câu 12:

Trong pascal, biểu diễn sqr(x) có nghĩa là:

Xem đáp án

Đáp án A


Câu 13:

Phép toán nào đúng khi số nguyên A là số lẻ:

Xem đáp án

Đáp án B


Câu 16:

Để đưa ra màn hình giá trị của biến a kiểu nguyên và biến b kiểu thực ta dùng lệnh

Xem đáp án

Đáp án C


Câu 17:

Để nhập giá trị cho 2 biến a và b ta dùng lệnh

Xem đáp án

Đáp án D


Câu 21:

Viết câu lệnh rẽ nhánh tính:

Xem đáp án

GIẢI THÍCH

Cách 1:

if (x >= 0) and (y >= 0)

then A:= sqr(x) + sqr(y) + 1 else A:= sqrt(x*y);

Cách 2:

if ( x < 0) and (y < 0)

then A:= sqrt(x*y) else A:= sqr(x) + sqr(y) + 1;


Câu 22:

Viết chương trình:

- Nhập mảng một chiều các số nguyên (không quá 100 phần tử).

- Đếm và tính tổng các số chẵn và là bội của 3. Thông báo kết quả ra màn hình.

Xem đáp án

GIẢI THÍCH

Program bt_3;

Uses crt;

Var a: array[1..100] of integer;

Dem, Tong, n, i: integer;

Begin

Clrscr;

 Writeln(‘nhap so phan tu, n=’);

 Readln (n);

 for i := 1 to n do

 begin

 writeln(‘nhap gia trij phan tu thu ’,i,’ =’);

 readln(a[i]);

 end;

 Dem:=0;

 Tong:=0;

 For i:=1 to n do

 If (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then

 begin

 Dem:= Dem+1;

 Tong:= Tong+a[i];

 end;

 writeln(‘Dem la:’,Dem);

 Writeln(‘Tong la:’,Tong);

 Readln

End.


Bắt đầu thi ngay