高考问答郎心难攻:帮忙找错
来源：百度文库 编辑：高考问答 时间：2024/04/29 12:39:06
题目：
给一堆数组输入任意6个数字，假设为：
749815
请建以下内容的方阵：
748915
489157
891574
915748
157498
574981
下面是我编的程序
program p1;
var s:array[1..6] of integer;
var I:integer;
var b,c:char;
function shuzi(c:char):char;
begin
delete (c,1,1);
insert (b,c,6);
writeln (b);
end;
begin
for I:=1 to 6
begin
read(s[I]);
str(s[I]);
b:=b+c;
shuzi(s[I];
end.
谢谢!
我只有29分啊,不能给多的了
我学PASCAL的
要用子程序
给一堆数组输入任意6个数字，假设为：
749815
请建以下内容的方阵：
748915
489157
891574
915748
157498
574981
下面是我编的程序
program p1;
var s:array[1..6] of integer;
var I:integer;
var b,c:char;
function shuzi(c:char):char;
begin
delete (c,1,1);
insert (b,c,6);
writeln (b);
end;
begin
for I:=1 to 6
begin
read(s[I]);
str(s[I]);
b:=b+c;
shuzi(s[I];
end.
谢谢!
我只有29分啊,不能给多的了
我学PASCAL的
要用子程序
函数好像有点问题，而且b,c似乎要用String
我写了一个：
Var i,j:integer;
s:string[6];
x:char;
begin
readln(s);
for i:=1 to 6 do begin
writeln(s);
x:=s[1];
for j:=1 to 5 do s[j]:=s[j+1];
s[6]:=x;
end;
end.
还可以通过