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

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

30.09.2014, 14:22. Просмотров 271. Ответов 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
4157 / 2750 / 2176
Регистрация: 22.11.2013
Сообщений: 7,684
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
2175 / 1202 / 1438
Регистрация: 29.08.2014
Сообщений: 4,389
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
4157 / 2750 / 2176
Регистрация: 22.11.2013
Сообщений: 7,684
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