Pascal, 10 класс

[Борисс]

Pascal, 10 класс

Известно количество очков, набранных каждой из 20-ти команд-участниц
первенства по футболу. Перечень очков дан в порядке убывания (ни одна пара команд не набрала одинаковое количество очков). Определить, какое место заняла команда, набравшая N очков (естественно, что значение N имеется в перечне). Условный оператор не использовать.

Сказали сделать через while

 

[Vladimir_S]

Да можно и через while, всё равно. Поможем с этой глупой задачкой, если Вы представите результаты хоть каких-то собственных попыток решения.
На всякий случай:
1. Формируете массив набранных очков A.
2. Задаете исходное значение i=1.
3. Строите цикл while A>N do Inc;
4. Выводите значение i в качестве окончательного результата.
Вперед и песней!

 

[Борисс]

Главный минус в том, что нельзя использовать массивы

 

[Vladimir_S]

Главный минус в том, что нельзя использовать массивы

Ну очень интересно! И как без массива задать этот "перечень очков"? Я как-то, знаете ли, не вижу...
Не ну можно, конечно, в файле. Или тоже "нельзя"?

 

[Борисс]

Это как раз то, что нужно

 

[Vladimir_S]

Понятно.
Тогда алгоритм такой:
1. Заранее формируете файл результатов чемпионата. Проще всего, если каждый результат будет располагаться в отдельной строке.
2. Командой Assign(f,'<полный путь и имя файла на диске>') связываете файловую переменную f с созданным файлом.
3. Командой Reset(f); открываете файл для чтения.
4. Задаете исходное значение i=0.
5. Переменной A присваиваете значение, заведомо большее максимального количества очков, набранных командой-чемпионом.
6. Строите цикл

while A>N do 
 begin
  Inc[i];
  Readln(f,A);
 end;

7. Командой Close(f); закрываете файл.
8. Выводите значение i в качестве окончательного результата.

Надеюсь, что справитесь.

 

[Борисс]

Спасибо огромное!

 

[Vladimir_S]

Спасибо огромное!

Я там кое-что пропустил, сейчас исправил.