Để gắn tệp KQ.TXT cho biến tệp f2 ta sử dụng câu lệnh:

Trong PASCAL, để khai báo hai biến tệp văn bản f1, f2 ta viết:

Khai báo 2 biến xâu a, b nào sau đây là đúng:

Cho đoạn chương trình sau:

s1 := ‘123b’; s2 := ‘abcd’;

delete(s1, 1, 3);

write(pos (s1, s2));

Kết quả in ra màn hình là:

Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’

Lệnh nào sau đây cho kết quả ‘Nguyen Du’

Cho đoạn chương trình sau:

s1 := ‘abcd’; s2: ‘1234’;

if length(s1) > length(s2) then write(s1) else write(s2);

Kết quả in ra màn hình là:

Cho s = ‘Tran Hung Dao’, hàm length(s) cho giá trị bằng:

Cho s = ‘ABCDEF’, hàm copy (s, 3, 3) cho giá trị là:

Cho đoạn chương trình sau:

s1 := ‘acb’; s2: ‘abcd’;

if s1 > s2 then write(s1) else write(s2);

Kết quả in ra màn hình là:

Cho chương trình sau:

Program Baitap;

Var S1, S2 : string;

Procedure Xu_li_xau(a:string; var St:string);

 Var i: byte;

 Begin

  i := pos (a, St);

  while i < > 0 do

  begin

   delete(St, i, 4);

   i := pos(a, St);

  end;

 End;

Begin

 S1 := ‘sen trang, sen hong;

 S2 := ‘sen’;

 Xu_li_xau(S2,S1);

End.

a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây:

b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.

Viết chương trình:

Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N)

Tính tổng các số lẻ trong phạm vi từ M đến N

Ghi kết quả ra tệp “KETQUA.TXT”.

Cho chương trình sau:

procedure thutuc (a, b: integer);

 Begin

 …

 End;

Trong chương trình chính có thể gọi lại chương trình con như thế nào:

Giả sử ta có hàm max(A, B: integer):integer; để tìm số lớn hơn trong hai số A và B. Cần sử dụng hàm max trên như thế nào để tìm được số lớn nhất trong ba số A, B, C?

Để phân biệt giữa tham biến và tham trị, trước tham biến người ta dùng từ khoá:

Muốn khai báo x là tham số giá trị, y là tham số biến (x, y thuộc kiểu integer) trong thủ tục có tên là “Hoan_doi” thì khai báo nào sau đây là đúng:

Các biến được khai trong chương trình chính được gọi là:

Cho đoạn chương trình sau:

Var g:text;

 I:integer;

Begin

 Assign(g, ‘C:\DLA.txt’);

 Rewrite(g);

 For i:=1 to 10 do

 If i mod 2 = 0 then write(g, i);

 Close(g);

 Readln

End.

Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?

Trong lời gọi thủ tục, các tham số hình thức được thay bằng các giá trị cụ thể được gọi là:

Giả sử a = 5; b = 9; c = 15; để ghi các giá trị trên vào tệp f2 có dạng là  ta sử dụng câu lệnh:

Để biết con trỏ tệp đã ở cuối tệp f hay chưa, ta sử dụng hàm:

Để ghi 2 biến CV và DT vào biến tệp f2 ta sử dụng câu lệnh:

Để gắn tệp DL.TXT cho biến tệp f1 ta sử dụng câu lệnh:

Câu lệnh mở biến tệp f2 để ghi dữ liệu có dạng:

Trong PASCAL, để khai báo hai biến tệp văn bản f1, f2 ta viết:

Khai báo 2 biến xâu a, b nào sau đây là sai:

Cho đoạn chương trình sau:

s1 := ‘123a’; s2 := ‘abcd’;

delete(s1, 1, 3);

write(pos (s1, s2));

Kết quả in ra màn hình là:

Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’

Lệnh nào sau đây cho kết quả ‘Nguyen Du’

Cho đoạn chương trình sau:

s1 := ‘1234’; s2: ‘abcd’;

if length(s1) > length(s2) then write(s1) else write(s2);

Kết quả in ra màn hình là:

Cho s = ‘Tien hoc le, hau hoc van’, hàm length(s) cho giá trị bằng:

Cho s = ‘ABCDEF’, hàm copy (s, 1, 3) cho giá trị là:

Cho đoạn chương trình sau:

s1 := ‘abcd’; s2: ‘acb’;

if s1 > s2 then write(s1) else write(s2);

Kết quả in ra màn hình là:

Cho chương trình sau:

Program C_trinh_con;

Var d: char;

  X1: string;

Procedure Xoa (a: char ; var Xt:string);

 Var j: byte;

 Begin

  j := pos (a, Xt);

  while j < > 0 do

  begin

   delete(Xt, j, 1);

   j := pos(a, Xt);

  end;

 End;

Begin

 X1:=’SUCCESSFUL’;

 d := ‘S’;

 Xoa (d, X1);

End.

a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây: 

b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.

Viết chương trình:

Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N)

Tính tổng các số chẵn trong phạm vi từ M đến N

Ghi kết quả ra tệp “KETQUA.TXT”.

Cho chương trình sau:

procedure thutuc (a, b: integer);

 Begin

 …

 End;

Trong chương trình chính có thể gọi lại chương trình con như thế nào

Giả sử ta có hàm max(A, B: integer) : integer; để tìm số lớn hơn trong hai số A và B. Cần sử dụng hàm max trên như thế nào để tìm được số lớn nhất trong ba số A, B, C?

Để phân biệt giữa tham biến và tham trị, trước tham biến người ta dùng từ khoá:

Muốn khai báo x, y là tham số biến (x, y thuộc kiểu integer) trong thủ tục có tên là “Hoan_doi” thì khai báo nào sau đây là đúng:

Các biến được khai báo dùng riêng cho chương trình con được gọi là:

Cho đoạn chương trình sau:

Var g:text;

I:integer;

Begin

 Assign(g, ‘C:\DLA.txt’);

 Rewrite(g);

 For i:=1 to 10 do

 If i mod 2 <> 0 then write(g, i);

 Close(g);

 Readln

End.

Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?

Tệp f1 có dữ liệu  để đọc 3 giá trị trên tương ứng với 3 biến x, y, z ta sử dụng câu lệnh: