Series23. Дано целое число N (> 2) и набор из N вещественных чисел. Набор называется пилообразным, если каждый его внутренний элемент либо больше, либо меньше обоих своих соседей (то есть является «зубцом»). Если данный набор является пилообразным, то вывести 0; в противном случае вывести номер первого элемента, не являющегося зубцом.
Решение от Дмитрия:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
использовать Файлы П алг Series_23 нач цел fi вещ A, A_prev вещ K, K_prev цел i, EL EL:=0 i:=2 fi:=открыть на чтение("series23.txt") Фввод fi, A_prev Фввод fi, A K := A - A_prev K_prev := -K вывод "Входные данные: ", A_prev, ", ", A, ", " нц пока не конец файла (fi) и K*K_prev < 0 A_prev := A Фввод fi, A вывод A, ", " i:=i+1 K_prev := K K := A - A_prev кц если K*K_prev >= 0 то EL := i все вывод нс, EL, нс кон |
series23.txt
|
1 |
3 1 5 2 1 4 8 9 |
Другие задачи из раздела Series можно посмотреть здесь.
Комментарии: