王朝知道

分享

 

01.pascal问题 ch:=#8;
nnmyself的答案里等同于 ch:=ord(8); 应该该为等同于 ch:=CHR(8); CHR(8)即ASCII码=8的字符(Crtl-H)...查看完整版>>pascal问题 ch:=#8;02.pascal问题
又是"小"问题while i<n*n do begin for i:=i+1 to i+k do begin x:=x+y; //注意,应该是x:=x+j;r[x,y]:=i; end;...查看完整版>>pascal问题03.pascal问题
program trangle;var h,z,g,i,a,b:integer;begin z:=20; g:=-1; for h:=1 to 10 do begin z:=z-1; g:=g+1; a:=z div 2; b:=g*2+1; for i:=1 to 10-h do write(' ')...查看完整版>>pascal问题04.free pascal页面问题
你用的是win32下的fp吧在打开后，右击任务栏上的图标找到默认值－选项－默认代码页把936……改成437……修改后再重开就好了！...查看完整版>>free pascal页面问题05.PASCAL问题
Const MaxN=100;Var i, j, t: longint; prim: array[1..MaxN] of boolean;Begin For i:=1 to MaxN do prim:=True; {数组初始化} For i:=2 to MaxN do begin if prim=true then ...查看完整版>>PASCAL问题06.PASCAL问题
type days=(mon,tue,wed,thu,fri,sat,sun);var a,b,c,d,e,f,g,pri:days;i:integer;beginfor a:=mon to sun dofor b:=mon to sun doif b<>a then for c:=mon to sun doif (c<>a) and (c<>b) then f...查看完整版>>PASCAL问题07.PASCAL问题
program xxx; type ttype=record i:integer; a1:array[1..6]of real; pingjun:real; end; var f,f1:text; a:ttype; i,j,m,n:integer; sum:real; begin assign(f,'rest1.in'); res...查看完整版>>PASCAL问题08.pascal问题
m初始值为0...查看完整版>>pascal问题09.pascal问题
0/1背包 一个旅行者有一个最多能用m公斤的背包，现在有n件物品，它们的重量分别是W1，W2，...,Wn,它们的价值分别为C1,C2,...,Cn.若每种物品只有一件求旅行者能获得最大总价值。 <1>分析说明: 显然这个题可用深...查看完整版>>pascal问题10.PASCAL问题
program pp; var n,s:integer;procedure aa(i:integer);beginif i=n then exit;s:=s+i;aa(i+1);end;begin readln(n); s:=0; aa(1); writeln(s);end....查看完整版>>PASCAL问题

 

 

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