我有一个格式的输入文件:
(an), (a n-1), ... (a 0)
如何在 Pascal 中形成如下列表
type
tt = ^t;
t = record
a: Integer;
n: Integer;
next: tt
end;
例如:
(5 10)、(5 9)、(5 8)、(5 7)、(5 6)、(5 5)、(5 4)、(5 3)、(5 2)、(5 1), (5 0)
应该像上图:
新代码(按预期工作):
program ex4_19;
type
tt = ^t;
t = record
a: Integer;
n: Integer;
next: tt
end;
var
ukzv, ukrs: tt;
inp: text;
raDone: boolean;
i: integer;
str: string;
begin
assign(inp, 'f1.txt'); reset(inp);
assign(output, 'out.txt'); rewrite(output);
new(ukzv);
ukrs:=ukzv;
read(inp, str);
writeln(str);
for i:=1 to length(str) do
begin
case str[i] of
'(':
begin
raDone:=false;
new(ukzv^.next);
ukzv:=ukzv^.next;
ukzv^.a:=0;
ukzv^.n:=0;
end;
'0' .. '9':
begin
if raDone = false then
ukzv^.a:=ukzv^.a * 10 + (ord(str[i]) - ord('0'))
else
ukzv^.n:=ukzv^.n * 10 + (ord(str[i]) - ord('0'));
end;
' ':
begin
if raDone = false then
begin
raDone:=true;
end;
end;
')':
begin
ukzv^.next:=nil;
end;
end;
end;
ukzv:=ukrs;
while ukzv^.next <> nil do
begin
writeln(ukzv^.next^.a, ' ', ukzv^.next^.n);
ukzv:=ukzv^.next;
end;
end.
我有错误“无效的数字格式”,因为在第二个数字之后我们有')'。我不知道如何读取数字,直到 ')' 因为数字可以不同(1-1000)。