среднее геометрическое чисел

[rzd]

Помогите пожалуйста разобраться смотрел в исхлдниках подобного примера нет (дана непустая последовательность положительных чисел, за которой следует 0{признак конца последовательности} Вчислить среднее геометрическое этих чисел (Delphi7)) изучал паскаль но простоту перехода на delphi не заметил. Не могу задать массив оканчивающийся 0

[FliPP]

Можно использовать событие OnSetEditText для StringGrid... Тогда там следует прописать условие, при котором начнется вычисление среднего геометрического.

[Stilet]

Не могу задать массив оканчивающийся 0

Дык чего его задавать то? делай динмассив, в цикле вводи в него последовательность пока очередной элемент не равен 0 расширяй границы этого массива. Или введи строку, в которой элементы последовательности раздели скажем запятыми и при вводе получай массив из этой строки через TstringList.CommaText. Проверяй равен ли последний елемент этого СтрингЛиста нулю.

[rzd]

Условие такое что это строка типа Edit в которую вводятся числа без запятых и разделениий до тех пор пока не встретится 0 после чего ввод цифр невозможен а потом уже button расчет среднего геометрического

[True_Evil]

var 
  i:integer; 
  s:string; // входная строка
  cSrGeom:currency; 
begin
  i:=1;
  cSrGeom:=1;
  while i<=length(s) and not(s[i]='0') do
  begin
    cSrGeom:=cSrGeom*strtoint(s[i]);
    inc(i);
  end;
  dec(i);
  if not (i=0) then
    cSrGeom:=Exp(1/i * ln(cSrGeom)); // среднее геометрическое
end;

наскоряк накидал, проверить негде сейчас но должно работать

[Stilet]

RZD, стоило сказать что последовательность однозначных чисел.

cSrGeom:=0;

Ну тут наверное бы луче было cSrGeom:=cSrGeom*strtoint(s[1]);
а цикл начать со следующего элемента, ато ведь на ноль сколько не умножай все равно ноль будет )

[Карась]

Ну так возьмём и запретим ввод как только вписали ноль.

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 48 Then Edit1.Enabled := False;
end;

[True_Evil]

косяк исправил, пасиба

[FliPP]

cSrGeom:=0;

Там ведь далше следует умножение на cSrGeom!!! Мне кажется что надо начальное значение установить равное 1...

cSrGeom:=cSrGeom / i; // среднее геометрическое

там походу будет cSrGeom:=exp(1/i * ln(cSrGeom));...

[Stilet]

Ну так возьмём и запретим ввод как только вписали ноль.

А как тогда завершать ввод строки?