(Delphi) здча на геометрическую прогрессию

[Nickolai47]

Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию!
Подскажите что и как делать понимаю что на форму кинуть надо стрингрид или мемо и вывести в едит а что на счет кода...
(вообще я не как с делфи... и в общем тяжко )

[Abstraction]

Если N=1 или N=2, ответ - "да".
Если больше - поделить второй элемент на первый, запомнить ответ. Затем делить третий на второй, четвёртый на третий и т.д. и каждый раз сравнивать с запомненным. Как только не совпадёт - не прогрессия; если дошли до конца и всё время совпадало - прогрессия.

[Nickolai47]

Сообщение от Abstraction

Если N=1 или N=2, ответ - "да".
Если больше - поделить второй элемент на первый, запомнить ответ. Затем делить третий на второй, четвёртый на третий и т.д. и каждый раз сравнивать с запомненным. Как только не совпадёт - не прогрессия; если дошли до конца и всё время совпадало - прогрессия.

мне бы кодом, реализовать это я не смогу

[Abstraction]

Жил был один очень несчастный человек. У него не складывалось с девушками, с работой, и друзей тоже у него не было. Но однажды он шел по берегу моря и нашел лампу. Вспомнив детские сказки, ради шутки потер ее, а оттуда неожиданно вышел джин и сказал:
— Спасибо, что освободил меня. За это я выполню три любых твоих желания.
— Действительно любых? — изумился человек.
— Конечно. Чего ты желаешь?
— Ну, я хочу, чтобы у меня был огромный дом.
— Он у тебя есть, — проговорил джинн, и прямо на пустынном берегу появился роскошный особняк.
— Еще хочу, чтобы у меня была лучшая в мире спортивная машина.
— Пусть будет так, — ответил джинн, и прямо перед домом появилась шикарная спортивная машина, в которой уже лежали ключи и документы.
— Есть у меня еще одно желание, — начал человек, — но даже ты никогда не сможешь сделать этого.
— Пусть будет так, я никогда не смогу сделать этого.

Но если хотите попробовать, то давайте начнём с простого: напишите функцию, которая принимает на вход массив целых чисел и N и возвращает true, если N<=2 и false в противном случае.

[Nickolai47]

Сообщение от Abstraction

Но если хотите попробовать, то давайте начнём с простого: напишите функцию, которая принимает на вход массив целых чисел и N и возвращает true, если N<=2 и false в противном случае.

честно скажу мне это программирование даром не нужно!Но здать я задание обязан!
функции я не когда не писал и не знаю как это делается, делфи я пользоваться могу на примитивной основе!Я обратился на форум чтоб мне такому упырю помогли тут а не мучили
если вы кодом помочь не можете то проходите мимо, или закройде/удалите тему толку все равно я не дождусь...

[Nickolai47]

mas:array [1..100] of real;
i,count:integer;
q:Real;
rez:Boolean;
begin
  q:=strtofloat(memo1.lines[1])/strtofloat(memo1.lines[0]);
    rez:=false;
      for i:=2 to memo1.lines.count-1 do
     if (strtofloat(memo1.lines[i])/strtofloat(memo1.lines[i-1])<>q)
   then
 begin
  rez:=true;
   break;
 end;
if not rez then
 edt1.Text:=FloatToStr(q)
  else
   edt1.Text:=FloatToStr(0);
end;
end.

это получилось процедура... как мне сделать чтобы за проверку отвечала функция?Что бы в другой раз я мог её спокойно вызвать!

[Nickolai47]

ну кто нибудь?

[Mad_Cat]

Function TForm.Checkgp:boolean;
var
i:integer;
//q:Real;  q обьявите глобально;
rez:Boolean;
begin
  q:=strtofloat(memo1.lines[1])/strtofloat(memo1.lines[0]);
   result:=true;
      for i:=2 to memo1.lines.count-1 do
     if (strtofloat(memo1.lines[i])/strtofloat(memo1.lines[i-1])<>q)
   then
 begin
  result:=false; exit;
 end;
end;

вызов

if checkGP then
edt1.Text:=FloatToStr(q)
  else
   edt1.Text:='0';

[Nickolai47]

[QUOTE=Mad_Cat;1131715]

  q:=strtofloat(memo1.lines[1])/strtofloat(memo1.lines[0]);

пишет:Undeclared identifier: 'memo1'
я как понимаю в функции не прокатит визуальный компонент?Как по другому сделать?