Các đoạn chương trình thông dụng trong pascal (Part 1)

Các đoạn chương trình thông dụng trong pascal (Part 1) Mình sẽ tổng hợp part 2 sớm nhất. Cám ơn các bạn đã ủng hộ

*Xóa phần tử trùng mảng A (n phần tử) For i:=1 to n-1 For j:=n downto i+1 If a[i]=a[j] then Begin For k:=j to n A[k]:=a[k+1]; Dec(n); End; *Hàm kiểm tra số nguyên tố Function kt(n:integer):Boolean; Var I,k:integer; Begin Nt:=false; K:=0; If n>=2 then begin For i:=2 to trunc(sqrt(n)) If n mod i=0 then inc(k); End Else nt:=false; If k=0 then nt:=true; End; *Hàm kiểm tra số siêu nguyên tố (Sử dụng hàm nt) function snt(n:longint):boolean; begin snt:=false; while n>0 begin if nt(n)=true then begin m:=m div 10; snt:=true; end else begin snt:=false; break; end; end; end; *Tách từ đưa vào mảng Vd: Input: S= ‘Nhi Thuc Newton’ Output: A[1]:=Nhi; A[2]:=Thuc; A[3]:=Newton; S:=s+’ ‘; N:=0; While S’’ Begin Inc(n); While s[1]=’ ‘ delete(s,1,1); A[n]:=copy(s,1,pos(‘ ‘,s)-1); Delete(s,1,pos(‘ ‘,s)); End; Thuật toán với xâu có khoảng trắng dư9 *Đếm số lần xuát phần tử mảng A (N phần tử) For i:=1 to n B[i]:=a[i]; M:=n; For i:=1 to n-1 For j:=n downto i+1 If a[i]=a[j] then Begin For k:=j to n A[k]:=a[k+1]; Dec(n); End; For i:=1 to n For j:=1 to m If b[j]=a[i] then inc(c[i]); Mảng C mảng kết quả! ... A[3]:=Newton; S:=s+’ ‘; N:=0; While S’’ Begin Inc(n); While s[1]=’ ‘ delete(s,1 ,1); A[n]:=copy(s,1,pos(‘ ‘,s) -1); Delete(s,1,pos(‘ ‘,s)); End; Thuật toán với xâu có khoảng trắng dư9 *Đếm số lần