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

s:= ‘123456’;

For i:= length(s) downto 1 do write(s[i]);

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

CÁC BÀI TẬP VỀ CHƯƠNG TRÌNH CON

BT_04_01: Viết chương trình con tính chu vi và diện tích của hình chữ nhật.

Giải: Ta thấy rằng chương trình con tính chu vi, diện tích của hình chữ nhật nhất định phải có tham số đầu vào là 2 cạnh, đó là 2 tham trị. Nếu ta viết chương trình con là thủ tục thì kết quả phải lưu bằng một tham biến để đưa ra. Đặt tên các thủ tục là chu_vi, dien_tich ta cài đặt như sau:

procedure Chu_vi(a,b : real; var c : real);

begin

C := 2*(a+b);

end;

{=================================}

procedure Dien_tich(a,b : real; var d : real);

begin

d := a*b;

end;

Tuy nhiên kết quả ra là kiểu thực, là kiểu mà hàm có thể trả lại nên ta có thể cài đặt 2 chương trình con trên bằng hàm như sau:

function Chu_vi(a,b : real): real;

Begin

Chu_vi := 2*(a+b);

end;

{=================================}

function Dien_tich(a,b : real): real;

begin

Dien_tich := a*b;

end;

Cho chương trình sau

Program Xep_so;

Const T = 10;

Var M : Array[ 1 . . T ] of Integer;

Tg, i, j: Integer;

Begin

For i: = 1 to T do

Begin

Write(‘Hay nhap gia tri so thu’ , i , ’la :’);

Readln(M[ i ]);

End;

For i : = 1 to T - 1 do

For j : = i + 1 to T do

Begin

If M[ i ] > M[ j ] then

Begin

Tg: = M[ i ];

M[ i ]: = M[ j ];

M[ j ]: = Tg;

End;

End;

Writeln(‘ KET QUA SU CHUONG TRINH CHAY LA:’);

For i: = 1 to T do Writeln(M[ i ]);

Readln

End.

A. Cho biết đoạn chương trình này làm gì?