Ввод и вывод массива. Memo.

[Shhakote]

ЧЯДНТ?
Необходимо исходный и результирующий массивы вводить и выводить используя компонент memo.
(найти ср. геом. элементов в записать его на место последнего элемента)
Не могу найти ошибки. Сначала выводился массив со второго эл-та, ср.геом. считал неправильно. Сейчас вообще я запутался.
Собственно, вот что не получилось:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Button1: TButton;
    Memo2: TMemo;
    Label2: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  const n=10;
  type
  mas = array[1..n] of real;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);


   var A: mas;
       Avrgeo: real;
       i: integer;
       res: real;
       str: integer;


begin
str:=Memo1.Lines.Count;

if str = 0 then begin
ShowMessage('Данные не введены!');
Exit;
end;

if str > n then begin
ShowMessage('Колличеств строк превышает размер массива');
str:=n;
end;


    for  i:=0 to n  do  begin
    A[i]:=StrToFloat(Memo1.Lines[i]);
    end;
          res:= 1;
       for  i:=1 to n do  begin
    res:= res*A[i];
    end;
    Avrgeo:= exp((1/10)*ln(res));
    Edit1.Text:= FloatToStr(Avrgeo);

      for i:=1 to n-1 do begin
          Memo2.Lines.Add(FloatToStr(A[i+1]))
          end;
           A[10]:=Avrgeo;


 end;
end.

[type_Oleg]

 for i:=0 to n do begin
A[i]:=StrToFloat(Memo1.Lines[i]);
// ....

У вас массив A имеет тип array[1..n] of real. В нем нет 0-го элемента.
И лучше не Memo1.Lines[и] , а Memo1.Lines.Strings[и]

PS И какой смысл в этом -

A[10]:=Avrgeo;
end;
end.

?

[min@y™]

Как звучит задание в оригинале?

[Shhakote]

Как-то так.

[min@y™]

ну типа как-то так штоли...

function gAverage(memo: TMemo): Boolean;
var
  Index: Integer;
  Value, avg: Extended;
begin
  Result:= False;
  
  if memo.Lines.Count = 0
    then Exit;
    
  avg:= 1.0;
  
  for Index:= 0 to memo.Lines.Count - 1 do
    if TryStrToFloat(Trim(memo.Lines[Index]), Value) and (Value > 0)
      then avg:= avg * Value
      else Exit;
      
  avg:= Power(avg, 1 / memo.Lines.Count);
  memo.Lines[memo.Lines.Count - 1]:= FloatToStr(avg);
  
  Result:= True;
end;

ВНИМАНИЕ!
УВАГА!!
АХТУНГ!!!
АТТЕНШН!!!!
Shit-code detected!
Код не отлаживал. Писал на заборе!

[Shhakote]

Все, проблема решена, всем спасибо.

procedure TForm1.Button1Click(Sender: TObject);


   var
   a: array[0..9] of real;
   Avrgeo: real;
   i,j,n: integer;
   res: real;
   str: integer;

begin

str:=Memo1.Lines.Count;

if str = 0 then begin
ShowMessage('Данные не введены!');
Exit;
end;

if str > 10 then begin
ShowMessage('Колличество строк превышает размер массива');
str:=10;
end;


    for  i:=0 to 9  do
    begin
      A[i]:=StrToFloat(Memo1.Lines[i]);
    end;

    res:= 1;
    for  i:=0 to 9 do
    begin
      res:= res*A[i];
    end;

    Avrgeo:= exp((1/10)*ln(res));

    Edit1.Text:= FloatToStr(Avrgeo);

    A[9]:=Avrgeo;
    for i:=0  to 9 do
    begin
      Memo2.Lines.Add(FloatToStr(a[i]));
    end;
 end;
end.

[northener]

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

И лучше не Memo1.Lines[и] , а Memo1.Lines.Strings[и]

Почему лучше? Текста больше? Больше денег можно затребовать с заказчика?

[min@y™]

Все, проблема решена, всем спасибо.

А чо, мой пример не подошёл? Почему?

[Shhakote]

А чо, мой пример не подошёл? Почему?

Честно, не совсем в нем разобрался. Power не смог подключить(это же в math?), да и решил идти путем простым и понятным, но все равно спасибо, что Вы ответили!

[min@y™]

Power не смог подключить(это же в math?)

ну да.
почему не смог-то, ёмаё?

решил идти путем простым и понятным

если что непонятно - спрашивай. для этого и существует форум, это одна из неосновных его функций, но всё же...

Какая жаль, что я потратил кусок времени впустую.