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 đ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?

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 s = ‘Tien hoc le, hau hoc van’, hàm length(s) cho giá trị bằng:

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?

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à:

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