Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
3 / 3 / 1
Регистрация: 02.03.2010
Сообщений: 75
1

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

02.03.2010, 09:55. Показов 1358. Ответов 13
Метки нет (Все метки)

"Дано n вещественных чисел. Определить сколько из них больше своих соседей, т.е. предыдущего и последующего."
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2010, 09:55
Ответы с готовыми решениями:

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

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

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

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

13
1850 / 1172 / 189
Регистрация: 27.03.2009
Сообщений: 4,512
02.03.2010, 09:57 2
Pascal
1
2
3
c:=0;
for i:=2 to n-1 do
if (a[i]>a[i-1]) and (a[i]>a[i+1]) then inc(c);
2
3 / 3 / 1
Регистрация: 02.03.2010
Сообщений: 75
02.03.2010, 10:17  [ТС] 3
ты делал с помощью массива.
0
0 / 0 / 0
Регистрация: 02.03.2010
Сообщений: 9
02.03.2010, 10:20 4
а можешь сделать с помощью циклов???? please!!!!!
0
0 / 0 / 0
Регистрация: 02.03.2010
Сообщений: 5
02.03.2010, 10:28 5
надо с цыклами
0
1850 / 1172 / 189
Регистрация: 27.03.2009
Сообщений: 4,512
02.03.2010, 10:33 6
Цитата Сообщение от unick12345 Посмотреть сообщение
for i:=2 to n-1 do
это и есть цикл

Добавлено через 42 секунды
или все числа будут вводится с клавиатуры в цикле?
0
0 / 0 / 0
Регистрация: 02.03.2010
Сообщений: 9
02.03.2010, 10:36 7
я нифига не понимаю, можешь поподробней написать )
0
3 / 3 / 1
Регистрация: 02.03.2010
Сообщений: 75
02.03.2010, 10:39  [ТС] 8
"if (a[i]>a[i-1]) and (a[i]>a[i+1]) then inc(c);"
а это, в паскале выявляет что a переменная массива
0
0 / 0 / 0
Регистрация: 02.03.2010
Сообщений: 9
02.03.2010, 10:40 9
мне нужно с циклами!!!
0
1850 / 1172 / 189
Регистрация: 27.03.2009
Сообщений: 4,512
02.03.2010, 10:41 10
подробней просто некуда. ну ладно:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program test;
const n=10;
var a:array [1..n] of integer;i,c:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
write(a[i],' ');
writeln;
c:=0;
for i:=2 to n-1 do
if (a[i]>a[i-1]) and (a[i]>a[i+1]) then inc(c);
writeln('Takih chisel ',c);
readln;
end.
Добавлено через 40 секунд
gorgutz1234, а как нужно? не понимаю вопроса
1
3 / 3 / 1
Регистрация: 02.03.2010
Сообщений: 75
02.03.2010, 10:47  [ТС] 11
без массива
0
1850 / 1172 / 189
Регистрация: 27.03.2009
Сообщений: 4,512
02.03.2010, 10:52 12
значит в реальном времени. ввод будет в цикле и просчет тоже?
0
0 / 0 / 0
Регистрация: 02.03.2010
Сообщений: 5
03.03.2010, 22:30 13
Да, без использования array
0
Модератор
63381 / 47074 / 32446
Регистрация: 18.05.2008
Сообщений: 114,106
04.03.2010, 10:57 14
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var n,i,a,b,c,k:integer;
begin
clrscr;
repeat
write('Количество чисел не менее 3 n=');readln(n);
until n>=3;
writeln('Введите ',n,' целых чисел');
k:=0;
readln(a);
readln(b);
for i:=3 to n do
 begin
  readln(c);
  if (b>a)and(b>c) then k:=k+1;
  a:=b;
  b:=c;
 end;
write('Чисел больше своих соседей=',k);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.03.2010, 10:57

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

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

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

Дан список чисел. Определите, сколько в этом списке элементов, которые больше двух своих соседей и выведите ко
Дан список чисел. Определите, сколько в этом списке элементов, которые больше двух своих соседей и...

Определить сколько элементов массива больше своих "соседей"
1. Дано: одномерный массив А(N). Определить сколько элементов массива больше своих "соседей",...


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

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

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