Đang tải... (xem toàn văn)
Taûo mäüt xáu gäöm n kyï tæû liãn tiãúp bàõt âáöu vë trê vt cuía xáu S1.. Taûo mäüt xáu gäöm vt kyï tæû liãn tiãúp bàõt âáöu vë trê n cuía xáu S1.B[r]
(1)Giả sử có hai biến xâu x y (y có giá trị) câu lệnh sau không hợp lệ?
A x:=Copy(y,5,3); B x:=y;
C x:=Delete(y,5,3); D Delete(y,5,3); [<br>]
Trong NNLT Pascal, câu lệnh rẽ nhánh dạng đủ sau đúng mặt cú pháp?
A If <biểu thức Logic>; Then <Câu lệnh 1> ELSE <Câu lệnh 2>;
B If <biểu thức Logic> Then <Câu lệnh 1> ELSE <Câu lệnh 2>;
C If <biểu thức Logic> Then; <Câu lệnh 1> ELSE <Câu lệnh 2>;
D If; <biểu thức Logic> Then <Câu lệnh 1> ELSE <Câu lệnh 2>;
[<br>]
Cho đoạn chương trình sau: với khai báo VAR S,i:Word; S:=0;
For i:=1 To Do S:=S+i*i; Giạ trë ca S l?
A 55 B 50 C 15 D 100 [<br>]
Khi thực hiện, câu lệnh WHILE DO dừng lại nào? A Khi thực <Câu lệnh> n lần
B Khi <Câu lệnh> cho giá trị sai(FALSE)
C Khi biểu thức <ĐIỀU KIỆN> cho giá trị sai(FALSE). D Khi biểu thức <ĐIỀU KIỆN> cho giá trị đúng(TRUE) [<br>]
Trong NNLT Pascal, đoạn chương trình sau cho kết gì? T:=0
For i:=1 To n Do If i mod 3=0 Then T:=T+1;
A Tính tổng số nguyên phạm vi từ đến n
B Tính tổng số chia hết cho phạm vi từ đến n
C Đếm có số chia hết cho phạm vi từ đến n
(2)[<br>]
Trong NNLT Pascal, mặt cú pháp khai báo biến mảng sau đúng?
A Var 1AB:Array[1 100] Of Byte; B Var DIV:array[1 100] Of Byte; C Var A B:Array[1 100] Of Byte; D Var AB:Array[1 100] Of Byte; [<br>]
Trong chương trình chuẩn sau đây, chương trình chuẩn thủ tục chuẩn?
A Sin(x); B Length(S); C.SQRT(x);
D Delete(S,5,1); [<br>]
Đoạn chương trình sau có kết in nào: với khai báo VAR A,B,TG:Word;
A:=10; B:=5;
TG:=A; A:=B; B:=TG;
Writeln(‘Ket qua A=’,A,’; B=’,B); A Ket qua A=5; B=10;
B Ket qua A=5; B=5; C Ket qua A=10; B=10; D Ket qua A=10; B=5; [<br>]
Trong NNLT Pascal, đoạn chương trình sau thực cơng việc công việc sau (A mảng số có n phần tử)?
S:=0;
For i:=1 To n Do S:=S+A[i]; A In maỡn hỗnh maớng A.
B Tính tổng phần tử mảng A. C Nhập giá trị cho mảng A.
D Đếm số phần tử mảng A. [<br>]
Trong NNLT Pascal, hàm Copy(S1,vt,n) thực cơng việc gì?
A Tạo xâu gồm n ký tự liên tiếp bắt đầu vị trí vt xâu S1
(3)C Sao chép xâu S1 từ xâu S1 D Chèn xâu S1 vào xâu S1 [<br>]
Trong NNLT Pascal, đoạn chương trình sau cho kết nào?
S:=’Ha noi mua thu’; Delete(S,7,8);
Insert(‘Mua Thu’, S,1); A Ha noi
B Mua ThuHa noi C Mua Thu Ha noi
D Mua thu Ha noi mua thu [<br>]
Trong NNLT Pascal, thủ tục Insert(S1,S2,n) thực cơng việc gì?
A Chèn thêm xâu S1 vào xâu S2 vị trí n S2
B Chèn thêm xâu S2 vào xâu S1 vị trí n S2 C Chèn thêm xâu S2 vào xâu S1 vị trí n S1
D Chèn thêm xâu S1 vào xâu S2 vị trí n S1
[<br>]
Trong NNLT Pascal, thủ tục Delete(c,a,b) thực công việc cơng việc sau?
A Xố xâu ký tự c a ký tự vị trí b B Xóa xâu c b ký tự bắt đầu vị trí a
C Xố xâu a b ký tự từ vị trí c
D Xoá xâu b c ký tự vị trí a [<br>]
Để truy cập vào trường ghi ta viết? A <Tên biến ghi>.<Tên trường>
B <Tên kiểu ghi>.<Giá trị trường> C <Tên kiểu ghi>.<Tên trường>
D <Tên biến ghi>.<Giá trị trường> [<br>]
Dữ liệu kiểu tệp
A lưu trữ Ram B lưu trữ Rom C lưu trữ đĩa cứng
(4)[<br>]
Trong NNLT Pascal, để khai báo hai biến tệp văn f1, f2 ta viết:
A Var f1 f2:Text; B Var f1; f2:Text; C Var f1:f2:Text; D Var f1,f2:Text; [<br>]
Nếu hàm EOF(<tên biến tệp>) cho giá trị True trỏ văn tệp nằm vị trí
A đầu dịng B đầu tệp C cuối dòng D cuối tệp [<br>]
Nếu hàm EOFLN(<tên biến tệp>) cho giá trị True trỏ văn tệp nằm vị trí
A đầu dịng B đầu tệp C cuối dòng D cuối tệp [<br>]
Để gắn tên tệp KQ.TXT cho biến f1 ta sử dụng lệnh A f1:=’KQ.TXT’’;
B KQ.TXT:=f1;
C Assign(‘KQ.TXT’, f1); D Assign(f1,‘KQ.TXT’); [<br>]
Để ghi kết vào tệp văn ta sử dụng thủ tục:
A Read(<Tên tệp>, <danh sách kết quả>);
B Read(<Tên biến tệp>, <danh sách kết quả>); C Write(<Tên tệp>, <danh sách kết quả>);
D Write(<Tên biến tệp>, <danh sách kết quả>); [<br>]
Vị trí trỏ tệp sau lời gọi thủ tục Reset A nằm đầu tệp
B nằm cuối tệp C nằm tệp