Pascal习题

某人上台阶，一步可以走一个台阶，也可以走两个台阶，还可以走三个台阶。问他走到10层台阶，共有多少种不同的走法。

（用最简洁的语言编出来）

var
n,a,b,c: Integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
n:= 0;
for a := 0 to 10 do
for b := 0 to 5 do
for c := 0 to 3 do
begin
if a + b * 2 + c * 3 = 10 then
begin
write('走' + IntToStr(a) + '一个台阶,'+ '走'+ IntToStr(b) + '二个台阶,'+ '走' + IntToStr(c) + '三个台阶');
Writeln('');
inc(n);
end;
end;
Writeln('共有' + IntToStr(n) + '种走法');
Readln;
end.

var a,b,c,n,s:qword; i:integer; begin readln(n); a:=1;b:=2;c:=4; for i:=4 to n do begin s:=a+b+c;a:=b;b:=c;c:=s; end; if n<3 then writeln(n) else if n=3 then writeln('4') else writeln(s); end.

program xiti0097; 定义程序名,可以不写

var i,j,w,s:integer;定义变量 begin 开始程序

s:=0; 一个记数器,记录最多的走法 for i:= 0 to 10 do for j:= 0 to 5 do for w:= 0 to 3 do

if a + b * 2 + c * 3 = 10 then s:=s+1;如果可以到达第十层,即可多一种走法 writeln(s);输出 readln; end.结束

program stair;

var s,n:integer;

function f(n:integer):integer;

begin if n<3 then f:=n

else f:=f(n-1)+f(n-2);

end;

begin

readln(n);

s:=f(n);

writeln('s=',s);

end.

var a,b,c，s: Integer; begin

s:=0; for a := 0 to 10 do for b := 0 to 5 do for c := 0 to 3 do

if a + b * 2 + c * 3 = 10 then s:=s+1; writeln(s); readln; end.