Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Lenchik2
1 / 1 / 0
Регистрация: 04.10.2010
Сообщений: 44
1

количество чисел больших своих соседей

29.12.2010, 20:22. Просмотров 872. Ответов 2
Метки нет (Все метки)

в файле записаны построчно целые числа. нужно в выходной файл записать количество чисел которые больше своих соседей (т.е. предыдущего и последущего. Первое и последнее-считаются соседями друг друга)
Вот мы будем считывать получается построчно числа
while not eof do begin
readLn(f, Num);
...
а цикл какой будет?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2010, 20:22
Ответы с готовыми решениями:

Количество чисел, больших своих соседей
Можете помочь переделать эту программу через процедуру Uses crt; var f:text; a,b,c:real; ...

Количество элементов, больших своих соседей
Помогите решить

Типизированные файлы. Числа. Вывести количество чисел, которые больше своих "соседей"
Типизированные файлы. Программно создать файл, состоящий из 50 целых чисел в диапазоне . Описать...

Определить сколько чисел больше своих соседей
"Дано n вещественных чисел. Определить сколько из них больше своих соседей, т.е. предыдущего и...

Определить, сколько из чисел больше своих «соседей»
Программа. Дано 200 вещественных чисел. Определить, сколько из них больше своих «соседей», т.е....

2
egorlp
5 / 5 / 1
Регистрация: 09.05.2010
Сообщений: 43
31.12.2010, 23:29 2
Насколько я понимаю, то вам нужно не построчно, а посимвольно считывать элементы.
0
use
179 / 179 / 81
Регистрация: 18.12.2010
Сообщений: 346
01.01.2011, 00:38 3
Лучший ответ Сообщение было отмечено Lenchik2 как решение

Решение

Цитата Сообщение от Lenchik2 Посмотреть сообщение
а цикл какой будет?
Так такой и будет, как ты написала. Только организуй перекладывание. А также нужно учесть зацикливание (запомнить два первых числа и в конце их обработать).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
  n:=0;
  readln(f,a);
  a0:=a;
  readlin(f,b);
  b0:=b;
  while not eof do begin
    readLn(f, c);
    if (a<b) and (b>c) then inc(n);
    a:=b;
    b:=c
  end;
  if (a<b) and (b>a0) then inc(n);
  if (b<a0) and (a0>b0) then inc(n);
Если можно засунуть все в массив, то все гораздо проще (могу показать, как).
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.01.2011, 00:38

Определить, сколько чисел больше своих «соседей»
Дано 30 вещественных чисел. Определить, сколько из них больше своих «соседей», т. е. предыдущего и...

Определить, сколько из чисел больше своих «соседей» по ряду
Условие задачи : Составить схему алгоритма и программу циклического вычислительного процесса....

Вывести те значения массива, которые больше своих соседей, и подсчитать их количество
Массив А(30) заполнить целыми случайными числами в диапазоне от 5 до 115. Вывести те значения...


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

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

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