Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 03.01.2012
Сообщений: 25
1

Определить порядковый номер первого числа, большего заданного n

28.06.2012, 18:17. Показов 1706. Ответов 1
Метки нет (Все метки)

дана непустая и упорядоченная по возрастанию последовательно целых чисел, оканчивающаяся числом 10 000. Определить порядковый номер первого числа, большего заданного n. Если таких чисел в последовательности нет, то на экран должно быть выведено соответствующее сообщение.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.06.2012, 18:17
Ответы с готовыми решениями:

Массив: Определить порядковый номер первого числа, меньше заданного n.
Дан непустой и упорядоченный по возрастанию массив целых чисел. Определить порядковый номер первого...

Определить первый член последовательности, который больше заданного числа, и его порядковый номер
Последовательность задана формулой an=2n+1/(n+1). Определить первый член последовательности,...

Для заданного x вычислить порядковый номер первого из чисел
для заданного x вычислить порядковый номер первого из чисел sin(x), sin(sin(x)), sin(sin(sin(x))),...

Вывести номер первого числа в наборе, большего К
Помогите решит вот эти 2 задачи : 1) Дано целое число К и набор ненулувых целых чисел; признак его...

1
4296 / 1418 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
28.06.2012, 20:41 2
Лучший ответ Сообщение было отмечено skipper007 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var i,j,n: integer;
    a: array [1..100] of integer;
begin
 j:=1;
 writeln('Ââîä ÷èñåë: ');
 repeat
  inc(i);
  readln(a[i]);
 until a[i]=10000;
 write('Çàäàííîå ÷èñëî n: ');
 readln(n);
 while j<>i do
  begin
   if a[j]>n then
    break;
   inc(j);
  end;
  if j=i then
   writeln('Íåò òàêîãî ÷èñëà')
  else
   writeln('# ÷èñëà, áîëüøåãî n: ',j);
end.
Добавлено через 54 минуты
Здесь нужно немного изменить код:
13-ая строка: j<=i.
19-ая строка: j>i.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.06.2012, 20:41

Определить порядковый номер первого из чисел с наибольшей суммой цифр
У меня аудиторня работа из десяти задач. Три из них никак не получается решить,помогите пожалуйста...

Определить порядковый номер первого из чисел с наибольшей суммой цифр
в последовательности из 10 введенных натуральных чисел определить порядковый номер первого из чисел...

Строка:во введенном предложении определить порядковый номер заданного слова предложения
1) в веденном предложении определить порядковый номер заданного слова предложения

Определить порядковый номер числа, отличного от остальных
1. Даны четыре целых числа, одно из которых отлично от 3 других, равных меж собой. Определить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru