...pascal 顺序文本文件是咋整的,我是菜鸟,编程我会,但创建文本文件,如 ...
发布网友
发布时间：2024-10-04 02:06
共3个回答
热心网友
时间：2024-10-10 02:50
输入和程序放在一个文件夹啊少年。。。
还有reset(input,'lfl.text');比较好
可以直接读不用加那个d
实在不行加qq我教你...
热心网友
时间：2024-10-10 02:49
你写的程序太烦了，特别是输入语句。我重新编了一个程序，是在输入时就比较，考略到你输入的格式中，最后一行没回车所以a【7】是分开写的，谢谢采纳。var a:array[1..100,1..3]of byte;
i,l:longint;
begin
assign(input,'flt.in');
reset(input);
assign(output,'flt.out');
rewrite(output);
l:=0;
for i:=1 to 6 do begin
readln(a[i,1],a[i,2]);
a[i,3]:=a[i,1]+a[i,2];
if (a[i,3]-8>l)and(a[i,3]>8) then l:=i;
end;
read(a[7,1],a[7,2]);
if (a[7,1]+a[7,2]>8)and(a[7,1]+a[7,2]-8>l) then l:=7;
write(l);
close(input);
close(output);
end.
（本人自己写的，没抄任何人的）
热心网友
时间：2024-10-10 02:52
assign(input,'ex1.txt');
assign(output,'ex2.txt');
reset(input);rewrite(output);
.
.
.
close(input);close(output);
热心网友
时间：2024-10-10 02:55
输入和程序放在一个文件夹啊少年。。。
还有reset(input,'lfl.text');比较好
可以直接读不用加那个d
实在不行加qq我教你...
热心网友
时间：2024-10-10 02:50
assign(input,'ex1.txt');
assign(output,'ex2.txt');
reset(input);rewrite(output);
.
.
.
close(input);close(output);
热心网友
时间：2024-10-10 02:53
你写的程序太烦了，特别是输入语句。我重新编了一个程序，是在输入时就比较，考略到你输入的格式中，最后一行没回车所以a【7】是分开写的，谢谢采纳。var a:array[1..100,1..3]of byte;
i,l:longint;
begin
assign(input,'flt.in');
reset(input);
assign(output,'flt.out');
rewrite(output);
l:=0;
for i:=1 to 6 do begin
readln(a[i,1],a[i,2]);
a[i,3]:=a[i,1]+a[i,2];
if (a[i,3]-8>l)and(a[i,3]>8) then l:=i;
end;
read(a[7,1],a[7,2]);
if (a[7,1]+a[7,2]>8)and(a[7,1]+a[7,2]-8>l) then l:=7;
write(l);
close(input);
close(output);
end.
（本人自己写的，没抄任何人的）
