K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

18 tháng 4 2020
Thủ tục Kết quả
Delete (s,3,1); VuSieu
Delete(s,3,7); Vu
Delete(s,7,3); Vu Sie
Insert(s2,s,1); Vo Vu Sieu
Insert(s2,s,7); Vu SieVo u
Insert(s2,s,3); VuVo Sieu
Copy(s,3,4) Sie
Copy(s,7,1) u
Copy(s,7,7) u
Copy(s,7,8) u
Length(s) 7
Pos(s2,s) 0
Pos(‘ ‘,s) 3
Pos(‘Si’,s) 4
Pos(‘si’,s) 0
Upcase('a') A
Upcase('A') A
S1:='v'; v
Upcase(s1) VU SIEU
Length(s2) 3
29 tháng 4 2020

Cho xâu S1='abcdef'

S2='mne'

a) Delete (S1,2,3)

---> Kết quả: S1='aef'

b) Delete (S2,1,2)

---> Kết quả: S2='e'

c) Insert (S1,S2,1)

---> Kết quả S1='abcdef' ; S2='abcdefmne';

d) Insert (S2,S1,2)

---> Kết quả : S1='amnebcdef' ; S2='mne'

e) Copy (S1,2,4)

---> Kết quả: 'bcde'

f) So sánh hai xâu sau theo mã ASCII

S3='la co' , S4=' la do'

(hình như bạn viết thừa dấu cách ở kí tự đầu tiên của s4 đúng không, Nếu đúng thì kết quả là S3<S4 còn không phải thì KQ là S3 > S4)

g) 'toan hoc' > ' tin hoc'

l) Sửa đề : pos ('xinh', ' cai_xac_xinh_xinh')

---> Kết quả : 9

h) upcase (' t ') ---> Kết quả: T

y) length ('mnefg')=?

---> Kết quả: 5

2 tháng 6 2020

Trong các hàm và thủ tục sau, hàm và thủ tục nào cho kết quả là một số nguyên:

A. Copy(S,vt,n); C. Length(s);

B. Insert(S1,S2,vt); D. Delete(s,vt,n);

20 tháng 4 2020

End. phải dùng End; mới đúng

19 tháng 4 2020

Câu 1: Bạn phải cho xâu S như thế nào đã chứ. Nhìn chung đoạn chương trình không mắc lỗi nào về cú pháp.

Câu 2:

Program hotrotinhoc;

var s1,s2: string;

begin

write('Nhap xau s1 :'); readln(s1);

write('Nhap xau s2 :'); readln(s2);

insert(s1,s2,1);

write('Xau s2 sau khi chen la :',s2);

readln

end.

Sửa đề: S:='hong';

Đoạn chương trình thực hiện chương trình chèn xâu s1 vào xâu s

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. 5 B. 9 C. 6 D. 10 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 không nhận giá trị nào B. M = 19 C. M nhận cả hai giá trị trên D. M =...
Đọc tiếp

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. 5

B. 9

C. 6

D. 10

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 không nhận giá trị nào

B. M = 19

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

D. M = 12

Số câu lệnh trong câu lệnh ghép là bao nhiêu?

A. 1

B. 2

C. >=1

D. >=2

Câu 11

Cho biết câu lệnh sau sai ở đâu? IF DTB>5 then Write(‘Do’); Else Write(‘Truot’);

A. Đồng thời viết cả giá trị Đỗ, trượt

B. Chưa biết giá trị của ĐTB

C. Thừa dấu chấm phẩy (;) trước từ khóa Else

D. Tất cả đều sai

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

A. 8

B. 16

C. 32

D. 64

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. 11

B. 0

C. 10

D. 1

Cho khai báo sau :

Var Xau: string;

Phát biểu nào dưới đây là đúng ?

A. Xâu có độ dài lớn nhất là 255;

B. Câu lệnh sai vì thiếu độ dài tối đa của xâu;

C. Xâu có độ dài lớn nhất là 0;

D. Cần phải khai báo kích thước của xâu sau đó;

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. 10

B. 11

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

D. 0 0 0 0 0

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

S:= 'Le Loi Dong Ha' ; Delete ( S ,…, ...); để thu được kết quả S= 'Dong Ha'

