作业帮pascal程序问题（火柴棒等式）
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/01 01:59:52
pascal程序问题（火柴棒等式）
program huochai;
var
ci:longint;
n,i,j,k:integer;
a:array[1.2000] of longint;
w:text;
begin
assign(w,'c:/in.txt');
reset(w);
read(n);
n:=n-4;
a[0]:=6;
a[1]:=2;
a[2]:=5;
a[3]:=5;
a[4]:=4;
a[5]:=5;
a[6]:=6;
a[7]:=3;
a[8]:=7;
a[9]:=6;
ci:=0;
for i:=10 to 1111 do
begin
a[i]:=a[i div 10]+a[i mod 10];
end;
for i:=0 to 1111 do
begin
for j:=0 to i do
begin
k:=i+j;
if (a[i]+a[j]+a[k]=n) then ci:=ci+1;
end;
end;
colse(w);
assign(w);
rewirte(w);
write(w,ci);
colse(w);
end.这个程序为什么过不了?
program huochai;
var
ci:longint;
n,i,j,k:integer;
a:array[1.2000] of longint;
w:text;
begin
assign(w,'c:/in.txt');
reset(w);
read(n);
n:=n-4;
a[0]:=6;
a[1]:=2;
a[2]:=5;
a[3]:=5;
a[4]:=4;
a[5]:=5;
a[6]:=6;
a[7]:=3;
a[8]:=7;
a[9]:=6;
ci:=0;
for i:=10 to 1111 do
begin
a[i]:=a[i div 10]+a[i mod 10];
end;
for i:=0 to 1111 do
begin
for j:=0 to i do
begin
k:=i+j;
if (a[i]+a[j]+a[k]=n) then ci:=ci+1;
end;
end;
colse(w);
assign(w);
rewirte(w);
write(w,ci);
colse(w);
end.这个程序为什么过不了?
var i,j,n,ans,z:integer;
a:array[0..9]of integer=(6,2,5,5,4,5,6,3,7,6);
function pan(k:integer):integer;
var x:integer;
s:string;
begin
pan:=0;
if k=0 then pan:=6;
while k>0 do
begin
x:=k mod 10;
pan:=pan+a[x];
k:=k div 10;
end;
end;
begin
readln(n);
n:=n-4;
for i:=0 to 999 do
for j:=0 to 999 do
begin
z:=i+j;
if pan(i)+pan(j)+pan(z)=n then
inc(ans);
end;
write(ans);
end.
rqnoj上过了
再问： 那我那个程序错在哪呢？？
再答： a数组范围小了，顺便把出错信息发一下
再问： 加我QQ说吧，上不了图5 、4 、7 、6 、5 、3 、4 、2、1 。
再问： 加我QQ说吧，方便些。 五四七六五3四2一
a:array[0..9]of integer=(6,2,5,5,4,5,6,3,7,6);
function pan(k:integer):integer;
var x:integer;
s:string;
begin
pan:=0;
if k=0 then pan:=6;
while k>0 do
begin
x:=k mod 10;
pan:=pan+a[x];
k:=k div 10;
end;
end;
begin
readln(n);
n:=n-4;
for i:=0 to 999 do
for j:=0 to 999 do
begin
z:=i+j;
if pan(i)+pan(j)+pan(z)=n then
inc(ans);
end;
write(ans);
end.
rqnoj上过了
再问： 那我那个程序错在哪呢？？
再答： a数组范围小了，顺便把出错信息发一下
再问： 加我QQ说吧，上不了图5 、4 、7 、6 、5 、3 、4 、2、1 。
再问： 加我QQ说吧，方便些。 五四七六五3四2一