program tong_tep;
var s1,s2:string;
function xau_dai(s1,s2:string):string;
begin
if length(S1)>length(S2) then xau_dai:=s1
else xaudai:=s2;
end;
BEGIN
write('Nhap xau thu 1: '); readln(S1);
write('Nhap xau thu 2: '); readln(S2);
write('Xau dai hon la: ',xau_dai(s1,s2);
readln;
end.
Kết quả:
Nhap xau thu 1: HOC CHAM CHI
Nhap xau thu 2: THI DIEM CAO
Xau dai hon la:
Sau đó sẽ thực hiện chương trình con xau_dai
length(s1)=12
length(s2)=12
length(s1)>length(s2) là sai nên xau_dai=s2
Như vậy sẽ in xâu s2 ra mà hình là: THI DIEM CAO
Như vậy sau khi thực hiện xong chương trình sẽ cho ra kết quả:
Nhap xau thu 1: HOC CHAM CHI
Nhap xau thu 2: THI DIEM CAO
Xau dai hon la: THI DIEM CAO