A. 1,8

B. 7,7

C. 1,9

D. 1,7

Kh​i chạy chương trình:

Var S, i, j : Integer;
Begin
S := 0;
for i:= 1 to 3 do
for j:= 1 to 4 do S := S + 1 ;
End.
Giá trị sau cùng của S là :

A. 12

B. 3

C. 0

D. 4

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 2

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

C. Câu lệnh 1

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

Cho ST:= 'Ngay 1 thang 11‘;

C:=Pos('1',ST) -> C=…

A. C=14 và 15

B. C=5

C. C=6 và 14

D. C=6

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=26

B. k=11

C. k=23

D. k=13

Cho khai báo mảng sau:

Var P: array [1..50] of word;

Tham chiếu đến một phần tử của mảng P nào sau đây là SAI?

A. P[30]

B. P[15]

C. P[0]

D. P[50]

Đ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+ A[i];

A. In ra màn hình mảng A;

B. Đếm số phần tử của mảng A;

C. Tính tổng các phần tử của mảng một chiều A;

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

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. 5 lần

B. 3 lần

C. 9 lần

D. 12 lần

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’

Khi chạy chương trình :
Var St : String;
i,L : integer;
Begin
St:='ABCD' L := Length(St);
For i:= L Downto 1 do write (St[i]);

End.
Chương trình in ra :

A. 4321

B. DCBA

C. ABCD

D. DCAB

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(S1,S2,vt);

B. Insert(vt,S1,S2);

C. Insert(S1,vt,S2);

D. Insert(S2,S1,vt);

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. ‘Mua thu Ha Noi mua thu’;

B. ‘Ha Noi Mua thu’;

C. ‘Mua thu Ha Noi’;

D. ‘Ha Noi’;

Đ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. Đếm các giá trị từ 1 đến n;

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

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

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

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

A. 500

B. 9

C. ‘500’

D. ‘5’

đ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 đi 1 trong 2 dấu cách đầu tiên 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 hai dấu cách liên tiếp nhau đầu tiên trong xâu;

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

1
29 tháng 4 2020

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. 5

B. 9

C. 6

D. 10

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 không nhận giá trị nào

B. M = 19

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

D. M = 12

 

Số câu lệnh trong câu lệnh ghép là bao nhiêu?

A. 1

B. 2

C. >=1

D. >=2

Câu 11

Cho biết câu lệnh sau sai ở đâu? IF DTB>5 then Write(‘Do’); Else Write(‘Truot’);

 

A. Đồng thời viết cả giá trị Đỗ, trượt

B. Chưa biết giá trị của ĐTB

C. Thừa dấu chấm phẩy (;) trước từ khóa Else

D. Tất cả đều sai

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

A. 8

B. 16

C. 32

D. 64

 

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. 11

B. 0

C. 10

D. 1

 

Cho khai báo sau :

Var Xau: string;

Phát biểu nào dưới đây là đúng ?

A. Xâu có độ dài lớn nhất là 255;

B. Câu lệnh sai vì thiếu độ dài tối đa của xâu;

C. Xâu có độ dài lớn nhất là 0;

D. Cần phải khai báo kích thước của xâu sau đó;

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. 10

B. 11

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

D. 0 0 0 0 0

----> Không có đáp án đúng , đáp án đúng là: 0 0 0 0 0 0 0 0 0 0

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

S:= 'Le Loi Dong Ha' ; Delete ( S ,…, ...); để thu được kết quả S= 'Dong Ha'

A. 1,8

B. 7,7

C. 1,9

D. 1,7

Kh​i chạy chương trình:

Var S, i, j : Integer;
Begin
S := 0;
for i:= 1 to 3 do
for j:= 1 to 4 do S := S + 1 ;
End.
Giá trị sau cùng của S là :

 

A. 12

B. 3

C. 0

D. 4

 

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 2

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

C. Câu lệnh 1

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

 

Cho ST:= 'Ngay 1 thang 11‘;

C:=Pos('1',ST) -> C=…

A. C=14 và 15

B. C=5

C. C=6 và 14

D. C=6

 

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=26

B. k=11

C. k=23

D. k=13

 

Cho khai báo mảng sau:

Var P: array [1..50] of word;

