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 | Create a free blog