Question

我是Pascal的新手，并且有一个带有以下整数的sample.txt文件：

如何用Pascal语言从文件中查找出现次数最少和最大的整数？在上面的示例中，最大出现次数是整数1（发生5次），最小出现次数是4（发生一次）。

我知道我必须打开文件并读取其中的值，到目前为止我已经弄清楚了。有没有更短的方法来执行此操作？

var
  V1, V2, V3, V4, V5, V6, V7, V8, V9, V10: Integer; 
begin 
  Assign(F, 'sample.txt');
  Reset(F);
  read(F, V1);  
  read(F, V2);
  read(F, V3);
  read(F, V4);
  read(F, V5);
  read(F, V6);
  read(F, V7);
  read(F, V8);
  read(F, V9);
  read(F, V10);

  writeln('Max Occurrence')
  writeln('Min Occurrence')

  Close(F);
  writeln;

谢谢！

Answer 1

基本上

 writeln('Max Occurrence',max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))))))
 writeln('min Occurrence',min(v1,min(v2,min(v3,min(v4,min(v5,min(v6,min(v7,min(v8,min(v9,v10)))))))))));

给予或接受“）”，但是老师可能不会接受没有循环的解决方案，因为它不会随着输入的数量而扩展。

原理是最终最大值是临时最大值+下一个数据项的最大值

Pascal文件：如何从文件中查找最大和最小出现的整数？

1 个答案: