Chuyên mục gỡ lỗi Pascal xin được phép mở màn Mời nhóm Developer và các hảo men tin vào comment nhé ! Đoạn Code : uses crt; var i,n,p : longint ; begin clrscr; readln(n); p := 1 ; for i := 1 to n do p := p * i ; writeln(p); end .

- Lỗi: Tràn số (Để ý thì đây là bài tính n!)

- Khắc phục: Sử dụng "bignum" là được 

- Code:

uses crt;
type int = longint;
type xau = ansistring;

function to_str(v: int): xau; var temp: xau; begin str(v, temp); exit(temp); end;
operator -(c: char; v: int) r: int; begin r:=ord(c) - v; end;
operator +(c: char; v: int) r: char; begin r:=chr(ord(c) + v); end;
operator *(a, b: xau) res: xau;
var r: array[0..100000] of int;
    i, j, n, m: int;
begin
    fillchar(r, sizeof(r), 0);
    res:='';
    n:=length(a); m:=length(b);
    for i:=1 to n do
        for j:=1 to m do
            inc(r[i + j], (a[i] - 48) * (b[j] - 48));
    for i:=n + m downto 1 do begin
        inc(r[i - 1], r[i] div 10);
        r[i]:=r[i] mod 10;
    end;
    
    for i:=0 to n + m do res:=res + ('0' + r[i]);
    while (res[1] = '0') and (length(res) > 0) do delete(res, 1, 1);
end;
operator *(a: xau; b: int) res: xau; begin res:=a * to_str(b); end;
operator :=(a: int) r: xau; begin r:=to_str(a); end;

var i, n: word;
    p: xau;
begin
    clrscr;
    readln(n);
    
    p:=1;
    for i:=1 to n do p:=p * i;
    writeln(p);
readln;
end.