Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.88/26: Рейтинг темы: голосов - 26, средняя оценка - 4.88
51 / 0 / 0
Регистрация: 23.03.2010
Сообщений: 44

арифметическая прогрессия

23.03.2010, 06:24. Показов 5272. Ответов 29
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите с задачкой)
Составьте программу выясняющую образуют ли элементы одномерного массива арифметическую прогрессию.
Я думаю что начало такое а вот что дальше?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program Vvod;
 Var N, I : Integer;
     A : Array [1..20] Of Integer;
Begin
  Write('vvedite kolishestvo elementov massiva ');  ReadLn(N);
  FOR I := 1 TO N DO
  Begin
   Write('vvedite A[', I, '] ');
   ReadLn(A[I]);
   end;
  readln;
End.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
23.03.2010, 06:24
Ответы с готовыми решениями:

Арифметическая прогрессия
Дана последовательность чисел а1,а2,а3…. Проверить является ли данная последовательность арифметической прогрессией:(

Арифметическая прогрессия
Арифметическая прогрессия задана первым членом и рациональностью. Вычислить и вывести по очереди члены с 6-го по 12 и с 14-го по 19-й...

арифметическая прогрессия
задана арифметическая прогрессия : -1,2;-0,5...сколько чисел нужно сложить чтобы сумма стала положительна?

29
51 / 0 / 0
Регистрация: 23.03.2010
Сообщений: 44
23.03.2010, 14:10  [ТС]
Студворк — интернет-сервис помощи студентам
ну не знаю если по логике то образуют просто они не в правильном порядке.если бы стояло что на определённом отрезке то это было бы правильно.
0
411 / 330 / 42
Регистрация: 10.03.2010
Сообщений: 3,313
23.03.2010, 14:14
По какой"логике"?Выучи определение арифметической прогрессии!У вас церковно-приходская школа,что ли?
0
51 / 0 / 0
Регистрация: 23.03.2010
Сообщений: 44
23.03.2010, 14:24  [ТС]
задача уже решена.и читайте вы условия задачи там нигде не сказано что они должны быть последовательны там просто сказано входит ли числа в одномерном массиве в арифметическую прогерссию.
0
411 / 330 / 42
Регистрация: 10.03.2010
Сообщений: 3,313
23.03.2010, 14:29
В вечернюю школу!
0
51 / 0 / 0
Регистрация: 23.03.2010
Сообщений: 44
23.03.2010, 14:31  [ТС]
просто напишу правило из математики))от перемены мест слагаемых сумма не меняется)
0
411 / 330 / 42
Регистрация: 10.03.2010
Сообщений: 3,313
23.03.2010, 14:35
А что значит,по твоему,арифметическая прогрессия?
0
Почетный модератор
 Аватар для Puporev
64320 / 47616 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
23.03.2010, 15:14
там просто сказано входит ли числа в одномерном массиве в арифметическую прогерссию.
Так отсортируй массив по возрастанию, а потом проверяй как тебе написали. Тебе что, все разжевать нужно? Тогда во Фриланс.
0
 Аватар для DeLuxe
156 / 158 / 93
Регистрация: 01.01.2010
Сообщений: 398
23.03.2010, 15:28
http://ru.wikipedia.org/wiki/А... прогрессия
Читаем, изучаем. Спешл фо топикстартер

Добавлено через 7 минут
3 5 4
по правилу, ( а(n)+а(n+2) )/2 = a(n+1)
соответственно (3+4)/2 должно быть равно 5. И где же?
Арифметическая прогрессия на "примитивнейшем языке" - 5-3=4-5, что не верно.
соотственно последовательность чисел 3,5,4 не является арифметической прогрессией.

Добавлено через 4 минуты
Цитата Сообщение от energoshoc Посмотреть сообщение
и читайте вы условия задачи там нигде не сказано что они должны быть последовательны
Убило..Просто убило и все.
Товарищ, прогрессия - последовательность.
0
Почетный модератор
 Аватар для Puporev
64320 / 47616 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
23.03.2010, 15:33
DeLuxe, Не обязательно, элементы прогрессии могут быть разбросаны в массиве и нужно определить, являются ли они элементами прогрессии. Для этого и предлагаю массив отсортировать, а затем проверить на прогрессию, как возрастающую, так и убывающую, про которую вообще никто не вспомнил. Задача примитив и автор должен сам ее решать.
0
411 / 330 / 42
Регистрация: 10.03.2010
Сообщений: 3,313
23.03.2010, 15:43
Мой код и на убывающую проверяет, а про то,что числа могут быть разбросаны,тот умние не писал,или писал очень криво
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.03.2010, 15:43

арифметическая прогрессия
Подскажите где исправить условие в программе по нахождению арифметической прогрессии, если в строке более одной арф.пр. то вывести самую...

арифметическая прогрессия
задана арифметическая прогрессия. известны первые 2 элемента-они отрицательны(-302, -288). сколько элементов нужно сложить чтобы сумма...

Арифметическая прогрессия
Арифметическая прогрессия задана, первым членом a1 и разностью b.Вычислить произведения членов с 5-го номера по 10-й, с 11-го по 17-й, с...

Рекурсия. Арифметическая прогрессия.
Создать две арифметические прогрессии из 10 элементов с начальными значениями 1.2 и 2.7 с шагом соответственно 0.7 и 0.35.

Арифметическая прогрессия, степень
1. Найти n-ый член арифметической прогрессии, если известно A, d (разность прогресии) и номер n. 2. Написать функцию нахождения...


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

Или воспользуйтесь поиском по форуму:
30
Ответ Создать тему
Новые блоги и статьи
Калькулятор для расчета родства
russiannick 07.08.2026
1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь
Мир по моей воле
kumehtar 07.08.2026
Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор
Maks 05.08.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35".
kumehtar 04.08.2026
С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники).
Hrethgir 04.08.2026
Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .
Термопринтер QR701
Argus19 03.08.2026
Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа
Maks 03.08.2026
Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .
Задача предоставления скидок покупателям
Maks 03.08.2026
Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru