主题：新手问个问题（答出20+30分）
zhaoren
[专家分：420] 发布于 2005-09-23 19:24:00
输入2个数A,B,(0<A,B<50)输出
A!/(B!*(ABS(A-B)!))[em18][em18][em18]
回复列表 （共23个回复）
沙发
Benix [专家分：720] 发布于 2005-09-27 13:49:00
这种题~~~~~~~~~~~~~~难道你不会吗？？
板凳
沙漠笨鸟 [专家分：220] 发布于 2005-09-28 01:21:00
Program EX000(input,output);
Var
a,b,i,f,g:integer;
c,d,e,m:real;
Begin
Repeat
Readln(a,b)
Until (a>0) and (0<b<50); {读取A，B直到满足条件}
c:=1;
d:=1;
e:=1;
For i:=a downto 1 do
c:=c*i; {A的阶乘}
For i:=b downto 1 do
d:=d*i; {B的阶乘}
f:=a-b;
For i:= f downto 1 do
e:=e*i; {（A-B）的阶乘}
g:=abs(e);
m:=c/(d*g);
Writeln(m);
End.
3 楼
nikerwatery [专家分：60] 发布于 2005-09-30 20:42:00
恩......楼主不是连这种题目都不愿意想把
??
4 楼
阿Ben [专家分：2200] 发布于 2005-09-30 23:57:00
是不是那个阶乘难住你了？
5 楼
口口and枕头 [专家分：1550] 发布于 2005-10-01 16:19:00
几年级的呀？？？
6 楼
zhaoren [专家分：420] 发布于 2005-10-23 15:17:00
偶做不出啊~才5年级~
7 楼
tyingfengtown [专家分：30] 发布于 2005-10-24 20:09:00
program tt;
var
a:array[1..2000]of integer;
n,i,s:integer;
function sti(n:integer):integer;
var
m,i,s;integer;
bagin
s:=1;
for i;=1 to n do
s:=s*i;
sti:=s;
end;
begin
read(a);
read(b);
write(sti(a));
write(sti(b));
write(sti(a+b));
writeln;
end.
8 楼
lmj9201 [专家分：1400] 发布于 2005-11-13 21:09:00
不会吧，两个程序都出大错了，你还+。。。。
第一个怎能用实型呢；第二个a,b都没定义啊！
9 楼
无敌傻仔 [专家分：210] 发布于 2005-11-14 16:51:00
说得没错！
10 楼
小乖乖 [专家分：290] 发布于 2005-11-14 17:21:00
Var
a,b,i,f,g:integer;
c,d,e,m:real;
Begin
Repeat
Readln(a,b)
Until (a>0) and (0<b<50);
c:=1;
d:=1;
e:=1;
For i:=a downto 1 do
c:=c*i;
For i:=b downto 1 do
d:=d*i;
f:=a-b;
For i:= f downto 1 do
e:=e*i;
g:=abs(e);
m:=c/(d*g);
Writeln(m);
End.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 新手问个问题（答出20+30分）