Tham chiếu đến một phần tử của mảng P nào sau đây là SAI?

 

A. P[30]

B. P[15]

C. P[0]

D. P[50]

 

Đ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+ A[i];

A. In ra màn hình mảng A;

B. Đếm số phần tử của mảng A;

C. Tính tổng các phần tử của mảng một chiều A;

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

 

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. 5 lần

B. 3 lần

C. 9 lần

D. 12 lần

 

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’

---> Không có đáp án đúng, đáp án đúng là: s1='123'; s2='ab123c'

Khi chạy chương trình :
Var St : String;
i,L : integer;
Begin
St:='ABCD'; L := Length(St);
For i:= L Downto 1 do write (St[i]);

End.
Chương trình in ra :

A. 4321

B. DCBA

C. ABCD

D. DCAB

 

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(S1,S2,vt);

B. Insert(vt,S1,S2);

C. Insert(S1,vt,S2);

D. Insert(S2,S1,vt);

 

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. ‘Mua thu Ha Noi mua thu’;

B. ‘Ha Noi Mua thu’;

C. ‘Mua thu Ha Noi’;

D. ‘Ha Noi’;

 

Đ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. Đếm các giá trị từ 1 đến n;

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

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

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

 

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

A. 500

B. 9

C. ‘500’

D. ‘5’

 

đ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 đi 1 trong 2 dấu cách đầu tiên 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 hai dấu cách liên tiếp nhau đầu tiên trong xâu;

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

Câu 15 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. 10 B. 11 C. 1 2 3 4 5 6 7 8 9 10 D. 0 0 0 0 0 Câu 24 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 =...
Đọc tiếp

Câu 15

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. 10

B. 11

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

D. 0 0 0 0 0

Câu 24

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 31

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. For …to…do…

B. For …downto…do…

C. While…do…

D. Repeat…Until…

Câu 32

xâu kí tự không chứa kí tự nào gọi là:

A. Xâu không;

B. Xâu trắng;

C. Không phải là xâu kí tự

D. Xâu rỗng;

Câu 33

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ự ra màn hình theo thứ tự ngược

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ự xâu ra màn hình

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

Câu 34

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

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

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

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

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

Câu 35

Với khai báo như sau:

Type mang=array[1..100] of integer;

Var a,b:mang;

c:array[1..50] of integer;

Câu lệnh nào dưới đây đúng nhất?

A. b:=c;

B. a:=c;

C. a:=b;

D. c:=b;

Câu 36

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 là không xác định

C. x=1

D. x= -1

Câu 37

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. PASCAL

C. 5.5

D. VERSION 5.5

Câu 38

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

A. 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;

B. 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 39

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

A. 256 kí tự

B. 20 kí tự

C. Báo lỗi

D. 255 kí tự

Câu 40

Đoạn chương trình sau đưa ra màn hình kết quả gì?

For i:=1 to 10 do write(I,’’);

A. Đưa ra 10 dấu cách

B. 12345678910

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

D. Không đưa ra kết quả gì

Câu 41

Đ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 42

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 43

thủ tục Insert(S1,S2,n) thực hiện công việc gì?

A. Chèn thêm xâu S1 vào xâu S2 bắt đầu từ vị trí n của S1;

B. Chèn thêm xâu S1 vào xâu S2 bắt đầu từ vị trí n của S2;

C. Chèn thêm xâu S2 vào xâu S1 bắt đầu từ vị trí n của S1;

D. Chèn thêm xâu S2 vào xâu S2 bắt đầu từ vị trí n của S1;

Câu 44

Cho khai báo biến:
Var A : array[1..5] of Integer;
Chọn lệnh đúng :

A. A := 10 ;

B. A[2] := -6 ;

C. A(3) := 6 ;

D. A[1] := 4/3 ;

Câu 45

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

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

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

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

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

Câu 46

Để 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(s,’hoa’);

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

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

Câu 47

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

A. Không có chỉ số

B. 0

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

D. 1

Câu 48

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

Chọn câu lệnh sai trong các câu lệnh sau:

A. A[1]:= 2.5;

B. A[4]:=0;

C. A[2]:= 30;

D. A[3]:=-5;

Câu 49

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. 2

