Cho xâu S có giá trị là: ‘HPTT’. Để tạo xâu mới t có giá trị là ‘THPT’, ta thực hiện lệnh nào sau đây?
Trong ngôn ngữ lập trình Pascal, sau khi chương trình thực hiện xong đ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];
B
‘Mua thu Ha Noi mua thu’.
Dữ liệu kiểu tệp được lưu trữ ở đâu?
Hãy chọn phương án đúng. Số lượng phần tử trong tệp:
A
Có không quá 127 kí tự.
B
Có không quá 256 kí tự.
C
Phải được khai báo trước.
D
Không bị giới hạn mà chỉ phụ thuộc vào dung lượng đĩa.
Cho giá trị a = 5; b = 9; c = 15. Để ghi các giá trị của a, b, c vào tệp, các giá trị ngăn cách nhau bởi một dấu cách, ta sử dụng câu lệnh nào sau đây?
B
write[a, ‘ ’, b, ‘ ’, c];
C
write[f, a, ‘ ’, b, c];
D
write[f, a, ‘ ’, b, ‘ ’, c];
Trong Pascal, để khai báo biến tệp văn bản ta sử dụng cú pháp:
B
Var : text;
C
Var : string;
D
Var : string;
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?
A
Mở tệp > Đọc dữ liệu từ tệp > Gắn tên tệp --> Đóng tệp.
B
Mở tệp > Gắn tên tệp > Đọc dữ liệu từ tệp --> Đóng tệp.
C
Gắn tên tệp > Mở tệp > Đọc dữ liệu từ tệp --> Đóng tệp.
D
Gắn tên tệp > Đọc dữ liệu từ tệp > Mở tệp --> Đóng tệp.
Trong Pascal, mở tệp để đọc dữ liệu ta sử dụng thủ tục?
Var f: text; s: integer; begin Assign[ f,’ ABC.txt’]; Rewrite[ f]; s:= 105+304-234; Write[ f, s]; close[f]; end; Sau khi thực hiện tệp ABC.txt có nội dung thế nào?
Trong ngôn ngữ lập trình Pascal, để đọc dữ liệu từ tệp văn bản, ta sử dụng thủ tục :
A
read [ < biến tệp > , < danh sách biến > ];
B
read [ < danh sách biến > , < tên tệp > ];
C
read [ < tên tệp > , < danh sách biến > ];
D
read [ < biến tệp > ; < danh sách biến > ];
Để có thể thao tác với tệp dữ liệu trên đĩa thông qua biến tệp đã khai báo thì trước hết ta phải làm gì?
Ví dụ 1: Giả sử biến Hoten lưu trữ hằng xâu 'Nguyen Le Huyen' thì Hoten[6] cho ta kí tự thứ 6 của Hoten
Dưới đây trình bày cách khai báo kiểu dữ liệu xâu, các thao tác xử lí xâu và một số ví dụ sử dụng kiểu xâu trong Pascal.
1. Khai báo
var < tên biến xâu >: string[độ dài tối đa của xâu];
Trong đó:
- Tên biến xâu: do người lập trình tự đặt.
- var, string: từ khóa.
- độ dài tối đa qui định số kí tự tối đa xâu có, nêu không ghi thì ngầm định là 255 kí tự.
Ví dụ 2:
- var Hoten: string[26];
- Trong mô tả xâu có thể bỏ qua phần khai báo độ dài, chẳng hạn: var Chugiai: string;
- Khi đó độ dài lớn nhất của xâu sẽ nhận giá trị ngầm định là 255.
2. Các thao tác trên xâu
a. Phép ghép xâu
- Phép ghép xâu [kí hiệu là cộng].
- Được sử dụng để ghép nhiều xâu thành một.
- Có thể thực hiện phép ghép xâu đối với các hằng và biến xâu.
Ví dụ 3: 'Ha'+ ' Noi' +' - '+'Viet Nam' \[\rightarrow\] Cho xâu kết quả là 'Ha Noi - Viet Nam'.
b. Phép so sánh xâu
- Các phép so sánh bằng [=], khác [], nhỏ hơn [], nhỏ hơn hoặc bằng [=] có thứ tự ưu tiên thực hiện thấp hơn phép ghép xâu và thực hiện việc so sánh hai xâu theo các quy tắc sau:
+ Xâu A là lớn hơn xâu B nếu như kí tự đầu tiên khác nhau giữa chúng kể từ trái sang trong xâu A có mã ASCII lớn hơn.
+ Nếu A và B là các xâu có độ dài khác nhau và A là đoạn đầu của B thì A là nhỏ hơn B.
Ví dụ 4: 'May tinh' < 'May tinh cua toi'.
- Hai xâu được coi là bằng nhau nếu như chúng giống nhau hoàn toàn. Ví dụ 5: 'TIN HOC' = 'TIN HOC'.
c. Thủ tục xóa n kí tự
- Thực hiện việc xoá n kí tự của xâu st bắt đầu từ vị trí vt.
- Cú pháp: delete[st,vt,n]
Trong đó:
st: xâu.
vt: vị trí bắt đầu xóa.
n: số kí tự xóa.
Ví dụ 6:
.png]
Bảng 1. Ví dụ về thủ tục xóa n kí tự
d. Thủ tục chèn xâu S1 vào xâu S2
- Thực hiện chèn xâu s1 vào xâu s2, bắt đầu ở vị trí vt.
- Cú pháp: Insert[s1,s2,vt]
Trong đó:
s1, s2: xâu.
vt: vị trí bắt đầu chèn xâu s1.
Ví dụ 7:
.png]
Bảng 2. Ví dụ thủ tục chèn xâu S1 vào xâu S2
e. Hàm tạo xâu
- Tạo xâu gồm N kí tự liên tiếp bắt đầu từ vị trí vt của xâu S.
- Cú pháp: copy[s,vt,n]
Trong đó:
s: xâu.
vt: vị trí bắt đầu lấy trong xâu s.
n: số kí từ sé lấy.
Ví dụ 8:
.png]
Bảng 3. Ví dụ hàm tạo xâu
f. Hàm tính độ dài xâu
- Cho giá trị là độ dài xâu s.
- Cú pháp: length[s]
- Ví dụ 9:
.png]
Bảng 4. Ví dụ hàm tính độ dài xâu
g. Hàm cho biết vị trí xuất hiện đầu tiên của xâu s1 trong s2
- Cho vị trí xuất hiện đầu tiên của xâu s1 trong xâu s2.
- Cú pháp: pos[s1,s2]
- Ví dụ 10:
.png]
Bảng 5. Ví dụ hàm cho biết vị trí xuất hiện đầu tiền của xâu s1 trong xâu s2
h. Hàm cho chữ cái in hoa
- Cho chữ cái viết hoa ứng với chữ cái trong ch.
- Cú pháp: upcase[ch]
- Ví dụ 11: upcase[a] ---> 'A'
upcase[B] ---> 'B'
3. Bài tập:
3.1. Bài tập 1
Chương trình dưới đây nhập họ tên của hai người vào hai biến xâu và đưa ra màn hình xâu dài hơn, nếu bằng nhau thì đưa ra xâu nhập sau.
Gợi ý làm bài:
Đoạn chương trình cài đặt:
var a,b:string; begin write['Nhap ho ten thu nhat: ']; readln[a]; write['Nhap ho ten thu hai: ']; readln[b]; if length[a]>length[b] then write[a] else write[b]; readln end.
3.2. Bài tập 2
Chương trình dưới đây nhập hai xâu từ bàn phím và kiểm tra kí tự đầu tiên của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không.
Gợi ý làm bài:
Đoạn chương trình cài đặt:
var x: byte; a,b: string; begin write['Nhap xau thu nhat: ']; readln[a];
write['Nhap xau thu hai: ']; readln[b];
x:=length[b];
{xac dinh do dai xau b de biet vi tri cua ki tu cuoi cung} if a[1]=b[x] then write['Trung nhau']
else write['Khac nhau']; readln end.
3.3. Bài tập 3
Chương trình sau nhập một xâu vào từ bàn phím và đưa ra màn hình xâu đó nhưng được viết theo thứ tự ngược lại.
Gợi ý làm bài:
Đoạn chương trình cài đặt:
var i,k: byte; a: string; begin write['Nhap xau:']; readln[a]; k:= length[a]; {xac dinh do dai xau} for i:= k downto 1 do write[a[i]];
readln end.
3.4. Bài tập 4
Chương trình sau nhập một xâu vào từ bàn phím và đưa ra màn hình xâu thu được từ nó bởi việc loại bỏ các dấu cách.
Gợi ý làm bài:
Đoạn chương trình cài đặt:
var i,k: byte;
a, b: string;
begin
write['Nhap xau:'];
readln[a];
k:= length[a];
b:= ' '; [* Khoi tao xau rong *]
for i:= 1 to k do
if a[i] ' ' then b:=b+a[i];
writeln['Ket qua: ',b];
readln
end.
3.5. Bài tập 5
Chương trình sau nhập vào từ bàn phím xâu kí tự s1, tạo xâu s2 gồm tất cả các chữ số có trong s1 [giữ nguyên thứ tự xuất hiện của chúng] và đưa kết quả ra màn hình.