再赖壹瓶Ck
TVXQ豆花天道
关注数: 2
粉丝数: 51
发帖数: 365
关注贴吧数: 48
六年段小升初要来啦嘿嘿【时代13届学长在线解答啊哈哈】 各种咨询来吧~
pascal新手代码求指点 var a:array[1..10] of integer; s:array[1..10] of boolean; i,n,m:integer; procedure pailie(i:integer); var j,k:integer; s[j]:=true; for j:=1 to n do if s[j] then begin s[j]:=false; a[i]:=j; if i=m then begin for k:=1 to n-1 do begin write(a[k],' '); writeln(a[n]); end; end else pailie(i+1); end; begin assign(input,'pailie.in'); assign(output,'pailie.out') reset(input); rewrite(output); readln(n,m); fillchar(a,sizeof(a),0); pailie(1); close (input); clode(output); end.
pascal简单题新手求帮助 1.（哥德巴赫猜想）哥德巴赫猜想是指，任一大于2的偶数都可写成两个质数的和。迄今为止，这仍然是一个著名的世界难题，被誉为数学王冠上的明珠。试编写程序，验证任一大于2且不超过n的偶数都能写成两个质数之和。 const size=1000; var n,r,I,j,k,ans:integer; p：array[1..size] of integer; tmp:Boolean; begin readln(n); r:=1; p[1]:=2; for i:=3 to n do begin = ① ； for j:=1 to r do if I mod ② =0 then begin tmp:=false; break; end; if tmp then begin inc(r); ③ ; end; end; ans:=0; for i:=2 to (n div 2) do begin tmp:=false; for j:=1 to r do for k:=j to r do if i+i= ④ then begin tmp:=true; break; end; if tmp then inc(ans); end; writeln(ans); end. 若输入n为2010，则输出 = ⑤ 时表示验证成功，即大于2且不超过2010的偶数都满足哥德巴赫猜想。 求解，求思路
简单算法求解。。。求大神救命，在线急等 const num = 5; var n: integer; function r(n : integer) : integer; var i : integer; begin if n <= num then begin r := n; exit; end; for i :=1 to num do if r(n-i) < 0 then begin r:=i; exit; end; r:=-1; end; begin readln(n); writeln(r(n)); end. (1) 输入:7 输出：__________(4分) (2) 输入 16 输出：__________(4分)
pascal简单算法求解。。求大神救命，在线急等 const num = 5; var n: integer; function r(n : integer) : integer; var i : integer; begin if n <= num then begin r := n; exit; end; for i :=1 to num do if r(n-i) < 0 then begin r:=i; exit; end; r:=-1; end; begin readln(n); writeln(r(n)); end. (1) 输入:7 输出：__________(4分) (2) 输入 16 输出：__________(4分)
求大神帮助，搞不懂一个程序什么意思 const num = 5; var n: integer;function r(n : integer) : integer; var i : integer ;begin if n <= num then begin r := n; exit; end; for i :=1 to num do if r(n-i) < 0 then begin r:=i; exit; end; r:=-1;end;begin readln(n); writeln(r(n));end. 帮忙翻译下，每句是干什么，什么意思，特别是函数调用部分，谢谢
pascal新手求翻译 Var n,m,i:integer; function rSum(j:integer):integer; var sum:integer ;begin sum:=0; while j<>0 do begin sum:=sum*10+(j mod 10); j:=j div 10; end; rSum:=sum;end; begin readln(n,m); for i:=n to m do if i=rSum(i) then write(I,’’); end.帮忙翻译下，让我知道每句什么意思，在干什么.谢谢
新手pascal简单题求救速度在线等 输入n个0到100之间的整数，由小到大排序输出，每行输出8个程序清单： program chu7_5； var i，j，k，n，x：integer； b：array[0..100]of integer； begin readln(n)； for i:=0 to 100 do b[i]:=0； for i:=1 to n do begin readln(x)； b[x]:= ① end； ② for i:=0 to 100 do while ③ do begin write( ④ )； k:=k+1； b[i]:=b[i]-1； if ⑤ then writeln end； readln； end. 填的空是什么，还要详细思路
求指教啊，急求啊， 题目描述 不知道怎么的，小雨来到了一个奇怪的公园，看到一些奇怪的座椅。这些座椅编号从1到n，以环形排列，也就是说，按顺时针顺序，1号座椅的下一个是2号，2号座椅的下一个是3号，n号座椅的下一个是1号。 除了按顺时针顺序编号之外，每个座椅还有一个数字，表示这个座椅上已经坐了几个人，只有一个人没有的座椅，小雨才觉得是好座椅，才愿意坐下去。 现在已经知道小雨从第几号座椅出发，按照顺时针顺序挨个经过座椅，请你编程计算小雨在找到合适座椅的过程中要经过几个座椅。 输入 第一行两个整数，分别是n和小雨从第几号座椅的位置开始出发。第二行n个整数，依次表示每个座椅已经坐了几个人。输出 一个整数，表示小雨经过几个座椅后能找到合适的坐下，如果小雨始终找不到合适的，则输出0。 样例输入 5 5 2 0 0 3 1 样例输出 3
谁会做，求代码哼哼 题目描述 在歌星大奖赛中，有１０个评委为参赛选手打分，分数为１到１００分。选手的得分为：去掉一个最高分和一个最低分后其余８个分数的平均值，请编写一个评分程序实现。 输入 输入仅为一行，为１０个分数（１到１００之间的实数），两个相邻的分数之间仅有一个空格。 输出 输出有三行，格式如下： Canceled max score:** Canceled min score:?? Average score:## （其中**、？？、##分别为最高分、最低分和平均分，这些分数都保留两位小数） 样例输入 90 91 94 93 90 99 97 92 91 95 样例输出 Canceled max score:99.00 Canceled min score:90.00 Average score:92.88
求各位大神指导下新手啊。。。。。 题目描述 输入一串字符，字符个数不超过100，且以.结束，判断它们是否构成回文。 输入 一串字符，以.表示结束。 输出 输出判断的结果，以yes或者no表示。 样例输入 abccba.df 样例输出 yes
大家来甩个自家桌面..
1
下一页
