一道Matlab试题，答对重重有赏。今晚之前需要答案，谢谢各位了！！试题如下图：

Answer 1

授人予鱼不如授人予渔，让你学会才是王道

在实际应用中，会经常遇到许多有规律性的重复运算，这就需要掌握本章所介绍的循环结构程序设计。
在Pascal语言中，循环结构程序通常由三种的循环语句来实现。它们分别为FOR循环、当循环和直到循
环。通常将一组重复执行的语句称为循环体，而控制重复执行或终止执行由重复终止条件决定。重复语句
是由循环体及重复终止条件两部分组成。
第一节 循环语句（FOR 语句）
一、for 语句的一般格式
for <控制变量>:=<表达式1> to <表达式2> do <语句>;
for <控制变量>:=<表达式1> downto <表达式2> do <语句>;
其中for、to、downto和do是Pascal保留字。表达式1 与表达式2的值称为初值和终值。
循环的语句格式：FOR 变量名 := 初值 TO 终值 DO 语句；
[例] S：=0；
FOR I ：= 1 TO 10 DO S ：= S + I；
Writeln（‘S =’，S）；
求1+2+3+..+N 的和如何编程呢？
二、For 语句执行过程
①先将初值赋给左边的变量（称为循环控制变量）；
②判断循环控制变量的值是否已“超过”终值，如已超过，则跳到步骤⑥；
③如果末超过终值，则执行do后面的那个语句（称为循环体）；
④循环变量递增（对to）或递减（对downt o)1；
⑤返回步骤②；
⑥循环结束，执行for循环下面的一个语句。
三、说明
①循环控制变量必须是顺序类型。可以是整型、字符型、枚举型等，但不能为实型。
②循环控制变量的值递增或递减的规律是：选用to则为递增；选用downto则递减。
③所谓循环控制变量的值“超过”终值，对递增型循环，“超过”指大于，对递减型循环，“超过”指
小于。
④循环体可以是一个基本语句，也可以是一个复合语句。
⑤循环控制变量的初值和终值一经确定，循环次数就确定了。但是在循环体内对循环变量的值进行修
改，常常会使得循环提前结束或进入死环。建议不要在循环体中随意修改控制变量的值。
⑥for语句中的初值、终值都可以是顺序类型的常量、变量、表达式。
四、应用举例
例1．输出1－100之间的所有偶数。
var i:integer;
begin
for i:=1 to 100 do
if i mod 2=0 then write(i:5);
end.
例2．求N！＝1＊2＊3＊…＊N ，这里N不大于10。
分析：程序要先输入N，然后从1累乘到N。
程序如下：
var n,i:integer； ｛i为循环变量｝
S:longint; ｛s作为累乘器｝
begin
write(‘Enter n=’);readln(n);{输入n}
s:=1;
for i:=2 to n do ｛从2到n累乘到s中｝
s:=s*i;
writeln(n,’!=’,s); ｛输出n!的值｝
end.
例3、一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y恰好比x 大36，请
编程求出所有这样的两位数。
分析：① 用for循环列举出所有的两位数，x为循环变量；
② 用公式a:= x div 10分离出x的十位数字；
③ 用公式b:= x mod 10分离出x的个位数字；
④ 用公式y:= b*10+a合成新数y；
⑤ 用式子y-x=36筛选出符合条件的数x并输出。
Program ex34;
Var a,b,x,y:integer;
Begin
For x := 10 to 99 do
Begin
a := x div 10;
b := x mod 10;
y := b*10+a;
if y-x=36 then writeln(x);
End;
Readln;
End.
例4：输入一个自然数，求这个自然数的所有约数之和。
分析：输入X——>找出X的所有约数（从1到X逐个判断，看 X MOD Y是否为0），并且累加起来存
在S中——>输出S。
Program ex35;
Var s,x,y:integer;
BEGIN
READLN（X）；S：=0；
FOR Y：=1 TO X DO
IF X MOD Y = 0 THEN S：=S+Y；
WRITELN（S）；
END.
例5、把整数3025从中剪开分为30 和25 两个数，此时再将这两数之和平方，(30+25)2=3025 计算结
果又等于原数。求所有符合这样条件的四位数。
分析：设符合条件的四位数为N，它应当是一个完全平方数，用(a*a)表示。
① 为了确保N=(a*a)在四位数（1000～9999）范围内，可确定a在32～99循环；
② 计算N=a*a；将四位数N拆分为两个数n1和n2；
③ 若满足条件(n1+n2)*(n1+n2)＝N 就输出 N 。
Pascal程序:
Program Exam35；
Var N，a， x，n1，n2: Integer；
Begin
for a:=32 to 99 do
begin
N:=a*a；
n1:= N div 100； ｛拆取四位数的前两位数｝
n2:= N-n1*100； ｛拆取四位数的后两位数｝
X:=n1+n2；
if x*x=N then writeln (N)；
end；
Readln
End.

追问

谢谢了，不过说真的，我一点不懂，但是以后学好了希望可以和你们探讨。我需要的是正确的答案。。。

Answer 2

我来问您做这道题目，
matlab和c在数组中一个差别就是c的数组第一个是a（0），matlab则是a（1）。所以题目是从a0开始算，则求f（20）在matlab中就是求f（21）程序如下
%%%%%%%%用for循环程序为
n=21%%%%%想算到f几就令n等于多少
a=zeros(1,n);
a(1)=1;a(2)=1;
for i=[3:n]
a(i)=a(i-1)+a(i-2);
end
disp(a(21))
%%%%%%%%
结果是：
n =

21

10946
%%%%%%%用while循环做的话
n=21
a=zeros(1,n);
a(1)=1;a(2)=1;
i=3;
while(i<=21)
a(i)=a(i-1)+a(i-2);
end
disp(a(21))
%%%%%%结果是

n =

21

10946
%%%%%%%%全部都验证过的，请LZ查看，希望加分~~~~~嘻嘻

追问

谢谢了！！大家都说的对，我就取我看得懂的，不好意思哈！

追答

看着这分数我两眼冒金光。。。可惜没挣到呀

追问

没事，下次找你，因为我们还有这样的题，到时候留意哈！！

Answer 3

Private Sub CommandButton1_Click()
Dim f1, f2, f0, k, a, i As Integer
a = text1.Text 'N值
f1 = 1
f0 = 1
For i = 1 To a - 1
f2 = f1 + f0
f0 = f1
f1 = f2
Next i
text2.Text = f2 'f(n)值
End Sub

Private Sub CommandButton2_Click()
Dim f1, f2, f0, a, i As Integer
a = 1
f1 = 1
f0 = 1
i = text1.Text 'n值
While a < i
a = a + 1
f2 = f1 + f0
f0 = f1
f1 = f2
Wend
text2.Text = f2 'f(n)值
End Sub
2个都算到答案是10946