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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.11.2010, 17:14   #1
Николая Ленин
Пользователь
 
Регистрация: 24.11.2010
Сообщений: 39
По умолчанию Delphi. Геометрическая прогрессия

Сама задача "Вводится последовательность вещественных чисел состоящая более чем из одного ненулевого элемента. Определить, образуют ли эта последовательность геометрическую прогрессию.". Решается на формах в дельфи, вводится через мемо, выводиться ответ в лейбл, не могу никак осилить..

Последний раз редактировалось Николая Ленин; 24.11.2010 в 18:07.
Николая Ленин вне форума Ответить с цитированием
Старый 24.11.2010, 17:16   #2
b2soft
Упртй программер
Форумчанин
 
Регистрация: 26.11.2009
Сообщений: 150
По умолчанию

581751789 - пишите недорого помогу!
Помощь с кодом/лабами по С/С++
Контакты: ICQ 623334555 Skype: btwosoft; Mail: b2soft@yandex.ru
b2soft вне форума Ответить с цитированием
Старый 24.11.2010, 17:40   #3
Николая Ленин
Пользователь
 
Регистрация: 24.11.2010
Сообщений: 39
По умолчанию

несложная задача, просто разобраться не могу
Николая Ленин вне форума Ответить с цитированием
Старый 24.11.2010, 17:48   #4
Naive
Раздолбайских Дел
Старожил
 
Аватар для Naive
 
Регистрация: 22.05.2009
Сообщений: 3,828
По умолчанию

а геометрическая прогрессия может оканчиваться нулем?=)
Alar, верни репу!
Naive вне форума Ответить с цитированием
Старый 24.11.2010, 18:07   #5
Николая Ленин
Пользователь
 
Регистрация: 24.11.2010
Сообщений: 39
По умолчанию

косяк в условии) там просто блок задач) нет конечно
Николая Ленин вне форума Ответить с цитированием
Старый 24.11.2010, 18:20   #6
Naive
Раздолбайских Дел
Старожил
 
Аватар для Naive
 
Регистрация: 22.05.2009
Сообщений: 3,828
По умолчанию

заводим последовательность в массив и...
Код:
rez:=true;
q:=a[1]/a[0];
for i:=2 to N do
if (a[i]/a[i-1]<>q) then rez:=false
Итого, если rez=true полсе всего этого, последовательность является геометрической последовательностью.
Alar, верни репу!
Naive вне форума Ответить с цитированием
Старый 25.11.2010, 22:58   #7
Николая Ленин
Пользователь
 
Регистрация: 24.11.2010
Сообщений: 39
По умолчанию

Naive
не получается у меня так
Николая Ленин вне форума Ответить с цитированием
Старый 25.11.2010, 23:07   #8
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
rez:=true;
q:=strtofloat(memo1.lines[1])/strtofloat(memo1.lines[0]);
for i:=2 to memo1.lines.count-1 do
if (strtofloat(memo1.lines[i])/strtofloat(memo1.lines[i-1])<>q) then begin rez:=false;break;end;
if rez then label1.caption:='ДА'
else label1.caption:='НЕТ';
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вредная геометрическая прогрессия spein JavaScript, Ajax 2 27.06.2010 23:12
Двумерные массивы геометрическая прогрессия денис2007 Паскаль, Turbo Pascal, PascalABC.NET 0 07.06.2010 21:31
Геометрическая прогрессия Владимир_Мар Общие вопросы Delphi 1 27.05.2010 20:12
геометрическая программка Delphi werus Помощь студентам 2 04.04.2010 16:31
Геометрическая прогрессия (Delphi) Max_Grinyuk Помощь студентам 2 02.02.2010 07:07