æå个æ°è¯äºä¸è¡
追ç10个太大äºï¼æº¢åºã
pascal一维数组转化为数字
x:=a[1]*10+a[2];
PASCAL:用一维数组从键盘输入10个数,要求按输入时相反的顺序输出这10...
var a:array[1..10]of integer;b:array[1..10]of integer;i:integer;begin for i:=1 to 10 do read(a[i]);for i:=1 to 10 do b[i]=a[11-i];for i:=1 to 10 do write(b[i]:4);writeln;end.这样就可以了。谢谢。参考资料：自己 ...
PASCAL01背包问题
背包问题其实可以一维数组解决 if j>=w[i] then f[i,j]:=max(f[i-1,j],f[i-1,j-w[i]]+v[i]) 改为 if j>=w[i] then f[i,j]:=max(f[i-1,j],f[i-1,j-w[i]]+v[i]) else f[i,j]:=f[i-1,j];for j:=time downto 1 do 改为 for i:=1 to time do ...
如何在pascal中给一维数组的下标2设置为变量的值?
a:array[1..20,1..100]of integer;中间的数字随意变动，但后面的格式也要变。
pascal 清空一维数组
用fillchar或者for循环 如果要a数组清零的话就 a:array[1..100] of longint;fillchar(a,sizeof(a),0);或者 for i:=1 to 100 do a[i]；用fillchar的话，还可以统一赋成别的值，不过就要用别的符号了，不一定和数字本身一样。fillchar还可以直接赋true和false ...
free pascal问题
如果是自定义的变量，看看是不是声明变量时，写的不是arry，如果是申请数组应该写array。
某一个Pascal 程序中截取出来的一段,求解释
打个不定恰当的比方:有m*n个学生方阵(二维数组p)一共m*n 个学生,现在把学生调整成一个长队列(一维数组o),第一排第一个学生(p[1,1]),出来,站在队头(o[1]:=p[1,1]),第一排第二个学生排在第二(o[2]:=p[1,2]),...第一排第n个学生排在第n个(o[n]:=p[1,n]),好,第一...
pascal编程,请用递归但别那么难理解:已知一个一维数组a[1..10]和...
vara:array[1..10] of integer;m,i,num:integer;procedure next(m,x:integer;s:string);var {x为当前选中的元素的下标，s为选中的元素的下标串组合}i:integer;ss:string;beginif m=0 then begin writeln(s); inc(num); end;if m>0 then for i:=x to 10 do beginstr(i:3,ss);...
数组可以存字符吗?(pascal)
一维数组 1、定义：var a:array [1..10] of integer;其中：a是这一批数据的名称，称为数组名；array、of是定义数组的保留字；中括号中的数字是数据编号的下限和上限，财时也说明了数据的个数（上限-下限）；最后一个是数据的基类型，如integer，char，real，boolean。2、数组元素的输入：数组名...
pascal 滑雪问题
const dx:array[1..4] of -1..1=(0,1,-1,0); \/\/枚举上下左右的四种移动 dy:array[1..4] of -1..1=(1,0,0,-1);var a:array[0..101,0..101] of longint;f:array[1..100,1..100] of longint; \/\/实现记忆化，记录已经求过的点 max,r,c,i,j,t:longint;function...
