您所在位置：主题：明天要考试，特来求教问题，请高手一定要帮忙！（Pascal问题）
芙蕾雅
[专家分：0] 发布于 2005-04-20 21:58:00
第一题：输出下列图形，其中◎为空格
×
×◎◎◎◎◎◎◎◎◎×
×
请续写程序：program ex3；
var i：integer；ch：char
begin
第二题：写一个过程将一个表头指针为h的带表头单链表逆置，例如原单链表为
◎-->1-->2-->3-->...-->8
经过逆置后变为
◎-->8-->7-->6-->...-->1
程序中不得出现new语句
Type pointer=^node;
node=record;
data=char;
next:pointer
end
LKlist=pointer;
Procedure inver(var h:LKlist);
Var p,q:pointer:
begin
第三题：编程求不定方程组a1X＋b1Y＋C1Z＝k1 ， a2X＋b2Y＋c2Z＝k2 所有小于或者等于100的正整数解，并输出解的个数。ai，bi，ci，ki 均由键盘输入。
Program ex2
var a1，a2，b1，b2，c1，c2，k1，k2，i，j，k，n：integer；
begin
续写程序。
求助，希望高手帮忙，多谢各位了！多谢各位了！
×
×◎◎◎◎◎◎◎◎◎×
×
请续写程序：program ex3；
var i：integer；ch：char
begin
第二题：写一个过程将一个表头指针为h的带表头单链表逆置，例如原单链表为
◎-->1-->2-->3-->...-->8
经过逆置后变为
◎-->8-->7-->6-->...-->1
程序中不得出现new语句
Type pointer=^node;
node=record;
data=char;
next:pointer
end
LKlist=pointer;
Procedure inver(var h:LKlist);
Var p,q:pointer:
begin
第三题：编程求不定方程组a1X＋b1Y＋C1Z＝k1 ， a2X＋b2Y＋c2Z＝k2 所有小于或者等于100的正整数解，并输出解的个数。ai，bi，ci，ki 均由键盘输入。
Program ex2
var a1，a2，b1，b2，c1，c2，k1，k2，i，j，k，n：integer；
begin
续写程序。
求助，希望高手帮忙，多谢各位了！多谢各位了！
