Файл Паскаля: Как мне найти MAX и MIN вхождения целого числа из файла? - PullRequest
Новая
       41

Файл Паскаля: Как мне найти MAX и MIN вхождения целого числа из файла?

0 голосов
/ 09 февраля 2019

Я новичок в Pascal и у меня есть файл sample.txt со следующими целыми числами: 

1 2 
2 1
1 3
3 1
1 4

Как мне найти целое число из файла с минимальным и максимальным вхождениями на языке 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;

Заранее спасибо!

1 Ответ

0 голосов
/ 10 февраля 2019

В основном 

 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)))))))))));

дают или принимают ")", но учитель может не принять это как решение без цикла, потому что оно не масштабируется с количеством входов.

Принцип заключается в том, что конечный максимум - это максимум временного максимума + следующий элемент данных

...