Tiếp nhé
+Hàm kiểm tra số nguyên tố,trả về true nếu số n là số nguyên tố
Code:
Function nt(n:integer):boolean;
Var
i:integer;
Begin
if n<=1 then begin
nt:=false;
Exit;
end;
for i:=2 to (n div 2) do
if (n mod i)=0 then begin
nt:=false;
Exit;
end;
nt:=true;
End;
+Hàm tính giai thừa(loại cơ bản,áp dụng cho số nguyên dương n<=15)
Code:
Function gt(n:byte):Longint;
Var
s:Longint;
i:byte;
Begin
s:=1
For i:=2 to n do
s:=s*i;
gt:=s;
End;
+Sắp xếp mảng a với n phần tử theo thứ tự tăng dần,sử dụng thuật toán Bubble Sort
Code:
Procedure BubbleSort(Var a:mang,n:integer);{Mang là kiểu array khai báo
bằng từ khóa Type}
Var i,j:integer;
Begin
for j:=1 to n-1 do
for i:=n downto j+1 do
if a[i]<a[i-1] then
Swap(a[i],a[i-1];{Thủ tục Swap ở trên})
End;
Phương pháp này chạy chậm với những bộ dữ liệu lớn,vì vậy khi cần phương pháp sắp xếp tốt hơn,bạn nên dùng phương pháp Quick sort.Chương trình của nó có sẵn trong thư mục Example của Pascal,là file QSort.pas.Tuy nhiên bạn nên nhớ lấy để dùng,ko nên quá ỷ lại vào chương trình có sẵn,rủi bị ai xóa mất thì chỉ có khóc thôi
Bookmarks