Добавлено @ 06:16
что тут не так,подскажите!

Это сообщение отредактировал(а) Rrader - 5.11.2010, 10:00

Собственно все не так ))))











Это сообщение отредактировал(а) ~FoX~ - 5.11.2010, 09:18

аааа - какая чушь



Что бросается в глаза - непонятно, что это за такие - ввод данных в массив и генератор случайных чисел. Ну и энда в конце нету   .

Это сообщение отредактировал(а) superVad - 5.11.2010, 14:37

~FoX~ молодцом. сразу понял что мне надо.
только вот на строчке 

 ai:=0;
  for i=1 to n do
  begin
    if sb<=a<=sg
    then ai:=ai+1;

встает курсор после to и выдает ошибку как было до этого.
в этой строчке мне нужно найти количество значений A, которые отвечают требованию sb<=ai<=sg
где sb-среднее арифмитическое, а sg-среднее геометрическое.
я исправил эту строчку как ты писал,но он все равно жалуется
что посоветуешь?

 s3:=0;
 for i=1 to n do
 begin if sb<=a[i]<=sg
 then
 s3:=s3+1;
 end;

можно сделать и как предыдущие,но все равно не получается именно этот отрываок

Fantik1990, for i :=
Блин, кароче на:


Хотя имхо, код реально странноватый )))

Это сообщение отредактировал(а) ~FoX~ - 5.11.2010, 15:49

~FoX~,

не



а



Это я к тому, что что то явно не так.


Это сообщение отредактировал(а) superVad - 5.11.2010, 16:03

Блин.Программа до запуска ни на что не жалуется,но как запустишь толи виснет толи не хочет делать все что прописано.может кто посмотрит,запустит ее у себя,посмотрит?((((((((((((((

Добавлено через 4 минуты и 19 секунд
~Fox~ то что ты прописал ошибки,они все исправились....но сама прога когда запускаешь не подает признаков жизни

Присоединённый файл ( Кол-во скачиваний: 4 )
 delphi.rar 3,56 Kb

Fantik1990, Судя по всему ты просто скопипастил код, а событие на кнопку не объявил....В дизайн тайме тыкни два раза на батон... 
И объясни мне логику вот этого куска кода

Зачем введенные с мемо данные заменять рандомными? или на оборот ))))

Это сообщение отредактировал(а) ~FoX~ - 5.11.2010, 17:39

Присоединённый файл ( Кол-во скачиваний: 3 )
 delphi.rar 6,31 Kb

если числа не ввидет пользователь но задействуется генератор.так нельзя?

Добавлено через 10 минут и 6 секунд
random я убрал.Это реально бред.не подумал.
а как ты задал значения в memo стандартом?когда загружаешь там уже проставлены значения.я вот искал,искал,не смог найти где их прописать по умолчанию можно.

Добавлено через 14 минут и 47 секунд
при изменении значений в memo результаты те же, ведь не должно быть так наверное.

       Свойство Items у  Мемо

а почему когда значения меняешь,результаты те же?

Fantik1990, разбей задачу на простые подзадачи и решай их. А то какая то ерунда получается.
В Memo смотри свойство Lines, это в самом коде видно кстати.

Ладно толстый намек еще:

вместо:



наверное надо:



Это сообщение отредактировал(а) superVad - 5.11.2010, 18:47

Потому что твои расчеты средних сначала заполняют УЖЕ ЗАПОЛНЕННЫЙ массив, а потом производят действия )))))  
Например

Соответственно и с геометрической прогрессией тоже самое 

Может ты просто опишешь задачу?   

Это сообщение отредактировал(а) ~FoX~ - 5.11.2010, 19:16

Разработать алгоритм и программу решения задачи обработки одномерного массива (массивов). Количество элементов массива (массивов) является входным параметром и вводится в программе. При работе программы исходные массивы  не должны быть изменены.
Программа должна предлагать пользователю различные варианты задания значений элементов исходного массива (массивов):
1) Элементы исходного массива (массивов) вводятся пользователем.
2) Элементы исходного массива (массивов) вычисляются случайно.
3) Элементы исходного массива (массивов) задаются как предусмотренный в программе набор констант.
Программа должна быть представлена в виде консольного приложения и приложения Windows. 

Найти количество элементов массива a=(a1, a2,…,an), значения которых лежат между средним арифметическим элементов массива 
(b=b1, b2,…,bn) и средним геометрическим элементов массива c=(c1, c2,…,cn).

вот вся задача.