KT 1 TIET HK II

Nhập dữ liệu cho mảng một chiều B.. Nhập dữ liệu cho mảng hai chiều C.. Nhập dữ liệu cho một bản ghi D.

KT 45P TIN 11 NC – HK II

ĐỀ B

I TN:

Câu 1: Đoạn chương trình sau làm gì?

S:=0;

For i:=1 to n do S:=S+a[i];

A Đếm số phần tử của mảng A B Tính tổng các phần tử của mảng A

Câu 2 Cho mảng A gồm các phần tử: 3; -7; 9; 5; -3; 6; 8; 17; 0; -15.

Cho biết giá trị của m sau đoạn chương trình:

m:=A[1]; For i:=1 to 10 do If A[i] > m then m := A[i];

Câu 3: Chọn khai báo biến đúng trong ngôn ngữ lập trình Pascal?

Câu 4: Trong pascal, sau khi thực hiện xong đoạn chương trình sau giá trị của biến S là?

S:= 'mua thu Ha Noi';

Delete(S, 8,7);

Insert('Ha Noi ', S, 1);

A Mua thu Ha Noi mua thu

B Mua thu Ha Noi

C Ha Noi mua thu

D Mua thu

Câu 5: Khai báo sau đây thì mảng có tối đa bao nhiêu phần tử?

Var a:array [1 10,2 5] of byte;

Câu 6: Đoạn chương trình sau làm gì?

k:=0;

For i:=1 to length(a) do

If a[i]='a' then k:=k+1;

Toan,Van :Real;

HOTEN:

LỚP:

A.Writeln(Lop); B.Write(Lop[i]); C Write(Lop[i].T); D.Writeln(Lop[i].Toan);

Câu 8 Đoạn lệnh sau thường dùng để:

For i: = 1 To n Do

Begin

Write('A[',i,']=');

Read(A[i]);

End;

A Nhập dữ liệu cho mảng một chiều

B Nhập dữ liệu cho mảng hai chiều

C Nhập dữ liệu cho một bản ghi

D Nhập dữ liệu cho một xâu

Câu 9: Hãy chọn thứ tự thực hiện các thao tác đọc dữ liệu từ file:

(a) Đóng file (b) Mở file (c) Gán tên file với biến file (d) Đọc dữ liệu từ file

Câu 10: Giả sử đã khai báo biến mảng và các biến khác đoạn chương trình dưới đây làm gì?

S:=0 ;

FOR I:=1 TO N DO

IF A[I]<0 THEN S:=S+A[I];

WRITELN('S=',S);

A Tính tổng các số âm trong mảng A

B Tính tích các số dương trong mảng A

C Tính tích bình phương các số âm trong mảng A

D Tính tổng bình phương các số âm trong mảng A

Câu II: Viết chương trình:

- Nhập từ bàn phím số nguyên dương N (N<=100) và giá trị các phần tử của mảng một chiều gồm N phần tử, cho biết mỗi phần tử là một số nguyên

- Tính tổng các phần tử của mảng có giá trị không chia hết cho 3 và xuất kết quả ra màn hình