Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Kurraki
0 / 0 / 0
Регистрация: 19.06.2014
Сообщений: 8
#1

Определить, является ли набор пилообразным

30.09.2014, 14:22. Просмотров 260. Ответов 3
Метки нет (Все метки)

Дано целое число N (> 2) и набор из N вещественных чисел. Набор называется пилообразным, если каждый его внутренний элемент либо больше, либо меньше обоих своих соседей (то есть является «зубцом»). Если данный набор является пилообразным, то вывести 0; в противном случае вывести номер первого элемента, не являющегося зубцом.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.09.2014, 14:22
Ответы с готовыми решениями:

Вам дан набор чисел. Необходимо для каждого из них определить, является ли оно простым
Вам дан набор чисел. Необходимо для каждого из них определить, является ли оно...

Дано целое число N и набор из N целых чисел, Вывести сумму чисел из данного набор, расположенных между последними двумя нулями
Здравствуйте! Помогите решить задачу. Pascal. Дано целое число N и набор из...

Определить сумму всех делителей число и определить является ли число совершенным
Определить сумму всех делителей число и определить является ли число...

Определить является ли слово перевертышем
Всем доброго времени суток ;D . Прошу, кому не сложно, помочь начинающиму...

Определить, является ли число совершенным
Определить, является ли число совершенным, то есть равно ли оно сумме своих...

3
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3759 / 2456 / 2035
Регистрация: 22.11.2013
Сообщений: 6,826
30.09.2014, 15:06 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
const
  n=5;
  a: array [1..n] of Real = (1,2,3,2,1);
var
  i: Integer;
begin
  i:=2;
  while (i<n) and 
    (a[i]>a[i-1]) and (a[i]>a[i+1]) or
    (a[i]<a[i-1]) and (a[i]<a[i+1]) do Inc(i);
  if i=n then WriteLn(0) else WriteLn(i);
end.
0
Joy
Эксперт Pascal/Delphi
2133 / 1173 / 1423
Регистрация: 29.08.2014
Сообщений: 4,271
30.09.2014, 15:30 #3
bormant, задай 0,1,0,1,0

Добавлено через 9 минут
(a[i]>a[i-1]) and (a[i]>a[i+1]) or
(a[i]<a[i-1]) and (a[i]<a[i+1])-это в скобках должно быть

Добавлено через 4 минуты
в Turbo Pascal и первый вариант прокатывает, а вот в ABC и FPC только со скобками.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3759 / 2456 / 2035
Регистрация: 22.11.2013
Сообщений: 6,826
30.09.2014, 16:31 #4
Joy,
согласен,
Pascal
1
2
3
  while (i<n) and (
    (a[i]>a[i-1]) and (a[i]>a[i+1]) or
    (a[i]<a[i-1]) and (a[i]<a[i+1])) do Inc(i);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2014, 16:31

Определить, является ли число простым
While22. Дано целое число N (&gt; 1). Если оно является простым, то есть не имеет...

Определить, является ли треугольник равнобедренным
Дорогие ЛЮди 1. Составить программу решения разветвляющегося алгоритма,...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru