Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phong Thanh

Câu 1

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. Ký tự

B. Số nguyên

C. Số thực

D. .Logic

Câu 2

Xác định giá trị của biểu thức:
S = (135 div 100) + (135 mod 100) div 10 + (135 mod 10)

A. S = 4

B. S=10

C. S=6

D. S=9

Câu 3

đoạn chương trình sau thực hiện công việc nào trong các công việc sau:

i:=pos(‘ ‘,S); {‘ ’ là 2 dấu cách}

While i<>0 do

Begin

Delete(s, i, 1);

i:=pos(‘ ‘, s);

End;

A. Xóa các dấu cách liền nhau cuối cùng trong xâu;

B. Xóa hai dấu cách liên tiếp nhau đầu tiên trong xâu;

C. Xóa đi 1 trong 2 dấu cách đầu tiên trong xâu;

D. Xóa đi 1 dấu cách trong 2 dấu cách liên tiếp trong xâu s để s không còn 2 dấu cách liền nhau;

Câu 4

Cho str là một xâu kí tự, đoạn chương trình sau thực hiện công việc gì ?

for i := length(str) downto 1 do write(str[i]) ;

A. In từng kí tự xâu ra màn hình

B. In từng kí tự ra màn hình theo thứ tự ngược, trừ kí tự đầu tiên.

C. In từng kí tự ra màn hình theo thứ tự ngược

D. In xâu ra màn hình

Câu 5

Hãy chọn phương án ghép đúng. Cho xâu S là ‘Hanoi-Vietnam’. Kết quả của hàm Pos(‘Vietnam’,S) là

A. 5

B. 8

C. 7

D. 6

Câu 6

Cho biết màn hình xuất hiện như thế nào với đoạn chương trình sau:

d:=0;

For i:=1 to 10 do

Begin

i:= i+1; Write(d,' ');

End;

A. 11

B. 1 2 3 4 5 6 7 8 9 10

C. 0 0 0 0 0

D. 10

Câu 7

Đoạn chương trình sau thực hiện việc nào trong các việc sau:

S:=0;

For i:= 1 to n do S:=S+ i;

A. Tính tổng các giá trị từ 1 đến n;

B. Không thực hiện việc nào trong 3 việc trên;

C. In ra màn hình các giá trị từ 1 đến n;

D. Đếm các giá trị từ 1 đến n;

Câu 8

Hãy điền vào chỗ (…)

S1:= ‘CDE' S2:= 'ABG' ; Insert( S1,S2, ...);

để thu được kết quả S2= 'ABCDEG'

A. 1

B. 4

C. 2

D. 3

Câu 9

Khi điều kiện đúng, câu lệnh IF <điều kiện> Then <câu lệnh1> Else <Câu lệnh2>; sẽ thực hiện

A. Câu lệnh 1

B. Câu lệnh 2

C. Thực hiện câu lệnh 2 trước rồi đến câu lệnh 1

D. Thực hiện câu lệnh 1 trước rồi đến câu lệnh 2

Câu 10

Lệnh Write trong đoạn chương trình sau thực hiện bao nhiêu lần ?

FOR i:=1 TO 3 DO

FOR j:=2 TO 5 DO Write (i,' ',j);

A. 3 lần

B. 5 lần

C. 12 lần

D. 9 lần

Câu 11

Tên nào đặt Sai quy định của Pascal:

A. Giai_Ptrinh_Bac_2;

B. Ngaysinh;

C. Sv2000 ;

D. Noi sinh;

Câu 12

phần tử đầu tiên của xâu kí tự mang chỉ số là:

A. 0

B. 1

C. Do người lập trình khai báo

D. Không có chỉ số

Câu 13

sau khi thực hiện đoạn chương trình sau, giá trị của biến S là:

S:=’Ha Noi mua thu’;

Delete(S,7,8);

Insert(‘Mua thu ‘,S,1);

A. ‘Ha Noi’;

B. ‘Mua thu Ha Noi’;

C. ‘Mua thu Ha Noi mua thu’;

D. ‘Ha Noi Mua thu’;

Câu 14

đoạn chương trình sau thực hiện công việc nào trong các công việc sau:

i:=pos(‘ ‘,S); {‘ ’ là 2 dấu cách}

While i<>0 do

Begin

Delete(s, i, 1);

i:=pos(‘ ‘, s);

End;

A. Xóa các dấu cách liền nhau cuối cùng trong xâu;

B. Xóa đi 1 dấu cách trong 2 dấu cách liên tiếp trong xâu s để s không còn 2 dấu cách liền nhau;

C. Xóa đi 1 trong 2 dấu cách đầu tiên trong xâu;

D. Xóa hai dấu cách liên tiếp nhau đầu tiên trong xâu;

Câu 15

Câu lệnh lặp biết trước số lần lặp:

FOR <biến đếm> := <Giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Thì số lần lặp được tính theo công thức nào sau đây?

A. Giá trị cuối – giá trị đầu + 1

B. Giá trị cuối + giá trị đầu + 1

C. Giá trị cuối – giá trị đầu – 1

D. Giá trị đầu – giá trị cuối + 1

Câu 16

Vòng lặp nào 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. Repeat…Until…

B. For …to…do…

C. For …downto…do…

D. While…do…

Câu 17

Hằng xâu Le Minh Xuan được viết như thế nào?

A. "Le Minh Xuan"

B. ‘Le Minh Xuan"

C. Le Minh Xuan

D. ‘Le Minh Xuan’

Câu 18

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 4 do Readln(‘ Nhập A[‘, i, ‘]:’);

B. For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]);

C. Write(‘ Nhập A:’); Readln(A);

D. For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End;

Câu 19

với xâu kí tự ta có thể:

A. Gán biến xâu cho biến xâu và gán một kí tự cho biến xâu;

B. So sánh hai xâu kí tự, gán biến xâu cho biến xâu và gán một kí tự cho biến xâu;

C. So sánh và gán một biến xâu cho biến xâu.

D. So sánh hai xâu kí tự;

Câu 20

Cho xâu s = ‘123456789’, sau khi thực hiện thủ tục delete(s,3,4) thì:

A. S = ‘123789’;

B. S = ‘1256789’;

C. S = ‘’;

D. S = ‘12789’;

Câu 21

Cho St là biến xâu, sau khi thực hiện các lệnh:

St:=’TINHOC11’;

Delete(St, 4, 3);

-Kết qủa in lên màn hình là:

A. HOC11

B. TIN11

C. TINH1

D. TINHOC

Câu 22

Trong quá trình nhập dữ liệu của mảng một chiều, để giá trị i cũng tăng theo phần tử thứ i ta viết như sau:

A. Write(‘A[‘i’]=’); readln(A[i]);

B. Write(‘A[i]=’); readln(A[i]);

C. Write(“A[“,i,”]=”); readln(A[i]);

D. Write(‘A[‘,i,’]=’); readln(A[i]);

Câu 23

Cho sâu s1 = ‘123’; s2 = ‘abc’ sau khi thực hiện thủ tục Insert(s1, s2, 2) thì:

A. s1 = ‘123’; s2 = ‘12abc’

B. s1 = ‘ab123; s2 = ‘abc’

C. s1 = ‘1abc23’; s2 = ‘abc’

D. s1 = ‘123’; s2 = ‘a123bc’

Câu 24

Cho St là biến chuỗi, sau khi thực hiện bốn lệnh:
St:=’ABCDEF’;
Delete(St, 3, 2);
Insert(‘XYZ’, St, 2);
Write(St);
-Kết qủa in lên màn hình là:

A. AXYZBCDEF

B. ABXYZEF

C. AXYZ

D. AXYZBEF

Câu 25

Var A; string[20]; Xâu A có thể chứa?

A. 256 kí tự

B. 255 kí tự

C. 20 kí tự

D. Báo lỗi

Câu 26

Cho câu lệnh For i:= 5 to 10 do write(‘Chao ban’); Câu ‘Chao ban’ xuất ra mấy lần:

A. 9

B. 6

C. 10

D. 5

Câu 27

Hai xâu kí tự được so sánh dựa trên:

A. Độ dài tối đa của hai xâu;

B. Độ dài thực sự của hai xâu;

C. Mã của từng kí tự trong các xâu lần lượt từ trái sang phải;

D. Số lượng các kí tự khác nhau trong 2 xâu;

Câu 28

Trong các hàm sau, hàm nào cho kết quả là độ dài thực sự của xâu st

A. Length(st);

B. Pos(st1,st2);

C. Upcase(ch);

D. Copy(st1,m,n);

Câu 29

Cho xâu s = ‘123456789’, sau khi th ực hiện thủ tục delets(s,3,4) thì:

A. S = ‘12789’;

B. S = ‘1256789’;

C. S = ‘’;

D. S = ‘123789’;

Câu 30

Cho biết kết quả khi thực hiện đoạn chương trình sau:

d:=0;

For i:=1 to 10 do d:= d+1;

Write(d);

A. 10

B. 1

C. 0

D. 11

Câu 31

Cho St là biến chuỗi, sau khi thực hiện hai lệnh :
St:= Copy( 'PASCAL VERSION 5.5' , 8, 7) ;
Write(St);
- Kết qủa in lên màn hình là:

A. VERSION

B. 5.5

C. VERSION 5.5

D. PASCAL

Câu 32

hàm length(s) cho kết quả gì?

A. Số kí tự hiện có trong xâu S không tính các khoảng trắng(Kí tự trắng, khoảng cách);

B. Số kí tự hiện có của xâu S;

C. Độ dài xâu S khi khai báo;

D. Số các kí tự của xâu không tính dấu cách cuối cùng;

Câu 33

Cho a:=3; b:=5. Câu lệnh IF a>b Then a:=4 Else b:=1; Sau khi thực hiện đoạn chương trình trên đáp án nào đúng?

A. a=3

B. b=5

C. b=1

D. a=4

Câu 34

Cho s = ‘500 ki tu’, hàm Length(s) cho giá trị bằng:

A. 500

B. 9

C. ‘5’

D. ‘500’

Câu 35

Câu lệnh nào sau đây đúng?

A. for i:=1 to 5 do s:=s*i;

B. for i:=5 downto 1; do s:=s+i;

C. for i:= 1 to 4 do s= -i;

D. for i=1 to 5 do s=s+2;

Câu 36

Cho các biến St chuỗi và k nguyên. Sau khi gán:
St:='Sinh vien Tin hoc hoc Tin hoc'
k := Pos('Tin', ST) ;
- Giá trị của k là :

A. k=11

B. k=23

C. k=26

D. k=13

Câu 37

Đoạn chương trình sau đây dùng để thực hiện công việc gì?

For i:=1 to n do

If i mod 2 = 0 then Writeln(A[i],’ ‘);

A. In ra màn hình giá trị của các phần tử có chỉ số chẵn trong mảng

B. In ra màn hình giá trị của các phần tử có giá trị chẵn trong mảng

C. In ra màn hình tất cả các phần tử trong mảng

D. Tất cả đều đúng

Câu 38

Hãy cho biết giá trị của M sau khi thực hiện đoạn chương trình sau với a=19 và b=12 ?

M := a ;

If a<b then M := b ;

A. M = 19

B. M = 12

C. M nhận cả hai giá trị trên

D. M không nhận giá trị nào

Câu 39

Cho đoạn chương trình sau
If (a<>0) then x:=9 div a Else x:=-1;
Write(‘ x= ‘, x + 1);
Khi cho a=0 thị đoạn chương trình trên sẽ in ra màn hình giá trị x=?

A. x=0;

B. x= -1

C. x là không xác định

D. x=1

Câu 40

hàm Upcase(ch); cho kết quả là:

A. Chữ cái in hoa tương ứng với ch;

B. Xâu ch toàn chữ thương;

C. Xâu ch toàn chữ hoa;

D. Biến ch thành chữ thường;

Câu 41

Var A:Array[1..200] of real;

Nhóm lệnh nào sau đây dùng để nhập giá trị cho tất cả các phần tử trong mảng?

A. For i:= 1 to 200 do Writeln(A[i]);

B. For i:= 1 to 200 do Readln(A[i]);

C. For i:= 1 to 200 do Readln(A[1]);

D. For i:= 1 to 200 do Writeln(i);

Câu 42

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

X:= length(s);

For i:=x downto 1 do

If S[i] =’ ‘ then delete(s,i,1); {‘ ’ là khoảng trắng}

A. Xóa khoảng trắng đầu tiên trong xâu kí tự S;

B. Xóa khoảng trắng tại vị trí cuối cùng trong xâu kí tự S;

C. Xóa khoảng trắng thừa trong xâu kí tự S;

D. Xóa mọi khoảng trắng trong xâu kí tự S;

Câu 43

đoạn chương trình sau thực hiện công việc gì?

S1:=’anh’; S2:=’em’; i:=Pos(s2,s);

While i<> 0 do

Begin

Delete(s, i, 2);

Insert(s1, s, i);

i:=pos(s2, s);

End;

A. Thay toàn bộ từ ‘anh’ đầu tiên trong xâu S bằng từ ‘em’;

B. Thay toàn bộ từ ‘em’ trong xâu S bằng từ ‘anh’;

C. Thay toàn bộ từ ‘em’ đầu tiên trong xâu S bằng từ ‘anh’;

D. Thay toàn bộ từ ‘anh’ trong xâu S bằng từ ‘em’;

Câu 44

Lệnh IF.. THEN.. ELSE…; thuộc lệnh nào sau đây?

A. Vòng lặp

B. Lệnh rẽ nhánh

C. Lệnh ghép

D. Lệnh chọn lựa

Câu 45

phần mở rộng của tập tin Pascal chứa tối đa bao nhiêu kí tự?

A. 64

B. 32

C. 8

D. 16

Câu 46

Sau khi thực hiện đoạn chương trình sau, thì biến X có giá trị là bao nhiêu?
A:= 4 ; B: = 1; X:= 2 ;
IF A + B > 5 THEN X := X + A + B; WRITE (X);

A. 7

B. 0

C. 5

D. 2

Câu 47

S:= 'ABCDEG ' ;

Delete ( S ,2, 3); thu được kết quả :

A. S=‘AEG’

B. S=‘ADEG’

C. S=‘ABG’

D. S=‘ABEG’

Câu 48

thủ tục chèn xâu S1 vào xâu S2 bắt đầu từ vị trí vt được viết:

A. Insert(vt,S1,S2);

B. Insert(S2,S1,vt);

C. Insert(S1,vt,S2);

D. Insert(S1,S2,vt);

Câu 49

Để tìm vị trí xuất hiện đầu tiên của xâu ‘hoa’ trong xâu s ta có thể viết?

A. S1:=’hoa’; I:=pos(s1,’hoa’);

B. I:=pos(‘hoa’,’hoa’);

C. I:=pos(’hoa’,s);

D. I:=pos(s,’hoa’);

Câu 50

Khai báo nào đúng:

A. Var A : array[1..n] of integer;

B. Var A: array[3, 2] of Integer;

C. Var n, m : integer ; A: array[1..n] of integer;

D. Const n=2; Var A: array[1..n] of integer;


Các câu hỏi tương tự
Khánh Mỹ
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
luc lun
Xem chi tiết
Ngô Thành Chung
Xem chi tiết
Nguyễn Hữu Thành Vinh
Xem chi tiết
LINH VU HA NGOC
Xem chi tiết
Thangg PH
Xem chi tiết
Nguyễn Thị Ngọc Minh
Xem chi tiết
Triệu Ngọc Phượng
Xem chi tiết