Delphi. Геометрическая прогрессия

[Николая Ленин]

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

[b2soft]

581751789 - пишите недорого помогу!

[Николая Ленин]

несложная задача, просто разобраться не могу

[Naive]

а геометрическая прогрессия может оканчиваться нулем?=)

[Николая Ленин]

косяк в условии) там просто блок задач) нет конечно

[Naive]

заводим последовательность в массив и...

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 полсе всего этого, последовательность является геометрической последовательностью.

[Николая Ленин]

Naive
не получается у меня так

[Mad_Cat]

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:='НЕТ';