Để gắn tên tệp cho tên biến tệp ta sử dụng câu lệnh:
A. <biến tệp> := <tên tệp>
B. <tên tệp> := <biến tệp>
C. assign(<biến tệp> , <tên tệp>)
D. assign(<tên tệp> , <biến tệp>)
Giải bởi Vietjack
Đáp án C
Gói VIP thi online tại VietJack (chỉ 400k/1 năm học), luyện tập gần 1 triệu câu hỏi có đáp án chi tiết
Hãy chọn thứ tự hợp lí nhất khi thực hiện các thao tác đọc dữ liệu từ tệp
Cho đoạn chương trình sau:
s := ’ABCDEF’;
delete(s, 3, 2);
insert(‘XYZ’, s, 4);
write(s);
Kết quả in ra màn hình là:
Cho đoạn chương trình sau:
s := ‘Mua xuan’;
write(upcase(s[length(s)-1]));
Kết quả in ra màn hình là:
Cho xâu kí tự sau: s:= ‘Nguyen Trai’. Lệnh nào sau đây cho kết quả ‘Nguyen’
Cho đoạn chương trình sau:
s := ‘1001010’;
write(pos(‘011’, s));
Kết quả in ra màn hình là:
Cho đoạn chương trình sau:
s:= ‘edcba’;
For i:= length(s) downto 1 do write(s[i]);
Kết quả in ra màn hình là:
Nếu hàm eof( ) cho giá trị bằng true thì con trỏ tệp nằm ở vị trí:
Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abc’;
insert (s2 , s1 , 1);
write(s1);
Kết quả in ra màn hình là:
Cho đoạn chương trình sau:
s1 := ‘abc’; s2 := ‘1234’;
if length(s1) > length(s2) then writeln(s1) else writeln(s2);
Kết quả in ra màn hình là:
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là số có trong xâu.
Var a: string;
I,dem: integer;
Begin
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘0’<=a[i]) and (a[i]<=’9’) then dem:=dem+1;
Writeln(dem);
Readln
End.
Viết các câu lệnh để ghi dữ liệu vào tệp KQ.TXT 2 biến C, V (sử dụng biến tệp f).
