Các đoạn chương trình con trong Pascal

Hôm nay mình tạo topic này để tất cả mọi người cùng đóng góp các đoạn chương trình hay để cùng nhau nghiên cứu và tham khảo nha.

Mở đầu là 3 đoạn chương trình của thầy Chương:

Code:

Kiểm tra số ng.tố:
function ktnt(z:longint):boolean;
        var i:longint;
begin
ktnt:=true;
for i:=2 to trunc(sqrt(z)) do
 if z mod i=0 then ktnt:=false;
end;

Code:

Kiểm tra xâu đối xứng:
function ktdx(st:string):boolean;
        var st2:string;
            i:byte;
begin
ktdx:=false;
st2:='';
for i:=length(st) downto 1 do
 st2:=st2+st[i];
if st2=st then ktdx:=true;
end;

Code:

Cắt khoảng trống thừa (Chuẩn hóa xâu)
procedure chx(var st:string);
begin
while st[1]=#32 do delete(st,1,1);
while st[length(st)]=#32 do delete(st,length(st),1);
while pos(#32#32,xau) >0 do delete(xau,pos(#32#32,xau),1);
end;
{*> "#32" là mã số của dấu cách trong bảng mã ASCII. Có thể đổi "#32" thành "' '"
    câu lệnh while...do thứ 3 dùng các lệnh của xâu. Có thể đổi thành
          for i:=1 to length(st) do if (st[i]=' ') and (st[i+1]=' ') then
          while s[i+1]=' ' do delete(s,i+1,1);}

p/s: thầy cũng tham gia cho vui nha!!

th nao zay ta???
Mấy bác học tới chương trình con rùi cơ ak. Có kaj nè viết chương trình rất gọn. buổi sau các bac chit

hình như là thầy Chương hay thầy Dương j` đó ạ. Mà thầy teen thiệt!!