Pascal, 10 класс

Борисс · 08.02.2015, 14:23

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

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

Vladimir_S · 08.02.2015, 14:39

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

Борисс · 08.02.2015, 14:55

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

Vladimir_S · 08.02.2015, 15:12

Цитата:

Сообщение от Борисс

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

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

Борисс · 08.02.2015, 15:18

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

Vladimir_S · 08.02.2015, 15:30

Понятно.
Тогда алгоритм такой:
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 в качестве окончательного результата.

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

Борисс · 08.02.2015, 15:36

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

Vladimir_S · 08.02.2015, 15:38

Цитата:

Сообщение от Борисс

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

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

08.02.2015, 14:23	#1 (permalink)
Борисс Новичок Регистрация: 08.02.2015 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Pascal, 10 класс Известно количество очков, набранных каждой из 20-ти команд-участниц первенства по футболу. Перечень очков дан в порядке убывания (ни одна пара команд не набрала одинаковое количество очков). Определить, какое место заняла команда, набравшая N очков (естественно, что значение N имеется в перечне). Условный оператор не использовать. Сказали сделать через while

08.02.2015, 15:30	#6 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Понятно. Тогда алгоритм такой: 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 в качестве окончательного результата. Надеюсь, что справитесь.

08.02.2015, 14:23
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Может быть данные вопрос уже решен ранее Усилитель Militano для наушников класс А Десятый класс, Паскаль TDA7294. Можно ли загнать в класс А?

08.02.2015, 14:39	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Да можно и через while, всё равно. Поможем с этой глупой задачкой, если Вы представите результаты хоть каких-то собственных попыток решения. На всякий случай: 1. Формируете массив набранных очков A[i]. 2. Задаете исходное значение i=1. 3. Строите цикл while A[i]>N do Inc[i]; 4. Выводите значение i в качестве окончательного результата. Вперед и песней!

08.02.2015, 14:55	#3 (permalink)
Борисс Новичок Регистрация: 08.02.2015 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Главный минус в том, что нельзя использовать массивы

08.02.2015, 15:18	#5 (permalink)
Борисс Новичок Регистрация: 08.02.2015 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Это как раз то, что нужно

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

08.02.2015, 15:36	#7 (permalink)
Борисс Новичок Регистрация: 08.02.2015 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо огромное!