
НАПИШИТЕ КОД НА ПАСКАЛЕ ПЖ Задача 4: Американские горки Аттракцион «Американские горки»
представляет собой рельсовый трек, размещённый на опорах. Известна высота каждой опоры. Для рекламы аттракциона необходимо выделить один из его фрагментов (несколько подряд идущих опор с рельсовым треком) световой подсветкой. При этом необходимо выделить такой фрагмент трека, на котором была бы «горка» то есть на выделенном участке трека была бы точка, которая находилась бы строго выше начала и строго выше конца выделенного фрагмента трека. Владелец аттракциона для экономии хочет найти подходящий участок минимальной длины, удовлетворяющий условию наличию «горки» на этом участке. Входные данные Первая строка входных данных содержит число N – количество опор аттракциона. Следующие N строк содержат информацию о высотах опор при движении от начала к концу аттракциона. Все числа натуральные, не превосходящие 105. Выходные данные Программа должна вывести два числа – номер первой и последней подходящей опоры. Опоры нумеруются числами от 1 до N. Если фрагмента, удовлетворяющего условиям, не существует, программа должна вывести одно число 0. Если подходящих ответов несколько, нужно вывести любой из них. Система оценивания Решение, правильно работающее только для случаев, когда все входные числа не превосходят 100, будет оцениваться в 40 баллов. В 100 баллов будет оцениваться решение, правильно работающее, когда все числа не превосходят 10^5.

Ответы на вопрос

Ответ:
N = int(input())
X = [''] * N
for a in range(N):
X[a] = int(input())
a = 0
c, b, e, f = 0, 0, 0, N + 1
g, h = 0, 0
while a < N - 2:
a += 1
e += 1
b, c = X[a], b
if c < b:
while a < N - 1:
a += 1
e += 1
d = X[a]
if d < b:
if e < f:
g, h = a - e + 1, a + 1
f = e
break
elif d == b:
continue
else:
break
e = 0
if g == 0 and h == 0:
print(0)
else: print(g, h)
Объяснение:
на 55 балов



Конечно! Вот пример решения задачи на языке Pascal:
pascalprogram RollerCoaster; const MAX_HEIGHT = 100000; var heights: array of Integer; N, i, start, endPos: Integer; found: Boolean; begin // Ввод количества опор Readln(N); // Инициализация массива высот опор SetLength(heights, N); // Ввод высот опор for i := 0 to N - 1 do Readln(heights[i]); // Поиск подходящего фрагмента found := False; start := 0; while (start < N) and not found do begin endPos := start + 2; while (endPos < N) and (heights[endPos] > heights[endPos - 1]) do Inc(endPos); if endPos - start > 2 then found := True else Inc(start); end; // Вывод результатов if found then Writeln(start + 1, ' ', endPos) else Writeln('0'); end.
Это решение применяет простой алгоритм поиска подходящего фрагмента на основе двух вложенных циклов while
. Он проверяет последовательно все возможные фрагменты трека, начиная с каждой опоры, и ищет первый фрагмент, удовлетворяющий условию наличия "горки". Если такой фрагмент найден, то программа выводит его начальную и конечную опоры; в противном случае выводится число 0
, указывающее на отсутствие подходящего фрагмента.
Обратите внимание, что решение предполагает, что все входные числа находятся в допустимом диапазоне от 1 до MAX_HEIGHT
(задано в константе MAX_HEIGHT
). Если диапазон входных чисел больше, чем MAX_HEIGHT
, необходимо изменить значение этой константы.


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili