Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Smartphone WIKO của Pháp chính thức xuất hiện tại Việt Nam

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Cuộc thi khoảnh khắc tuyệt vời cùng Vn-Zoom.com

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tuyển thành viên nhóm Reviews diễn đàn

VN-Zoom & ASUS đón siêu phẩm,tăng tốc chuẩn bị ASUS Expo 2014
Trang 1/2 1 2 cuốicuối
kết quả từ 1 tới 15 trên 29
  1. #1
    worldwide's Avatar
    worldwide vẫn chưa có mặt trong diễn đàn Rìu Vàng Đôi
    Tham gia
    Aug 2008
    Đến từ
    Một nơi rất xa...xa lắm....
    Bài
    1.208
    Cảm ơn
    1.610
    Điểm
    445/267 bài viết
    VR power
    0

    Default Tính giai thừa trong PASCAL

    bác nào chỉviết câu lệnh tính n! trong pascal với......với hàm for..do...
    tks...trước
    TÔI là ai không quan trọng, những gì tôi làm sẽ định nghĩa TÔI

  2. Có 2 thành viên cảm ơn worldwide cho bài viết này:
    chatmaytinh (11-10-2013), nghia_2129 (13-02-2011)

  3. #2
    gianghobentre's Avatar
    gianghobentre vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Aug 2008
    Đến từ
    TP.Hồ Chí Minh
    Bài
    610
    Cảm ơn
    3
    Điểm
    148/86 bài viết
    VR power
    0

    Default

    int p=1;
    for(int i=0;i<n;i++)
    p=p*i;
    return p;
    Thay đổi nội dung bởi gianghobentre; 12-10-2009 lúc 20:39.

  4. Có 1 thành viên cảm ơn gianghobentre cho bài viết này:
    nghia_2129 (13-02-2011)

  5. #3
    hieunv_mi's Avatar
    hieunv_mi vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Aug 2009
    Bài
    16
    Cảm ơn
    4
    Điểm
    3/2 bài viết
    VR power
    0

    Default

    Function gt(n: integer): long;
    begin
    i: integer;
    t: long;
    t:= 1;
    for i:=1 to n do t:= t*i;
    gt = t;
    end;

    ---------- Bài viết đã được nhập tự động bởi hệ thống ----------

    Function gt(n: integer): long;
    begin
    i: integer;
    t: long;
    t:= 1;
    for i:=1 to n do t:= t*i;
    gt = t;
    end;

  6. #4
    hieunv_mi's Avatar
    hieunv_mi vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Aug 2009
    Bài
    16
    Cảm ơn
    4
    Điểm
    3/2 bài viết
    VR power
    0

    Default

    Function gt(n: integer): long;
    begin
    i: integer;
    t: long;
    t:= 1;
    for i:=1 to n do t:= t*i;
    gt = t;
    end;

  7. #5
    QuangiahoPan's Avatar
    QuangiahoPan vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Jan 2008
    Đến từ
    Hải Phòng City
    Bài
    61
    Cảm ơn
    27
    Điểm
    13/5 bài viết
    VR power
    0

    Default

    {Tinh giai thua N! (tinh duoc den 13! la het)}
    program gtN;
    var n,i: integer;
    gt: longint;
    begin
    write('Giai thua cua n='); readln(n);
    gt:=1;
    if N<0 then writeln(#7,'Khong duoc vi N<0')
    else
    begin
    if N>0 then
    for i:=1 to N do gt:=gt*i;
    writeln(N,'!=',gt);
    end;
    readln
    end.
    {Hay lap chuong trinh con tinh N! (toi da 7!.}
    {program GTNCCT;
    var i,t,N: integer;
    function gt(N: integer): integer;
    begin
    if N=0 then gt:=1
    else
    begin
    t:=1;
    for i:=1 to N do t:=t*i;
    gt:=t;
    end;
    end;
    begin
    write('Giai thua N='); readln(N);
    writeln(N,'!=',gt(n));
    readln
    end.}
    __________________

  8. Có 2 thành viên cảm ơn QuangiahoPan cho bài viết này:
    nghia_2129 (13-02-2011), nguyenduc308 (19-02-2011)

  9. #6
    cauheodep's Avatar
    cauheodep vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Dec 2007
    Bài
    2
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default tính giùm em

    10000000000 ! ( 10 tỷ giai thừa )
    ra được bao nhiêu con số chỉ giùm em
    VD : 0 ! = 1
    1 ! = 1
    2 ! = 1x2
    3 ! = 1+2
    6 ! = 1x2x3
    Ai giỏi tin học tính giùm em nha (thầy em kêu tính bằng pascal )

  10. #7
    duthienkt's Avatar
    duthienkt vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Dec 2009
    Bài
    47
    Cảm ơn
    24
    Điểm
    4/3 bài viết
    VR power
    0

    Lightbulb

    mình tính tới 20000! thôi, đang khám phá, mình thấy cũng chỉ tính đc số ~ 64000 chữ số thôi
    nó đây,mình làm hơi màu mè, các bạn nên bỏ được chổ nào thì bỏ, vì 1 số phần ghi ra màn hình sẽ ảnh hưởng đến tính toán
    program GIAITHUA;
    uses crt;
    label lb;
    const max=10000;
    VAR N:array [1..max]of integer;{noi thao tac}
    m{bien tam},mem{nho}:longint;
    ts,NL:word;
    i,pc:integer;
    f1:file of char;
    nameoffile:string;
    pt:real;

    procedure writechartofile(number:integer);
    var chuoi:string;{kitu:char;}j:integer;
    begin
    str(number,chuoi);
    for j:=1 to length(chuoi) do
    write(f1,chuoi[j]);
    end;

    procedure tich(x:word);
    begin
    mem:=0;
    for i:=1 to max do
    begin
    m :=N[i]*x;
    N[i]:=(m+mem)mod 10000;
    mem :=(m+mem) div 10000;
    end;
    end;

    procedure xuatketqua;
    var d:boolean;
    begin
    textcolor(11);
    d:=false;
    textcolor(2);
    write('Making file');
    for i:=max downto 1 do
    begin
    gotoxy(12,6);write((max-i+1)div 100,'%');
    if N[i]<>0 then d:=true;
    if d=true then writechartofile(N[i]);
    end;
    writeln;
    write('Make file complete.');
    end;

    begin
    lb:
    clrscr;
    textcolor(11);
    write('N! N= ');
    textcolor(lightgreen);
    {$I-}
    readln(NL);
    if ioresult<>0 then
    begin
    write ('MATH ERROR');
    readln;
    GOTO lb ;
    end else
    begin

    str(nl,nameoffile);
    assign(f1,nameoffile+'!.txt');
    rewrite(F1);
    N[1]:=1;pt:=nl/100;
    write('Computer is essential ');
    for ts:=1 to NL do
    begin
    tich(ts);
    gotoxy(12,3);
    write(trunc(ts/pt),'%');
    end;
    writeln;
    writeln('Complete');
    xuatketqua;close(f1);
    readln;
    end;writeln('Again ? [y]/[n]');
    if readkey='y' then
    goto lb;
    end.
    Thay đổi nội dung bởi duthienkt; 30-06-2011 lúc 08:19.

  11. #8
    HaiThanhVien's Avatar
    HaiThanhVien vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Nov 2010
    Đến từ
    Nhà tù Côn Đảo
    Bài
    58
    Cảm ơn
    0
    Điểm
    18/15 bài viết
    VR power
    0

    Default

    tính đến số lớn (tử 20! trở lên) phải dùng sang Array hoặc String thì mới hiện được kết quả. Chứ còn kể cả dùng Real vẫn không đưa được ra kết quả.
    Chứ còn số lớn (VD: 10000000!) thì là thầy bạn chơi xỏ bạn rồi. Chẳng có biến loại nào chứa nổi. Tràn hết. String chắc phải dùng đến mảng String mới in ra được

  12. #9
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.656
    Cảm ơn
    11.931
    Điểm
    5.258/3.016 bài viết
    VR power
    0

    Default

    Trích HaiThanhVien View Post
    tính đến số lớn (tử 20! trở lên) phải dùng sang Array hoặc String thì mới hiện được kết quả. Chứ còn kể cả dùng Real vẫn không đưa được ra kết quả.
    Chứ còn số lớn (VD: 10000000!) thì là thầy bạn chơi xỏ bạn rồi. Chẳng có biến loại nào chứa nổi. Tràn hết. String chắc phải dùng đến mảng String mới in ra được
    Chuẩn đấy, nếu dùng turbo pascal thì string khó mà tính nổi.
    Nhưng mà dùng string trong Free Pascal có thể lên tới hơn 2 tỷ ký tự thì cũng phải chật vật nữa là !
    Nothing is true, everything is permitted

  13. #10
    duthienkt's Avatar
    duthienkt vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Dec 2009
    Bài
    47
    Cảm ơn
    24
    Điểm
    4/3 bài viết
    VR power
    0

    Default

    2 tỷ kí tự thì chờ dài cổ. mình tính được 1 triệu ! nhưng lớn nữa chắc có 1 siêu máy tính thì mới tính ra. 1 triệu giai thừa thì dùng File nháp. nhưng sợ nó nhiều kí tự. đọc xong là die.Mình không dùng string vì 1 byte chỉ dc 1 chữ số thôi. còn kiểu bye thì được 2 chữ. ví dụ 1333 thì có 2 byte là 13 33. tuơng tự các kiểu khác như Integer...

  14. Có 1 thành viên cảm ơn duthienkt cho bài viết này:
    auauau97 (09-12-2011)

  15. #11
    Tham gia
    Dec 2010
    Bài
    4
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    Đây là bài tính giai thừa với n~ số cực lớn:

    var fi,fo:text;
    a:array[1..10000] of 0..9;
    scs,nho,tam,i,j,n,tcs:integer;
    begin
    assign(fi,'giaithua.inp');reset(fi);
    assign(fo,'giaithua.out');rewrite(fo);
    while not eof(fi) do
    begin
    readln(fi,n);
    a[1]:=1;scs:=1;
    for i:=1 to n do
    begin
    for j:=1 to scs do
    begin
    tam:=a[j];
    a[j]:=(a[j]*i+nho)mod 10;
    nho:=(tam*i+nho)div 10;
    end;
    while nho>0 do
    begin
    scs:=scs+1;
    a[scs]:= nho mod 10;
    nho:=nho div 10;
    end;
    end;
    for j:= scs downto 1 do tcs:=tcs+a[j];
    writeln(fo,tcs);
    end;
    close(fi);
    close(fo);
    end.

    Thông cảm đây là kiến thức tin11 về mua quyển sách tin 11 đọc là hiểu ngay ý mà! Tuj cũng mới có lớp 9 thôi n trong đội tin mấy cái này học nhão rùj!

  16. #12
    thecuong064's Avatar
    thecuong064 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2011
    Đến từ
    Hacker's Home
    Bài
    936
    Cảm ơn
    133
    Điểm
    415/259 bài viết
    VR power
    0

    Default

    Trích doantruongthanh View Post
    Đây là bài tính giai thừa với n~ số cực lớn:

    var fi,fo:text;
    a:array[1..10000] of 0..9;
    scs,nho,tam,i,j,n,tcs:integer;
    begin
    assign(fi,'giaithua.inp');reset(fi);
    assign(fo,'giaithua.out');rewrite(fo);
    while not eof(fi) do
    begin
    readln(fi,n);
    a[1]:=1;scs:=1;
    for i:=1 to n do
    begin
    for j:=1 to scs do
    begin
    tam:=a[j];
    a[j]:=(a[j]*i+nho)mod 10;
    nho:=(tam*i+nho)div 10;
    end;
    while nho>0 do
    begin
    scs:=scs+1;
    a[scs]:= nho mod 10;
    nho:=nho div 10;
    end;
    end;
    for j:= scs downto 1 do tcs:=tcs+a[j];
    writeln(fo,tcs);
    end;
    close(fi);
    close(fo);
    end.

    Thông cảm đây là kiến thức tin11 về mua quyển sách tin 11 đọc là hiểu ngay ý mà! Tuj cũng mới có lớp 9 thôi n trong đội tin mấy cái này học nhão rùj!
    Cực lớn là bao nhiêu.....

  17. #13
    ngonson's Avatar
    ngonson vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Oct 2011
    Bài
    1
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    var n,i: integer;

    begin
    writeln('nhap n:');
    realn(n);
    for i:=1 to n do
    writeln('xuat n');

  18. #14
    lionstage's Avatar
    lionstage vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Aug 2010
    Bài
    9
    Cảm ơn
    0
    Điểm
    4/3 bài viết
    VR power
    0

    Default

    Trích doantruongthanh View Post
    Đây là bài tính giai thừa với n~ số cực lớn:

    var fi,fo:text;
    a:array[1..10000] of 0..9;
    scs,nho,tam,i,j,n,tcs:integer;
    begin
    assign(fi,'giaithua.inp');reset(fi);
    assign(fo,'giaithua.out');rewrite(fo);
    while not eof(fi) do
    begin
    readln(fi,n);
    a[1]:=1;scs:=1;
    for i:=1 to n do
    begin
    for j:=1 to scs do
    begin
    tam:=a[j];
    a[j]:=(a[j]*i+nho)mod 10;
    nho:=(tam*i+nho)div 10;
    end;
    while nho>0 do
    begin
    scs:=scs+1;
    a[scs]:= nho mod 10;
    nho:=nho div 10;
    end;
    end;
    for j:= scs downto 1 do tcs:=tcs+a[j];
    writeln(fo,tcs);
    end;
    close(fi);
    close(fo);
    end.

    Thông cảm đây là kiến thức tin11 về mua quyển sách tin 11 đọc là hiểu ngay ý mà! Tuj cũng mới có lớp 9 thôi n trong đội tin mấy cái này học nhão rùj!
    Ngu mà con tỏ ra nguy hiểm.... mẹ...<assign(fi,'giaithua.inp');reset(fi);
    assign(fo,'giaithua.out');rewrite(fo);> file .inp đâu ra ?

  19. #15
    Tung_Huynh's Avatar
    Tung_Huynh vẫn chưa có mặt trong diễn đàn Cống hiến cho [V-Z]
    Tham gia
    Jul 2009
    Đến từ
    Thái Nguyên
    Bài
    6.777
    Cảm ơn
    1.540
    Điểm
    4.128/2.749 bài viết
    VR power
    0

    Default

    Trích doantruongthanh View Post
    Đây là bài tính giai thừa với n~ số cực lớn:

    var fi,fo:text;
    a:array[1..10000] of 0..9;
    scs,nho,tam,i,j,n,tcs:integer;
    begin
    assign(fi,'giaithua.inp');reset(fi);
    assign(fo,'giaithua.out');rewrite(fo);
    while not eof(fi) do
    begin
    readln(fi,n);
    a[1]:=1;scs:=1;
    for i:=1 to n do
    begin
    for j:=1 to scs do
    begin
    tam:=a[j];
    a[j]:=(a[j]*i+nho)mod 10;
    nho:=(tam*i+nho)div 10;
    end;
    while nho>0 do
    begin
    scs:=scs+1;
    a[scs]:= nho mod 10;
    nho:=nho div 10;
    end;
    end;
    for j:= scs downto 1 do tcs:=tcs+a[j];
    writeln(fo,tcs);
    end;
    close(fi);
    close(fo);
    end.

    Thông cảm đây là kiến thức tin11 về mua quyển sách tin 11 đọc là hiểu ngay ý mà! Tuj cũng mới có lớp 9 thôi n trong đội tin mấy cái này học nhão rùj!
    Học nhiều, làm nhiều.. nhưng lần nào cũng sai thì cuối cùng vẫn chả đc cái j`

 

 
Trang 1/2 1 2 cuốicuối

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •