BÀI 1: Hãy khai báo 1 mảng số thực tối đa 200 phần tử (bằng 2 cách).
BÀI 2: Chọn 1 câu trả lời đúng: Khai báo mảng số nguyên, tối đa 100 phần tử:
a. Type Mang = array [1….100] of integer;
Var A: Mang;
b. Var A: array [1..100] of byte;
c. Var A: array [1..100] of interger;
d. Type Mang = array [1..100] of real;
Var A: Mang;
BÀI 3: Chọn 1 câu trả lời đúng: Tham chiếu đến phần tử thứ nhất của mảng A:
a. A[1] b. A[2] c. A[3] d. A[n]
BÀI 4: Viết chương trình nhập vào 1 mảng số nguyên tối đa 100 phần tử. Hãy xuất mảng ra màn hình.
BÀI 5: Viết Chương trình nhập vào 1 mảng số nguyên tối đa 200 phần tử. Hãy đếm xem mảng trên có bao nhiêu phần tử?
Bài 1:
Var A:ARRAY[1..200] of real;
Bài 2:
A: Sử dụng “=” -> loại
B: Kiểu số nguyên mà dùng “byte” -> loại
D: Sử dụng “Type” khai báo mảng -> loại
⇒C
Bài 4:
Uses crt;
Var n,i:integer;
B:ARRAY[1..100] of integer;
begin
write(‘Nhap do dai day, n = ‘); readln(n);
For i:=1 to n do
begin
write(‘So thu B[‘,i,’] la: ‘); readln(B[i]);
end;
writeln(‘Mang la: ‘,B[i]);
end.
Câu 1:
Cách 1: Var A: array[1..200] of extended;
Cách 2:
Type mang = array[1..200] of extended;
Var A: mang;
Câu 2:
A. Đúng
B. Sai (Byte chỉ chứa số nguyên dương từ 0 -> 255)
C. Đúng
D. Sai (Real là số thực)
Câu 3: A[1]: Tham chiếu đến phần tử thứ 1
=> Đáp án A
Câu 4:
Program Arr;
Uses crt;
Var A: array[1..100] of longint;
n, i: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do Read(A[i]);
Write(‘Mang vua nhap: ‘);
For i:=1 to n do Write(A[i],’ ‘);
Readln
End.
Câu 5:
Program Arr;
Uses crt;
Var A: array[1..100] of longint;
n, i: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do Read(A[i]);
Write(‘Mang co ‘,n,’ phan tu’);
Readln
End.