Đang tải... (xem toàn văn)
CLOSE(tênbiếntệp1, tênbiếntệp2, …, tênbiếntệpn); Câu 7: Để ghi dữ liệu vào tệp văn bản ta có thể sử dụng thủ tục nào sau:A. A..[r]
(1)(2)Câu 1: Hàm Eoln(f) cho kết là:
A Cho kết FALSE trỏ tệp nằm cuối tệp, ngược lại cho kết TRUE B Cho kết FALSE trỏ tệp nằm cuối dòng, ngược lại cho kết TRUE C Cho kết TRUE trỏ tệp nằm cuối dòng, ngược lại cho kết FALSE D Cho kết TRUE trỏ tệp nằm cuối tệp, ngược lại cho kết FALSE Câu 2: Cho chương trình sau:
Var f: text; Begin
Assign(f,'baitap.txt'); Rewrite(f);
a:= 3; b:= 5;
Write(f, ‘a b’ ); Close(f);
End.
Câu 3: Cho f biến tệp văn Khai báo sau ?
A Var f : byte; B Var f : text; C Var : f text; D Var f = text; Câu 4: Để gán tệp vidu.txt cho biến tệp f ta sử dụng câu lệnh
A assign(‘f , D:\vidu.txt’); B assign(f , vidu txt);
C assign(‘vidu.txt’,f ); D assign(f , ‘vidu txt’);
Câu 5: Khẳng định sau đúng?
A Một chương trình thiết phải có tham số hình thức B Một chương trình thiết phải có biến cục
C Một chương trình khơng có tham số hình thức, khơng thiết phải có biến cục
D Một chương trình thiết phải có tham số hình thức khơng thiết phải có biến cục
Câu 6: Khai báo sau đúng:
A CLOSE(tênbiếntệp, têntệp); C CLOSE(tênbiếntệp; têntệp);
B CLOSE(tênbiếntệp); D CLOSE(tênbiếntệp1, tênbiếntệp2, …, tênbiếntệpn); Câu 7: Để ghi liệu vào tệp văn ta sử dụng thủ tục sau:
A read(<tên tệp>,<danh sách kết quả>); B write(<tên biến tệp>,<danh sách kết quả>); C read(<tên biến tệp>,<danh sách biến>); D write(<tên tệp>,<danh sách biến>);
Câu 8: Cho chương trình sau: Program Cau8;
Var a, b, S : byte;
Procedure TD ( x: byte; y: byte) Var i: byte;
Begin
i:=1; Writeln(x, y);
x:= x+i; y:= y+i; S:= x+y; Writeln(x, y);
End; Begin
Write(‘Nhap a,b:’); readln(a,b); TD(a,b);
Writeln(a,b,S); End
Hãy cho biết?
+ Biến toàn cục là: …… + Biến cục là: ……… + Tham số hình thức
- Tham số giá trị: ……… - Tham biến: ……… + Tham số thực sự: ………
(3)Câu hỏi :Dữ liệu kiểu xâu có độ dài tối đa là:
A 102 kÝ tù B 128 kÝ tù C 255 kÝ tù D 256 kÝ tù
C©u hái 10 : Để khai báo biến kiểu xâu trực tiếp ta sử dụng cú pháp nào?
A Var<Tên biến>:<Tên kiểu>; B Var<Tên biến>:string[n]; C Var<Tên biến>=string[n]; D Var<Tên biến>=string;
Câu hỏi 11: Kết việc thực hàm Copy( abcdef ,3,2) lµ:‘ ’
A ‘ab’ B ‘ef’ C ‘cd’ D ‘df’
C©u hái 12: Cho st:= abcde Kết gọi thủ tục Delete(st,2,3) là:
A st=’ab’ B st=’bc’ C st=’ac’ D st=’ae’
Câu hỏi 13: Cho st= Chúc bạn may mắn ,kết hàm length(st) là:
A 16 B 18 C 20 D 22
C©u hái 14: KÕt việc thực hàm Pos( ab , deabcab ) lµ:‘ ’ ’ ’
A B C D
Câu hỏi 15: Cho st1:= abcd ; st2:= ABC ; st1+st2 cho kết nào?’ ’ ’ ’
A abcd B aabbccd C abcdABC D ABCabcd
C©u hái 16: Cho st1= abc ; st2= deft ; Kết gọi Insert(st2,st1,3) là ’ ’ : A ‘abcdeft’ B ‘abdeftc’ C ‘abcfted’
Câu hỏi 17: Trong khai báo sau khai báo đúng?
A Type Nhansu:=Record B Type Nhansu = Record
Ten,chucvu:string; Ten,chucvu:string;
Luong:Real; Luong:Real;
End; End;
Var NS: Nhansu; Var NS =Nhansu;
C Type Nhansu:record D Type Nhansu =Record;
Ten,chucvu:string; Ten,chucvu:string;
Luong:Real; Luong:Real;
End; End;
Var NS:Nhansu; Var NS: Nhansu;
C©u hái 18: Trong pascal đoạn chơng trình sau thực công việc gi? S:=’Mïa thu Hµ Néi’;
For i:=1 to length(S) S[i]:=Upcase(S[i]);
A Đổi xâu S thành chữ thờng B Gán cho S xâuMùa thu Ha Nội C Đổi xâu S thành chữ in hoa D Đếm kí tự x©u S
Câu hỏi 19: Trong kiêu liệu ghi, ghi thờng đợc dùng để? A Mô tả hay lu trữ thông tin nhiều đối tợng cần quản lí
B Mơ tả hay lu trữ thơng tin thuộc tính quản lí C Mô tả hay lu trũ thông tin đối tợng cần quản lí D Mơ tả hay lu trữ thơng tin nhiều thuộc tính cần quản lí
Câu hỏi 20: Trong khai báo sau khai báo sai?
A Type Thisinh=Record B Var Ts1:record
Ten:string; Ten:string;
Tuoi:byte; Tuoi:byte;
End; End;
C Var Ts1=record D Type Nhanvien=Record Ten:string; Ten:string;
Tuoi:byte; Luong:integer;
End; End;
C©u hái 21: Cho N biến kiểu nguyên, chọn câu cú pháp:
A If N < 10 then write (' Nho hon 10 ') ; else write (' Lon hon 10 '); B If N < 10 then write (' Nho hon 10 ') else write (' Lon hon 10 '); C If N < 10 Write (' Nho hon 10 ') else then write (' Lon hon 10 '); D If N < 10 then N := 10 else N > 20 then write (' N > 20 ');
C©u hái 22:Lệnh sau in hình số lớn số A,B
A If A < B then writeln(A) else writeln(B); C If A > B then write(B) else write(A); B If A > B then Readln(A) else Readln(B); D If A > B then write(A) else write(B);
C©u hái 23:Muốn kiểm tra đồng thời A,B,C lớn hay không, viết câu lệnh if đúng:
A if a>0 and B>0 and c>0 then B if (a>0) or (B>0) or (c>0) then C if (a>0) and (B>0) and (c>0) then D if A,B,C>0 then
C©u hái 24:Câu lệnh sau cú pháp: