Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
voevodaa
4 / 4 / 0
Регистрация: 21.11.2012
Сообщений: 86
#1

Найти тройки чисел, удовлетворяющие условию - Turbo Pascal

02.12.2012, 05:32. Просмотров 699. Ответов 4
Метки нет (Все метки)

Дана таблица целых чисел a1, a2, ..., an. Найти тройки чисел аi-1, ai, ai+1, удовлетворяющие условию:
а вводится с клавиатуры!
0
Изображения
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2012, 05:32
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти тройки чисел, удовлетворяющие условию (Turbo Pascal):

Найти члены последовательности, удовлетворяющие условию - Turbo Pascal
Часть 1. Создание функции Даны натуральные числа n, a1,…,an, где n≤2500. Найти члены ak последовательности a1,…,an, удовлетворяющие...

Найти члены последовательности, удовлетворяющие условию - Turbo Pascal
что не так в этой программе в этой программе Даны натуральные числа n, a1,…,an, где n≤12. Найти члены ak последовательности a1,…,an,...

Найти все трехзначные числа, удовлетворяющие условию - Turbo Pascal
Находит все трехзначные числа qwe такие что qwe= q! + w! + e!

Найти все простые числа, удовлетворяющие условию - Turbo Pascal
Даны натуральные числа a и b (a<b). Найти все простые числа, удовлетворяющие условию a<=p<=b.

Найти все двузначные числа, удовлетворяющие условию - Turbo Pascal
.Найти все такие двузначные числа, что сумма каждого такого числа и числа с теми же цифрами, но записанными в обратном порядке, есть...

Найти в массиве подряд идущие элементы, удовлетворяющие условию - Turbo Pascal
Помогите пожалуйсто решить задачку, не могу сообразить:wall: Создать 2 целочисленных массива X и Y. Можно ли в первом из них...

4
CodeR
Фрилансер
3379 / 2781 / 788
Регистрация: 08.02.2012
Сообщений: 6,618
Записей в блоге: 1
02.12.2012, 08:19 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var A:array[1..100] of real;
    i,n:byte;
Begin
    write('Введите n: ');readln(n);
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    For i:=2 to n-1 do
     if A[i]<=((A[i+1]+A[i-1])/2) then writeln(A[i]:6:2,A[i-1]:6:2,A[i+1]:6:2);
    readln;
End.
1
voevodaa
4 / 4 / 0
Регистрация: 21.11.2012
Сообщений: 86
02.12.2012, 08:46  [ТС] #3
можешь сказать что делает тип byte, для чего он нужен!
0
CodeR
Фрилансер
3379 / 2781 / 788
Регистрация: 08.02.2012
Сообщений: 6,618
Записей в блоге: 1
02.12.2012, 08:47 #4
Цитата Сообщение от voevodaa Посмотреть сообщение
можешь сказать что делает тип byte, для чего он нужен!
да тип byte - это целочисленный тип может принимать значения [0..255] можешь поменять на integer если хочешь
0
voevodaa
4 / 4 / 0
Регистрация: 21.11.2012
Сообщений: 86
02.12.2012, 08:55  [ТС] #5
ясненько, спасибо!
 Комментарий модератора 
Правило форума 5.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
02.12.2012, 08:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2012, 08:55
Привет! Вот еще темы с ответами:

Найти все натуральные числа, меньшие заданного, удовлетворяющие условию a^2+b^2=c^2 - Turbo Pascal
Помогите, пожалуйста. После ввода строчки c:=sqrt(sqr(a)+sqr(b)); перестаёт вообще всё выводиться. Не понимаю почему. условие задачи: ...

Ввести строку и найти в ней числа удовлетворяющие условию "mod5" - Turbo Pascal
вписать в строку условие &quot;mod5&quot; нужно ввести строку и найти в ней числа удовлетворяющие условию &quot; mod5 &quot; написал, скажите как и куда...

Найти пары чисел Х и У, удовлетворяющие уравнению x^2=y^2+77. - Turbo Pascal
собственно в названии темы все дано. я подумывал сделать чтобы числа Х и У рандомно вылетали но вот не получается сделать. вот что я...

найти тройки чисел из множества - Turbo Pascal
найти тройки чисел из множества, заданного массивами x,y,z размерности n&lt;=10, для которой площадь треугольника со сторонами, определямыми...


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

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

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