Viết chương trình tính giai thừa của số n [Viết là n!]. Với yêu cầu: - Nếu người dùng nhập số n < 0 thì yêu cầu nhập lại. - Sử dụng chương trình con để tính giai thừa của một số. Lệnh n:= n-1 làm thay đổi giá trị của n nhưng khi ra khỏi chương trình con n có giá trị không đổi so với trước khi
gọi chương trình con. Bạn thấy bài viết này như thế nào?: Pascal - Viết chương trình tính giai thừa của số n [Viết là n!]
Mã chương trình
Program CTC_2;
uses crt;
var n:integer;x:longint;
Procedure Giai_Thua[var GT:longint; n:byte];
begin
GT:=1;
while n>0 do
begin
GT:=GT*n;
n:=n-1;
end;
end;
begin
repeat
clrscr;
write['Nhap so n: '];readln[n];
if n < 0 then begin write['Nhap so n>=0'];readln; end;
until n>=0;
Giai_Thua[x,n];
writeln['Giai thua cua ',n,'la:',x];
readln
end.
Nhận xét
Tommy owner Express Magazine
Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies
- Skype ID: tthanhthuy
Bài Kiểm Tra
2019-12-06T03:32:36+11:00 2019-12-06T03:32:36+11:00 Viết chương trình Pascal: Tính n! Lập trình Pascal, Tính n giai thừa //baikiemtra.com/uploads/news/2019_11/bai-tap-lap-trinh-pascal.jpg
Bài Kiểm Tra //baikiemtra.com/uploads/bai-kiem-tra-logo.png
Thứ sáu - 06/12/2019 03:31
- In ra
Viết chương trình Pascal: Tính n!
Program TINH_N_GIAI_THUA;
Uses crt;
Var i,n,gt:integer;
Begin
Clrscr;
Writeln[' TINH N GIAI THUA:'];
Writeln['----------------------------------'];
Write['Nhap n =']; readln[n];
gt:=1;
For i:=1 to n do
gt:=gt*i;
Writeln[n, '!=',gt];
Readln;
End.
- biscafun
- Chưa có nhóm
- Trả lời
7
- Điểm
105
- Cảm ơn
6
- Tin Học
- Lớp 8
- 10 điểm
- biscafun - 21:58:29 21/06/2020
- Hỏi chi tiết
- Báo vi phạm
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
- Datdoan03
- Chưa có nhóm
- Trả lời
873
- Điểm
24096
- Cảm ơn
620
- Datdoan03
- 22/06/2020
program ct;
uses crt;
var i,n:integer;
gt:longint;
begin clrscr;
write['Nhap so n: ']; readln[n];
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln[n,' giai thua la: ',gt];
readln;
end.
Học tốt!
Hãy giúp mọi người biết câu trả lời này thế nào?
star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star
5
star star star star star
1 vote
- manhquang0306
- team IQ vô cực
- Trả lời
2260
- Điểm
41401
- Cảm ơn
1629
- manhquang0306
- 07/06/2021
Mod Hoidap247
uses crt;
var n,i,gt:longint;
begin
clrscr;
write['n=']; readln[n];
gt:=1;
for i:=n downto 1 do gt:=gt*i;
writeln[n,'!=',gt];
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star
5
star star star star star
1 vote