BCFACT PTIT spoj - Giai thừa (Cơ bản)

Nguồn đề bài http://www.spoj.com/PTIT/problems/BCFACT/

Nội dung bài viết

1. Đề bài tính giai thừa
2. Code tham khảo tính giai thừa

1. Đề bài tính giai thừa

Tính n!

Dữ liệu

Mỗi test trên 1 dòng chứa duy nhất một số nguyên dương n (n<=17).

Bộ test kết thúc bởi 1 dòng chứa số 0.

Kết quả

Mỗi test xuất ra trên 1 dòng chứa kết quả n!

Ví dụ

Input:

Output:

2. Code tham khảo tính giai thừa

Bài này mình viết chưa được tối ưu 😀 các bạn có thể tự cải tiến.

TYPE dayso=ARRAY[1..20000] OF BYTE;
VAR a:dayso;
    i,n:BYTE;

FUNCTION gt(a:dayso; n:BYTE; vt:BYTE):qword;
VAR i:BYTE;
BEGIN
      gt:=1;
      FOR i:= 1 TO a[vt] DO
           gt:=gt*I;
END;

BEGIN
    n:=1;
    REPEAT
    readln(a[n]);
    inc(n);
    UNTIL a[n-1]=0;

    FOR i:=1 TO n-2 DO
        writeln(gt(a,n-1,i));
END.

TYPE dayso=ARRAY[1..20000] OF BYTE;

VAR a:dayso;

i,n:BYTE;

FUNCTION gt(a:dayso; n:BYTE; vt:BYTE):qword;

VAR i:BYTE;

BEGIN

gt:=1;

FOR i:= 1 TO a[vt] DO

gt:=gt*I;

END;

BEGIN

n:=1;

REPEAT

readln(a[n]);

inc(n);

UNTIL a[n-1]=0;

FOR i:=1 TO n-2 DO

writeln(gt(a,n-1,i));

END.

BCFACT PTIT spoj – Giai thừa (Cơ bản)

1. Đề bài tính giai thừa

Dữ liệu

Kết quả

Ví dụ

2. Code tham khảo tính giai thừa

Bài viết liên quan

Trả lời Hủy