Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.10.2011, 12:03   #1
Даша(S)
Пользователь
 
Регистрация: 21.10.2011
Сообщений: 14
Восклицание Даны четыре вещественных числа, проверить: образуют ли данные числа геометрическую прогрессию (язык C)

Требуется помщь в языке СИ...простая программа!Спасибо заранее )

Даны четыре вещественных числа от нуля. Проверить: образуют ли данные числа геометрическую прогрессию.




_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

Модератор.

Последний раз редактировалось Serge_Bliznykov; 21.10.2011 в 15:26.
Даша(S) вне форума Ответить с цитированием
Старый 21.10.2011, 12:15   #2
Вадим Мошев

Старожил
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Сообщений: 8,568
По умолчанию

Геометрическая прогрессия - это последовательность чисел, где каждое последующее число получается умножением предыдущего числа на некоторое число, называемое знаменателем прогрессии.

Если предположить, что числа A, B, C, D являются таковой, то должны выполнятся условия: B = A*q; C = B*q и так далее.
Необходимо проверить, верно ли, что (D/C) = (C/B) = (B/A).
Если да, то являются, иначе - нет.
Вадим Мошев вне форума Ответить с цитированием
Старый 21.10.2011, 14:10   #3
iCaesy
In progress...
Форумчанин
 
Регистрация: 25.09.2011
Сообщений: 161
По умолчанию

1. Ввод а,б,ц,д
2. if (D/C) = (C/B) = (B/A)
cin Прогрессия
else
cin Нет
iCaesy вне форума Ответить с цитированием
Старый 21.10.2011, 19:39   #4
Даша(S)
Пользователь
 
Регистрация: 21.10.2011
Сообщений: 14
По умолчанию

а можно поподробнее написать....У меня очень туго с этим!!
Даша(S) вне форума Ответить с цитированием
Старый 21.10.2011, 20:06   #5
iCaesy
In progress...
Форумчанин
 
Регистрация: 25.09.2011
Сообщений: 161
По умолчанию

Любой каприз за ваши деньги
iCaesy вне форума Ответить с цитированием
Старый 21.10.2011, 20:31   #6
Даша(S)
Пользователь
 
Регистрация: 21.10.2011
Сообщений: 14
По умолчанию

ясно...а бесплатно можно?
Даша(S) вне форума Ответить с цитированием
Старый 04.04.2015, 23:43   #7
borski
Новичок
Джуниор
 
Регистрация: 09.10.2014
Сообщений: 1
Смех

Цитата:
Сообщение от Даша(S) Посмотреть сообщение
Требуется помщь в языке СИ...простая программа!Спасибо заранее )

Даны четыре вещественных числа от нуля. Проверить: образуют ли данные числа геометрическую прогрессию.




_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

Модератор.

Код:
#define SIZE 4
 
int main()
{
  int i;
  float b[SIZE],q,n;
  for (i=0;i<SIZE;i++)
  {
  printf("b[%d]",i);
  scanf("%f",&b[i]);
  q=b[1]/b[0];
  n=(b[i]/b[i-1]);
  printf("znamenatel =%0.f\n",q);
  if (n==q)
  {
  printf("massiv - GN\n");
    }
    else
    {
     printf("massiv - ne GN\n");
     }
     printf("chastnoe =%0.f\n",n);   
}
  system("PAUSE"); 
  return 0;
}

Последний раз редактировалось Stilet; 05.04.2015 в 09:27.
borski вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны натуральные числа n и m. Получить сумму m последних цифр числа n pahanzona Microsoft Office Excel 11 27.02.2011 02:17
Даны натуральные числа n,p, целые числа a1 , ... ,an. Наталья111 Фриланс 10 09.11.2010 20:09
Пишу курсовую нужно решить задачу для примера на геометрическую прогрессию (Pascal) =|винтик|= Помощь студентам 4 25.05.2009 16:38
Даны натуральные числа m,n. Посчитать сумму m последнего числа n. лялька Паскаль, Turbo Pascal, PascalABC.NET 6 25.12.2008 15:22
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа Woland-itn Паскаль, Turbo Pascal, PascalABC.NET 3 23.03.2008 21:49