D. 5

Câu 50

để đếm số kí tự là kí tự chữ số trong xâu s, đoạn chương trình nào trong các đoạn chương trình sau thực hiện công việc này (biến d dùng để đếm)

A. d:=0; for i:=1 to length(s) do if (s[i] =’0’) and(s[i]=’9’) then d:=d+1;

B. d:=0; for i:=1 to length(s) do if (s[i] >=0) and(s[i]<=9) then d:=d+1;

C. d:=0; for i:=1 to length(s) do if (s[i] =0) and (s[i]=9) then d:=d+1;

D. d:=0; for i:=1 to length(s) do if (s[i] >=’0’) and(s[i]<=’9’) then d:=d+1;

em xin cảm ơn .

1
30 tháng 4 2020

Câu 15

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. 10

B. 11

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

D. 0 0 0 0 0

Không có đáp án đúng : đáp án đúng 0 0 0 0 0 0 0 0 0 0 0

Câu 24

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 31

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. For …to…do…

B. For …downto…do…

C. While…do…

D. Repeat…Until…

Câu 32

xâu kí tự không chứa kí tự nào gọi là:

A. Xâu không;

B. Xâu trắng;

C. Không phải là xâu kí tự

D. Xâu rỗng;

Câu 33

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ự ra màn hình theo thứ tự ngược

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ự xâu ra màn hình

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

Câu 34

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

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

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

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

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

Câu 35

Với khai báo như sau:

Type mang=array[1..100] of integer;

Var a,b:mang;

c:array[1..50] of integer;

Câu lệnh nào dưới đây đúng nhất?

A. b:=c;

B. a:=c;

C. a:=b;

D. c:=b;

Câu 36

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 là không xác định

C. x=1

D. x= -1

Câu 37

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. PASCAL

C. 5.5

D. VERSION 5.5

Câu 38

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

A. 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;

B. 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 39

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

A. 256 kí tự

B. 20 kí tự

C. Báo lỗi

D. 255 kí tự

Câu 40

Đoạn chương trình sau đưa ra màn hình kết quả gì?

For i:=1 to 10 do write(I,’’);

A. Đưa ra 10 dấu cách

B. 12345678910

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

D. Không đưa ra kết quả gì

Câu 41

Đ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 42

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 43

thủ tục Insert(S1,S2,n) thực hiện công việc gì?

A. Chèn thêm xâu S1 vào xâu S2 bắt đầu từ vị trí n của S1;

B. Chèn thêm xâu S1 vào xâu S2 bắt đầu từ vị trí n của S2;

C. Chèn thêm xâu S2 vào xâu S1 bắt đầu từ vị trí n của S1;

D. Chèn thêm xâu S2 vào xâu S2 bắt đầu từ vị trí n của S1;

Câu 44

Cho khai báo biến:
Var A : array[1..5] of Integer;
Chọn lệnh đúng :

A. A := 10 ;

B. A[2] := -6 ;

C. A(3) := 6 ;

D. A[1] := 4/3 ;

Câu 45

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

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

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

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

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

Câu 46

Để 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(s,’hoa’);

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

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

Câu 47

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

A. Không có chỉ số

B. 0

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

D. 1

Câu 48

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

Chọn câu lệnh sai trong các câu lệnh sau:

A. A[1]:= 2.5;

B. A[4]:=0;

C. A[2]:= 30;

D. A[3]:=-5;

Câu 49

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. 2

D. 5

Câu 50

để đếm số kí tự là kí tự chữ số trong xâu s, đoạn chương trình nào trong các đoạn chương trình sau thực hiện công việc này (biến d dùng để đếm)

A. d:=0; for i:=1 to length(s) do if (s[i] =’0’) and(s[i]=’9’) then d:=d+1;

B. d:=0; for i:=1 to length(s) do if (s[i] >=0) and(s[i]<=9) then d:=d+1;

C. d:=0; for i:=1 to length(s) do if (s[i] =0) and (s[i]=9) then d:=d+1;

D. d:=0; for i:=1 to length(s) do if (s[i] >=’0’) and(s[i]<=’9’) then d:=d+1;

Kết quả sau khi thực hiện là

18

HOC SINH LOP 11 E1