-‘๑’- Chuyên Toán Bến Tre 09-12 -‘๑’-
Chúc mừng bạn đã đăng nhập thành công. Xin chờ giây lát để trở về trang chủ forum.



 
Trang ChínhTrang Chính  Đăng kýĐăng ký  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng NhậpĐăng Nhập  
Lưu ý: Gõ Tiếng Việt có dấu, viết đúng chính tả
 Bá Khả (3384)
 >>>lonely<<< (1710)
 quythanhkhuu (1304)
 kendy_girl202 (1043)
 truc_quynh_1994 (885)
 peheophuthuy (767)
 [A]chijioltiz[o] (711)
 Svat_94 (536)
 [P]....[lẶng]im..... (495)
 Su_147617 (426)

Share | 

 

 Tính giai thừa

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Mon Apr 12, 2010 4:24 pm

avatar
.♥..Love starts with a smile :D, develops with a kiss :* and ends with tears :((..♥.
Su_147617

Tiến Sĩ
Tiến Sĩ

Xem lý lịch thành viên http://hocscinhbentre.ifno
Giới tính : Nữ
Cung : Bò Cạp
Tổng số bài gửi Tổng số bài gửi : 426
Tài khoản Tài khoản : 608
Được cảm ơn : 27
Sinh nhật Sinh nhật : 30/10/1994
Tuổi Tuổi : 23
Đến từ Đến từ : chỗ tui ở :D
Châm ngôn Châm ngôn : .♥..Love starts with a smile :D, develops with a kiss :* and ends with tears :((..♥.
Level: 23 Kinh nghiệm: 426%
Sinh mệnh: 426/100
Pháp lực: 23/100

Bài gửiTiêu đề: Tính giai thừa

 
Program TinhGiaThua;
uses crt;
{$DEFINE DeQui} {Dan huong bien dich de chuyen huong su dung ham Giaithua}
VAR
k:byte;
{--------------------------}

Procedure Nhapso(Var M:byte);
BEGIN
CLRSCR;
Writeln('Tinh giai thua.');
Write('Cho so N= '); Readln(M);
END;

{-----Khong-de-qui---------}

{$IFDEF KhongDeQui}
FUNCTION Giaithua(k:byte):longint;
var i:byte; P:longint;
BEGIN
P:=1;
For i:=1 to k do
P:=P*i;
Giaithua:=P;
END;

{--------De-qui------------}
{$ELSE}

FUNCTION Giaithua(k:byte):longint;
{Thuc hien de qui duoi}
BEGIN
(*
if k = 0 then {Dieu kien neo - dam bao bai toan la dwng}
giaithua:=1 {Thieu dieu kien nay se gay Error:STACK OVERFLOW}
{Hoac loi: Range ckeck error}
else
*)
giaithua:=giaithua(k-1)*k;
END;
{$ENDIF}

{--------------------------}

Function TiepTuc:Boolean;
Var ch:char;
BEGIN
write('Tiep Tuc (Y/N/C/K:)');
Repeat
ch:=readkey;
Until ch in ['Y','y','N','n','C','c','K','k'];
Writeln(ch);
Case Upcase(ch) of
'Y','C':TiepTuc:=TRUE;
'N','K':TiepTuc:=FALSE;
End;
END;

{------- MAIN --------------}

BEGIN
REPEAT
Nhapso(k);
Writeln('Ket qua: ',K,'!=',Giaithua(K));
UNTIL NOT TiepTuc;
Readln;
END.
===========================================
p/s: chương trình do Su vjk, có saj xjn chỉ giùm nha vui vẻ


Số lần được cảm ơn : Message reputation : 100% (1 vote)



:.♥️.: Không Thương :.♥️.: Không Nhớ :.♥️.: Mộng Không Mơ :.♥️.:Không Buồn :.♥️.: Không Chán :.♥️.: Lệ Không Rơi :.♥️.: Không Yêu Ai Cả :.♥️.: Lòng Băng Giá :.♥️.: Không Nhớ Ai Cả :.♥️.: Hồn tự do :.♥️.:

Cây hỏi Lá :Nếu Cây chết Lá sẽ ra sao
Lá trả lời :Lá sẽ chết theo Cây
Cây lại hỏi :nếu 1 ngày Lá chết
Lá ừ & nói : sẽ có 1 Lá mới thay Lá bên Cây
 

Tính giai thừa

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
-‘๑’- Chuyên Toán Bến Tre 09-12 -‘๑’- :: -‘๑’-Phòng Tin Học-‘๑’- :: -‘๑’- Lập Trình -‘๑’--
Có Bài Mới Có bài mới đăngChưa Có Bài Mới Chưa có bài mới
Fixed and up by [A]dmin .
Copyright © 2007 - 2010, cHuYeNtOaN0912.fOrUm-vIeT.nEt .
Powered by phpBB2 - GNU General Public License. Host in France. Support by Forumotion.
Xem tốt nhất ở độ phần giải lớn hơn 1280x1024 và trình duyệt Firefox
Get Firefox Now Get Windows Media Player Now
Free forum | © phpBB | Free forum support | Liên hệ | Report an abuse | Have a free blog with Sosblogs