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

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

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

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

@AndyZorg · 16.09.2011, 23:50

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

deathNC · 17.09.2011, 20:55

Не по теме:

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

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

Delphi
1
2
3
4
5
6
type
  PItem = ^TItem;
  TItem = record
    Value: Real;
    Next: PItem;
  end;

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

Delphi
1
2
3
4
5
6
7
8
9
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
1
2
3
4
5
6
7
8
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
1
2
3
4
5
6
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, тему продолжай тут

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@Dr.Popov 0 / 0 / 0 Регистрация: 04.04.2011 Сообщений: 39

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

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

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