王朝知道

分享

 

01.背包问题PASCAL
F[i,j]=max{f[i,k]+g+i}...查看完整版>>背包问题PASCAL02.定量背包问题pascal
用贪心...查看完整版>>定量背包问题pascal03.pascal 植树问题
用回溯!...查看完整版>>pascal 植树问题04.pascal编程问题
program question;function f(n:integer):float;var i:integer; r:float;begin r:=302; for i:=2 to n do begin r:= r + (i / (float)(i+3)) end;end;begin writeln("result : ", f(1314));...查看完整版>>pascal编程问题05.pascal编程问题
用ord函数和read过程判断空格read(c);if c=#32 then ……（退出，比如break）也许你是repeat……until的，就repeat……read(c);……until c<>#32;...查看完整版>>pascal编程问题06.PASCAL问题！急
program 第一题;var i,j,k,n,dire,m:integer; a:array[0..10,0..10] of integer;begin readln(n); i:=0; j:=1; m:=n*n; dire:=1; for k:=1 to m do begin case dire of 1:begin...查看完整版>>PASCAL问题！急07.pascal问题,请进
换钱问题：我用delphi做的，加一个button，一个memo。procedure TForm1.Button1Click(Sender: TObject);var a,b,c,n:integer;beginn:=0;a:=0; while a<19 do begin b:=0; while b<49 do begin ...查看完整版>>pascal问题,请进08.PASCAL植树问题
const n=3;r=2;var a:array[1..n,1..n] of integer; b,c:array[1..n] of integer; total:longint;procedure try(s,x,y:integer);var i,j,d:integer;begin if s>n*r then begin writeln('NO:',total+1);...查看完整版>>PASCAL植树问题09.PASCAL的问题
输出时改一下如输出实数x 则write(x:a:b);a，b分别表示占几格和保留几位小数...查看完整版>>PASCAL的问题10.PASCAL 的问题
PROGRAM XIAOXUESHENGDEYUNSUAN; var a,b,c,d:integer; begin randomize;a:=random(100); b:=random(100); for d:=1 to 10 do begin write (a,'+',b,'='); read(c); if a+b=c then writeln ('right') else writeln('...查看完整版>>PASCAL 的问题

 

 

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。