Câu 10: Trong NNLT Pascal, về mặt cú pháp câu lệnh nào sau đây là đúng với cấu trúc lặp While có một lệnh con. A.[r]
(1)TR C NGHI M TIN H C 11 (ôn tháng 2)Ắ Ệ Ọ Bài 10: C u trúc l pấ ặ
Câu 1: Vòng l p ki m tra u ki n trặ ể ề ệ ước th c hi n công vi c là:ự ệ ệ A For …to…do…
B For …downto…do… C While…do…
D Repeat…Until…
Câu 2: Bi n đ m c a vòng l p v i s l n l p bi t trế ế ủ ặ ớ ố ầ ặ ế ước thường có ki uể A S nguyênố
B S th cố ự
C Ký tự
D Logic
Câu 3: Vòng l p có bi n đ m t đ ng tăng lên m t đ n v sau m t l n ặ ế ế ự ộ ộ ơ ị ộ ầ th c hi n câu l nhự ệ ệ
A For …to…do… B For …downto…do… C While…do…
D Repeat…Until…
Câu 4: Vòng l p có bi n đ m t đ ng gi m m t đ n v sau m t l n ặ ế ế ự ộ ả ộ ơ ị ộ ầ th c hi n câu l nhự ệ ệ
A For …to…do… B For …downto…do… C While…do…
D Repeat…Until…
Câu 5: In k t qu sau th c hi n đo n chế ả ự ệ ạ ương trình sau: For i:=1 to 10 Write(i);
A B 10
C 11 D 12345678910
Câu 6: V i i ki u d li u Integer Đo n chớ ể ữ ệ ạ ương trình sau in k t qu nào?: ế ả For i:=5 downto write(‘i’);
A iiiii B 5i C 12345 D 54321
Câu 7: Pascal 7.0, k t qu l nh: for i:=1 to i:=i+1; write(i);?ế ả ệ
A.4 B.5 C.6 D.Báo l iỗ
Câu 8: Pascal 7.0, k t qu l nh: ế ả ệ
var k:boolean; begin if k then write(k) else write(1); end A.True
(2)Câu 9: Đo n chạ ương trình sau cho k t qu là:ế ả
Var S,i:integer; Begin
S:=0;
For i:=1 downto S:= S+i;Write(‘S = ’,S); End
A S = 15 B S = C S =
D Chương trình báo l iỗ
Câu 10: Trong NNLT Pascal, mặt cú pháp câu lệnh sau với cấu trúc lặp While có lệnh ?
A While a>5 a := a – ; B While a>5 ; a := a – C While a>5 a := a – D While a>5 ; a := a – ;
Bài 11: Ki u m ng chi uể ả ề
Câu 11: Cú pháp khai báo tr c ti p m ng chi u làự ế ả ề
A VAR <Tên bi n m ng>:ARRAY[ki u ch s ] OF <Ki u ph n t >;ế ả ể ỉ ố ể ầ
B VAR <Tên bi n m ng>:ARRAY[ki u ph n t ] OF <Ki u ch s >;ế ả ể ầ ể ỉ ố
C VAR <Tên bi n m ng>:ARRAY[ki u ch s ]: <Ki u ph n t >;ế ả ể ỉ ố ể ầ
D TYPE <Tên bi n m ng>:ARRAY[ki u ch s ] OF <Ki u ph n t >;ế ả ể ỉ ố ể ầ
Câu 12: Đ đ nh nghĩa ki u m ng chi u ta dùng cú phápể ị ể ả ề
A TYPE <Tên ki u m ng>=ARRAY[ki u ch s ] OF <Ki u ph n t >;ể ả ể ỉ ố ể ầ
B TYPE <Tên ki u m ng>:ARRAY[ki u ch s ] OF <Ki u ph n t >;ể ả ể ỉ ố ể ầ
C TYPE <Tên ki u m ng>=ARRAY[ki u ph n t ] OF <Ki u ch s >;ể ả ể ầ ể ỉ ố
D VAR <Tên ki u m ng>=ARRAY[ki u ch s ] OF <Ki u ph n t >;ể ả ể ỉ ố ể ầ
Câu 13: Khai báo ĐÚNG khai báo m ng chi u sau:ả ề
A VAR A:ARRAY[1-100] OF Integer; B VAR A:ARRAY[1 100] OF Integer; C VAR A:ARRAY[100] OF Integer; D VAR A=ARRAY[1 100]OF Integer;
Câu 14: Ch n câu phát bi u v ki u ch s m ngọ ể ề ể ỉ ố ả A Ch s m ng có th ki u s nguyên, ki u ký t , ki u logicỉ ố ả ể ể ố ể ự ể
B Ch s m ng ch có th ki u s nguyênỉ ố ả ỉ ể ể ố
C Ch s m ng m t dãy s nguyên liên t c t n1 đ n n2 n2>n1ỉ ố ả ộ ố ụ ế
D Có th dùng t t c ki u d li u đ làm ch s m ngể ấ ả ể ữ ệ ể ỉ ố ả
Câu 15: M ng m t chi u là…ả ộ ề
A …dãy h u h n ph n t ki uữ ầ ể
B …dãy h u h n ph n t mà m i ph n t có th m t ki u d li u khác ữ ầ ỗ ầ ể ộ ể ữ ệ
nhau
C …dãy h a h n s nguyênữ ố
D …dãy ph n t ki uầ ể
(3)A Tên bi n m ng, ti p theo ch s vi t c p ngo c [ ]ế ả ế ỉ ố ế ặ ặ
B Tên bi n m ng, ti p theo ch s vi t c p ngo c ( )ế ả ế ỉ ố ế ặ ặ
C Tên ki u m ng, ti p theo ch s vi t c p ngo c [ ]ể ả ế ỉ ố ế ặ ặ
D Tên ki u m ng, ti p theo ch s vi t c p ngo c ( )ể ả ế ỉ ố ế ặ ặ
Câu 17: Cho câu l nh:ệ
FOR i:=1 TO 100 DO A[i]:= Random(50)-Random(50);
Hãy cho bi t giá tr c a m ng A câu l nh nh n giá tr nguyên ế ị ủ ả ệ ậ ị
đo n nào?ạ
A T -49 đ n 49 B T -49 đ n 50ừ ế ế
C T -50 đ n 50 D T -50 đ n 49ừ ế ế
Câu 18: Cho khai báo
VAR Mang1d:ARRAY[-Nmax Nmax] OF Integer; Khai báo ĐÚNG trường h p nào?ợ
A Nmax m t h ng s nguyên độ ằ ố ược khai báo trước B Nmax m t bi n nguyên độ ế ược khai báo trước
C Nmax ph i ki u s nguyên ho c ki u ký t ho c ki u logicả ể ố ặ ể ự ặ ể
D M i trọ ường h pợ
Câu 19: Đ in giá tr ph n t th 20 c a m ng m t chi u A hình ta ể ị ầ ử ứ ủ ả ộ ề vi t:ế
A Write(A[20]); B Write(A(20)); C Readln(A[20]); D Write([20]);
Câu 20: Cho khai báo:
Var A: Array[1 4] of Real; i : Integer ; Ð nh p d li u cho A, ch n câu nào:ể ậ ữ ệ ọ
A For i:=1 to Write(‘ Nh p A[‘, i, ‘]:’); Readln(A[i]);ậ
B For i:=1 to Readln(‘ Nh p A[‘, i, ‘]:’);ậ
C For i:=1 to Begin Write(‘ Nh p A[‘, i, ‘]:’); Readln(A[i]); End;ậ
D Write(‘ Nh p A:’); Readln(A);ậ