Плиз хелм ми гайс!
Нужно написать функцию! проверяющую массив на геометрическую прогрессию!
Есть код который переделал с процедуры но он не пашет... Ругается на отсутствие мемо
Код:
Function 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';