Числа превосходящие соседние элементы - Помощь студентам

Mantor · 27.12.2011, 12:16

Задание 1: подсчитать количество простых чисел, которые больше своих соседних элементов справа и слева. Пример: 1, 2, 5, 3, -5, 11, 8, -12, -6, -5, 7, 4, 0. Результат: P=3.

В программе обязательно применение процедур и/или функций с передаваемыми параметрами. Не допускается использование типа string и array.
Рекомендуется использовать операции целочисленной арифметики. Если в последовательности отсутствует искомый элемент, то об этом следует вывести сообщение.

Запрещено использования массивов и промежуточных файлов для хранения всей последовательности.

Задание 2: Дана последовательность не более 30 ненулевых целых чисел, индикатором окончания последовательности является 0. Ввести последовательность в одномерный массив и найти наибольшее количество равных элементов.

Использование дополнительных массивов запрещено. В программе обязательно применение процедур и/или функций с передаваемыми параметрами. Рекомендуется использовать операции целочисленной арифметики. Если в последовательности отсутствует искомый элемент, об этом следует вывести сообщение. Индикатор окончания последовательности (число 0) НЕ ОБРАБАТЫВАТЬ!

Обе программы надо написать на паскале.

НУЖНА ПОМОЩЬ!!!

veniside · 27.12.2011, 12:41

> Не допускается использование типа string и array

интересно, указатели тоже нельзя?

> наибольшее количество равных элементов

чем "наибольшее" количество отличается от "наименьшего"?

> обязательно применение процедур и/или функций с передаваемыми параметрами

хотел бы я глянуть на процедуру с непердаваемыми параметрами.

> (число 0) НЕ ОБРАБАТЫВАТЬ!

для того, чтобы узнать, 0 это или не 0, его, как миниум, нужно ОБРАБОТАТЬ!

> HELP!

есть такая песня у битлов. Могу помочь найти )

Mantor · 27.12.2011, 15:39

> (число 0) НЕ ОБРАБАТЫВАТЬ!

для того, чтобы узнать, 0 это или не 0, его, как миниум, нужно ОБРАБОТАТЬ!

Имеется в виду что, нуль не берется в расчет.

27.12.2011, 12:16	#1
Mantor Новичок Джуниор Регистрация: 27.12.2011 Сообщений: 2	Числовые последовательности и массивы (PASCAL) Задание 1: подсчитать количество простых чисел, которые больше своих соседних элементов справа и слева. Пример: 1, 2, 5, 3, -5, 11, 8, -12, -6, -5, 7, 4, 0. Результат: P=3. В программе обязательно применение процедур и/или функций с передаваемыми параметрами. Не допускается использование типа string и array. Рекомендуется использовать операции целочисленной арифметики. Если в последовательности отсутствует искомый элемент, то об этом следует вывести сообщение. Запрещено использования массивов и промежуточных файлов для хранения всей последовательности. Задание 2: Дана последовательность не более 30 ненулевых целых чисел, индикатором окончания последовательности является 0. Ввести последовательность в одномерный массив и найти наибольшее количество равных элементов. Использование дополнительных массивов запрещено. В программе обязательно применение процедур и/или функций с передаваемыми параметрами. Рекомендуется использовать операции целочисленной арифметики. Если в последовательности отсутствует искомый элемент, об этом следует вывести сообщение. Индикатор окончания последовательности (число 0) НЕ ОБРАБАТЫВАТЬ! Обе программы надо написать на паскале. НУЖНА ПОМОЩЬ!!! Последний раз редактировалось Mantor; 27.12.2011 в 15:59.

27.12.2011, 12:41	#2
veniside Старожил Регистрация: 03.01.2011 Сообщений: 2,508	> Не допускается использование типа string и array интересно, указатели тоже нельзя? > наибольшее количество равных элементов чем "наибольшее" количество отличается от "наименьшего"? > обязательно применение процедур и/или функций с передаваемыми параметрами хотел бы я глянуть на процедуру с непердаваемыми параметрами. > (число 0) НЕ ОБРАБАТЫВАТЬ! для того, чтобы узнать, 0 это или не 0, его, как миниум, нужно ОБРАБОТАТЬ! > HELP! есть такая песня у битлов. Могу помочь найти ) "Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вывести на экран все простые числа, не превосходящие заданное число М - Паскаль	bibek13	Помощь студентам	4	06.12.2011 08:17
все натуральные числа не превосходящие заданное число N и равное сумме кубов своих цифр.	Julila	Помощь студентам	42	03.03.2011 00:38
[Asm]поменять соседние числа попарно	nuevegramodelamor	Помощь студентам	0	25.01.2011 22:43
найти все натуральные числа,не превосходящие заданного n	fredperry1661	Помощь студентам	1	02.02.2010 17:10
определить все простые числа не превосходящие заданного N QBasic	werus	Помощь студентам	4	23.04.2009 13:32

27.12.2011, 15:39	#3
Mantor Новичок Джуниор Регистрация: 27.12.2011 Сообщений: 2	> (число 0) НЕ ОБРАБАТЫВАТЬ! для того, чтобы узнать, 0 это или не 0, его, как миниум, нужно ОБРАБОТАТЬ! Имеется в виду что, нуль не берется в расчет.