随笔分类 -  算法相关

摘要：program Project1;{$APPTYPE CONSOLE}uses SysUtils;//-------------for 语句实现----------------------------const N = 8;var Fib: array[0..8] of Integer ; i:Integer;begin Fib[0] := 0; Fib[1] := 1; for i:=2 to N do Fib[i] :=Fib[i -1] + Fib[i -2]; for i := 0 to N do Writeln(Fib[i]);R... 阅读全文

摘要：{没事做的时候拿一个c的杨辉三角翻译成DELPHI！ 觉的D的FOR不如C的FOR好使！DELPHI杨辉三角}program Project1;{$APPTYPE CONSOLE}usesSysUtils;vari, j, l, r:integer;a:array[0..17] of integer;n:Integer = 0;begina[0]:=0;a[1]:=1;while ((n < 1)or(n > 16)) dobeginWrite('请输入杨辉三角形的行数：');Readln(n);end;for i :=1 to n dobeginl:=0;for 阅读全文