请教两个很菜很菜的程序题

Question

请用PASCAL语言编写。
1.编写一段程序，输出Fibonacci数列前40项2.编写一段程序，用冒泡法对10个数由小到大排序

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  temparray:array[0..5] of Integer;
  i,temp:Integer;
begin
  temparray[0]:=StrToInt(edit1.Text);
  temparray[1]:=StrToInt(edit2.Text);
  temparray[2]:=StrToInt(edit3.Text);
  temparray[3]:=StrToInt(edit4.Text);
  temparray[4]:=StrToInt(edit5.Text);
  temparray[5]:=StrToInt(edit6.Text);
  i:=0;
  while i<High(temparray) do begin
      if temparray[i]>temparray[i+1] then begin
        temp:=temparray[i];
        temparray[i]:=temparray[i+1];
        temparray[i+1]:=temp;
        i:=0;
        end
      else i:=i+1;
  end;
  label1.Caption:=IntToStr(temparray[0]);
  label2.Caption:=IntToStr(temparray[1]);
  label3.Caption:=IntToStr(temparray[2]);
  label4.Caption:=IntToStr(temparray[3]);
  label5.Caption:=IntToStr(temparray[4]);
  label6.Caption:=IntToStr(temparray[5]);
end;//冒泡排序....

Answer 2

Function fibon(n:integer):integer;
begin
  if n=0 then fibon:=0;
  if n=1 then fibon:=1;
  if n>1 then fibon:=fibon(n-1)+fibon(n-2);
end;

Answer 3

PROGRAM bubble_sort;//冒泡排序
CONST N = 10;
VAR A : ARRAY[ 1..N ] OF INTEGER;
　T, I, J : INTEGER;
　FLAG :BOOLEAN;
BEGIN
　WRITE( '输入10个整数:' );
　FOR I:= 1 TO N DO READ( A[I] );
　READLN; WRITELN;
　I:=1;
　REPEAT
　　FLAG:= TRUE;
　　FOR J:= 1 TO N-I DO
　　　IF A[J] > A[J+1] THEN
　　　　BEGIN
　　　　　T:=A[J]; A[J]:=A[J+1]; A[J+1]:=T;
　　　　　FLAG:= FALSE
　　　　END;
　　I:=I+1;
　UNTIL FLAG ;
　WRITE( '输出排序结果:' );
　FOR I:= 1 TO N DO WRITE( A[I]:3 );
　WRITELN; READLN;
END.

Answer 4

真晕阿！！
输出Fibonacci数列前40项
数列？数组把？
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 40 do
begin
  label1.Caption:=inttostr(list1[i]);
  sleep(10);
end;冒泡课本上有，自己找把！！

Answer 5

program Project2;
{$APPTYPE CONSOLE}
var
a,b,c,i:integer;
begin
i:=0;
a:=1;
b:=1;
writeln(1);
writeln(1);
repeat
c:=a+b;
a:=b;
b:=c;
writeln(c);
inc(i);
until i>=38;
readln;
end.

Answer 6

弱弱的问一句啥叫Fibonacci数列

Answer 7

提示一下吧.
Fiboonacci数列:1,1,2,3,5,8,13,21.......
冒泡排序2个循环,用一个临时变量.然后不断交换.

Answer 8

算法谁都懂，可是实现有点BUG，请写出源码！

Answer 9

fangyuzhou(方雨舟) 怎么可以说这样的话每个人写程序 不都从不知道到知道的吗
汗
要支持那写现在加入  delphi的人