UC知道谁知道下面pascal程序的数据怎么输入的
来源：百度知道 编辑：UC知道 时间：2024/05/13 23:29:40
哪位大侠知道输入格式是咋样的，救命啊，正不对呐
多项式相加的链表实现
program ex11_5b;
type
link=^node;
node=record
zhi,xi:integer;
nxt:link;
end;
var
a,b:link;
n:integer;
procedure createfifo(var c:link);{建立多项式系数、指数链表}
var
p:link;
i:integer;
begin
new(p);
readln(p^.xi,p^.zhi);
c:=p;
for i:=1 to n-1 do
begin
new(p^.nxt);p:=p^.nxt;readln(p^.xi,p^.zhi);
end;
p^.nxt:=nil;
end;
begin
write('One : '); readln(n); createfifo(a);
write('Two : '); readln(n); createfifo(b);
write('Result is ');
while (a<>nil) and (b<>nil) do
begin
if a^.zhi>b^.zhi then
begin
if a^.xi<0 then write(#8' '#8);
write(a^.xi,&
多项式相加的链表实现
program ex11_5b;
type
link=^node;
node=record
zhi,xi:integer;
nxt:link;
end;
var
a,b:link;
n:integer;
procedure createfifo(var c:link);{建立多项式系数、指数链表}
var
p:link;
i:integer;
begin
new(p);
readln(p^.xi,p^.zhi);
c:=p;
for i:=1 to n-1 do
begin
new(p^.nxt);p:=p^.nxt;readln(p^.xi,p^.zhi);
end;
p^.nxt:=nil;
end;
begin
write('One : '); readln(n); createfifo(a);
write('Two : '); readln(n); createfifo(b);
write('Result is ');
while (a<>nil) and (b<>nil) do
begin
if a^.zhi>b^.zhi then
begin
if a^.xi<0 then write(#8' '#8);
write(a^.xi,&
还有问题就找我：QQ：1017437188
76行错误，应为： if a^.zhi >0 then
读数语句：
主程序：readln(n); {用在createfifo(a); 表示要n组数}
readln(n); {用在createfifo(b);同理 }
子过程中：
readln(p^.xi,p^.zhi); {读第一组数}
for i:=1 to n-1 do {读n-1组数}
begin
new(p^.nxt);
p:=p^.nxt;{下一指针，方便保存下一组数}
readln(p^.xi,p^.zhi);
end;
76行错误，应为： if a^.zhi >0 then
读数语句：
主程序：readln(n); {用在createfifo(a); 表示要n组数}
readln(n); {用在createfifo(b);同理 }
子过程中：
readln(p^.xi,p^.zhi); {读第一组数}
for i:=1 to n-1 do {读n-1组数}
begin
new(p^.nxt);
p:=p^.nxt;{下一指针，方便保存下一组数}
readln(p^.xi,p^.zhi);
end;
个人力量有限，把问题发上来，让大家一起分解决和分享吧，私下交谈不利于共同进步。这样，在baidu就淘不到你想要的啦。
不过你的程序有些if语句怎么没有then的？？？还有你能不能将整道题的问题写出来啊？不知道题目怎么帮啊？还要写你的输入输出例样！
什么叫高手呢？？ 我QQ443450050