Добавление элемента списка, равного среднему арифметическому элементов

@Dr.Popov · Регистрация: 04.04.2011

Студворк — интернет-сервис помощи студентам

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

@~~AndyZorg~~ · 16.09.2011, 23:50

Из условия мало что понятно. При чем тут динамические структуры? При чем тут стек? Бррррр... Попробуйте еще раз описать внятно задачу

deathNC · 17.09.2011, 20:55

Не по теме:

AndyZorg, стек тут при том, что через него реализовано множество чисел.
Задача описана вполне внятно, и, полагаю, тебе ещё не хватает базовых знаний Delphi...

Вот как эта штука объявляется:

Delphi

type
  PItem = ^TItem;
  TItem = record
    Value: Real;
    Next: PItem;
  end;

А это процедура, которая найдёт максимальный элемент:

Delphi

procedure GetMaxItem(pNext: PItem; var pMax: PItem);
begin
  If pMax = nil then
    pMax := pNext
  else if pMax^.Value < pNext^.Value then
    pMax := pNext;
  If pNext^.Next <> nil then
    GetMaxItem(pNext^.Next, pMax);
end;

Добавлено через 18 минут
Вот так вычислить сумму и кол-во элементов:

Delphi

procedure GetArithmeticMean(item: PItem; var ArithmMean: Real; var Count: Integer);
begin
  If item = nil then
    exit;
  inc(ArithmMean := ArithmMean + item^.Value;
  inc(count);
  GetArithmeticMean(item^.Next, ArithmMean, count);
end;

А когда мы их вычислим - можно и среднее арифметическое считать

Delphi

1 2	GetArithmeticMean(root, ar_mean, _count); ar_mean := ar_mean / _count;

@~~AndyZorg~~ · 18.09.2011, 00:52

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

Не по теме:
AndyZorg, стек тут при том, что через него реализовано множество чисел.
Задача описана вполне внятно, и, полагаю, тебе ещё не хватает базовых знаний Delphi...

Расскажите, ГДЕ в условии это сказано? Базовые знания Дельфи... Я на ней с первой версии работаю, та которая под Win3.11

Конечно не могу сказать, что знаю ВСЕ... Но достаточно прилично

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

Вот как эта штука объявляется:

Delphi

type
 PItem = ^TItem;
 TItem = record
 Value: Real;
 Next: PItem;
 end;

А это - классический пример односвязного списка... Стеком его можно назвать, но все же это список

Добавлено через 1 минуту

Сообщение от Dr.Popov

Помогите пожалуйста решить
Дан список вещественных чисел. Написать следующие функции:
а) вычисления;

Это Вы считаете правильным условием? Вычисления ЧЕГО???

deathNC · 18.09.2011, 13:20

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

Расскажите, ГДЕ в условии это сказано?

Ну, ладно. С твоими незнаниями я погорячился.
Однако в названии самой темы написано - Динамические структуры. Я тоже с этим термином не был особо знаком (так как самоучка), пока случайно не услышал об нём на лекциях по программированию.
В данной задаче как раз и надо сделать что-то типа массива, но только в виде линейного списка.
Причём именно так, как я написал выше.

deathNC · 29.09.2011, 16:57

Dr.Popov, тему продолжай тут

@Dr.Popov 0 / 0 / 0 Регистрация: 04.04.2011 Сообщений: 39
		1
	Добавление элемента списка, равного среднему арифметическому элементов 16.09.2011, 23:18. Показов 1244. Ответов 5 Метки нет (Все метки) Помогите пожалуйста решить Дан список вещественных чисел. Написать следующие функции: а) вычисления; б) добавления элемента, равного среднему арифметическому элементов списка за максимальным элементом списка. 0

@~~AndyZorg~~ Заблокирован
	16.09.2011, 23:50	2
	Из условия мало что понятно. При чем тут динамические структуры? При чем тут стек? Бррррр... Попробуйте еще раз описать внятно задачу 1

deathNC 1904 / 1015 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	18.09.2011, 13:20	5
	Сообщение от AndyZorg Расскажите, ГДЕ в условии это сказано? Ну, ладно. С твоими незнаниями я погорячился. Однако в названии самой темы написано - Динамические структуры. Я тоже с этим термином не был особо знаком (так как самоучка), пока случайно не услышал об нём на лекциях по программированию. В данной задаче как раз и надо сделать что-то типа массива, но только в виде линейного списка. Причём именно так, как я написал выше. 1

deathNC 1904 / 1015 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	29.09.2011, 16:57	6
	Dr.Popov, тему продолжай тут 1

Опции темы