1. Trang chủ
  2. » Tất cả

KIEM TRA 1 TIET HKII tin 11

1 1 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 1
Dung lượng 44 KB

Các công cụ chuyển đổi và chỉnh sửa cho tài liệu này

Nội dung

1 ĐỀ 1 Cách khai báo mảng 1 chiều nào sau đây là đúng Đúng Sai a Var a array[1 10] of integer; ( ( b Var b array(1 10) of integer; ( ( c Var c array[1 10] of integer; ( ( d Var d array (1 10) of integ[.]

Trang 1

1 Cách khai báo mảng 1 chiều nào sau đây là đúng : Đúng Sai

a Var a: array[1…10] of integer; o o

b Var b: array(1 10) of integer; o o

c Var c: array[1 10] of integer; o o

d Var d: array (1 10) of integer; o o

2 Cách khai báo xâu nào sau là đúng: Đúng Sai

b Type xau = string; var x,y:xau; o o

c Type ten: string[30]; var hoten: ten; o o

d Var s1,s2:string; x,y:string[10]; o o

3 Hãy điền vào chổ trống (…….) trong bảng sau

‘la ngon ngu lap trinh ‘Pascal’ Insert(……,s2,……); ‘Pascal la ngon ngu lap trinh’

……… ‘Ngon ngu Pascal’ Insert(……,s2,……); ‘Ngon ngu lap trinh Pascal’

Trường THPT Ngô Gia tự

Họ và tên:………

Lớp:………

KIỂM TRA 1 TIẾT Môn: Tin học 11 Thòi gian 45 phút

4 Lập trình nhập từ bàn phím một xâu Sau đó kiểm tra xem trong xâu có phải là toàn chữ số hay không? Đưa kết quả ra màn hình (2đ)

5 Lập trình nhập từ bàn phím dãy gồm n số nguyên (n<=100) Tìm và đưa ra màn hình giá trị

số nguyên lớn nhất của dãy thỏa mãn chia hết cho 3 Nếu không có số nào như vậy thông báo không có (2đ)

6 Cho chương trình sau

A (1.5đ)

Program Bai3;

Var A: array[1 4,1 4] of integer;

T,i,j:integer;

Begin

For i:= 1 to 4 do

For j:= 1 to 4 do

Begin

Write(‘Nhap A[‘,i,j,’]=’);

Readln(a[i,j]);

End;

T:=0;

For i:= 1 to 4 do

T:= T+ a[i,i];

Write(‘T=’,T);

Readln;

End

a) Chương trình trên thực hiện công việc gì?

b) Cho A:4x4 và giá trị mỗi phần tử của mảng A

được nhập như bảng sau:

Kết quả T sau khi thực hiên chương trình bằng bao

nhiêu?

B (1.5 đ) Cho chương trình sau:

Prgram Bai3;

Var A:array[1 100] of integer;

T,N,k,i:integer;

Begin Write(‘Nhap vao so nguyen N:’);

Readln(N);

Write(‘Nhap vao so nguyen K:’);

Readln(K);

For i:= 1 to n do Begin Write(‘Nhap phan tu thu ‘,i);

Readln(a[i]);

End;

T:=0;

For i:= 1 to n do

If A[i] < K then T:=T+ A[i];

Write(‘T=’,T);

Readln;

End

a) Chương trình trên thực hiện công việc gì?

b) Giả sử nhập vào số K=7, N=10 và mảng A như sau:

Sau khi thực hiện chương trình trên kết quả ra màn hình là bao nhiêu?

Ngày đăng: 22/11/2022, 06:05

w