Hiển thị kết quả từ 1 đến 3 / 3
  1. #1
    Tham gia
    21-03-2017
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts

    Giúp ! Tính Giai Thừa Trong Pascal

    Chào các bạn, hôm nay mình vừa mới viết xong chương trình tính giai thừa của 1 mảng sử dụng hàm function. Nhưng khi chạy thì nó không xuất hiện ra kết quả như ý muốn. VD: nhập 5 số: 1,4,7,5,2 kết quả in ra sẽ là: 1,24,5040,120,2. Nhưng lúc mình chạy thì nó lại in ra: 1,24,2,5040 thiếu mất số 120 và cách sắp xếp cũng khác. Mong các bạn giúp mình bằng cách sửa code giúp mình với ( mình nghĩ lỗi là do phần in ra giá trị giai thừa nhưng mà mãi mình không sửa được) !!!! Thanks nhiều, chúc các bạn 1 ngày vui vẻ !
    Code :
    uses crt;
    var
    A:Array[1..10] of integer
    n,i:integer;
    Function GiaiThua(k,integer):Longint;
    var
    GTGT:longint;
    Begin
    GTGT:=1;
    For i:=1 to k do
    GTGT:= GTGT * i;
    GiaiThua:=GTGT;
    End;
    Begin
    Clrscr;
    writeln('Ban hay nhap so phan tu cua day so');
    readln(n);
    For i:=1 to n do begin
    writeln('Hay nhap so thu',i);
    readln(A[i]);
    end;
    For i:=1 to n do
    write(GiaiThua(A[i]):6);
    readln;
    end.
    Quote Quote

  2. #2
    Tham gia
    13-08-2012
    Location
    Vĩnh Cửu, Đồng Nai
    Bài viết
    78
    Like
    7
    Thanked 9 Times in 8 Posts
    Bạn thử thay write(GiaiThua(A[i]):6); thành writeln(GiaiThua(A[i]):6); xem CT chạy đúng ko

    Unus Pro Omnibus, Omnes Pro Uno

  3. #3
    Tham gia
    30-07-2012
    Location
    VuaTenMien.Com - Mua bán Tên Miền
    Bài viết
    3,766
    Like
    161
    Thanked 254 Times in 229 Posts
    Vào đây nè www.GiaiThuat.com đầy bài như thế, các ngôn ngữ luôn
    www.VuaTenMien.Com, Mobi & Zalo:O9121Chín1357

Bookmarks

Quy định

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