-‘๑’- 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.
-‘๑’- 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.
-‘๑’- Chuyên Toán Bến Tre 09-12 -‘๑’-
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.



 
Trang ChínhTrang Chính  Đăng kýĐăng ký  Latest imagesLatest images  Tìm kiếmTìm kiế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 
Tính giai thừa EmptyMon Apr 12, 2010 4:24 pm

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

Tiến Sĩ
Tiến Sĩ

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 : 29
Đế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: 29 Kinh nghiệm: 426%
Sinh mệnh: 426/100
Pháp lực: 29/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)

 

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 | Báo cáo lạm dụng | Thảo luận mới nhất