0

我必须从 txt 文件中找出最大的数字。数字例如：

9 8 7 6 5

有人告诉我，它应该可以工作，但它没有，而且我不知道如何使用文件 bcs。

program file;
uses crt;
var i,count,help:integer;

numb:array [1..9] of integer;
f:text;

begin
clrscr;

 assign(f,'file1.txt');
 reset(f);

   readln(f,count);

   for i:=1 to count do

    readln(f,numb[i]);

 close(f);

 for i:=2 to count do
  begin

   if (numb[i-1] < numb[i]) then

     help:=numb[i-1];

     numb[i-1]:=numb[i];

     numb[i]:=help;

  end;  

 for i:=1 to count do
  begin

   write(numb[i]);
  end;

readln;
end.
4

2 回答 2

2

提供的代码有几个错误：

  1. 程序名称是file。程序名不能是关键字；
  2. 您从文件中读取了变量count，但在文件中找不到实际值，因此count=0. 因此，for从文件中读取数据的循环永远不会被执行。您可以从文件或键盘读取它（在下面的解决方案中，我选择了第二个选项）；
  3. readln从文件中读取时使用。readln读取数据后将光标移动到下一行。这意味着只有第一个数字 9 存储到numb. 替换readln为read;
  4. 在第二个for循环中，你说if ... then. 如果您希望执行所有三个指令（我认为您这样做，因为它是值交换），请将它们放在beginand之间end。否则，如果条件为真，则只执行第一条指令，其余的总是执行；
  5. 确定最大值的方法是矫枉过正。最好使用一个变量 ，max它最初获取数组中第一个元素的值，然后循环输入其余值以查看值是否高于max。

最终代码如下所示：

    program file1;
    uses crt;
    var i,count,help, max:integer;

    numb:array [1..9] of integer;
    f:text;

    begin
     clrscr;
     assign(f,'file1.txt');
     reset(f);  
     writeln('Please input a number for count :');      
     readln(count);  
     for i:=1 to count do  
        read(f,numb[i]);
     close(f);
     max:=numb[1];
     for i:=2 to count do
       if numb[i]>max then
        max:=numb[i];
     write('The result is: ',max); 
    readln;
    end.
于 2019-03-24T11:33:57.703 回答
2

如果您只想知道最大数字，您可以在读取文件中的数字时使用运行最大值。

作为用户，您不必知道文件中有多少个数字。程序应该确定这一点。

我写了一个小测试文件，叫做file1.txt：

9 8 7 6 3 11 17
32 11 13 19 64 11 19 22
38 6 21 0 37

我只阅读数字，将它们与Max. 这就是你所需要的。

  • 无需将数据读入数组和
  • 无需（尝试）对数据进行排序。你只想要最高的数字，对吧？
  • 并且用户也不需要知道或输入文本文件中的数字数量。
program ReadMaxNumber;

uses
  Crt;

var
  Max, Num: Integer;
  F: Text;

begin
  ClrScr;
  Assign(F, 'file1.txt');
  Reset(F);

  Max := -1;
  while not Eof(F) do
  begin
    Read(F, Num);
    if Num > Max then
      Max := Num;
  end;

  Close(F);
  Writeln('Maximum = ', Max);
  Readln;
end.

当我运行它时，输出如预期：

Maximum = 64
于 2019-03-25T09:01:18.333 回答