Помощь - Поиск - Пользователи - Календарь
Полная версия: найти среднее арифметическое вектора
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Борис
Дан вектор В(N), N<=40. Найти среднее арифметическое всех элементов вектора за исключением
максимального и минимального по абсолютной величине. (учесть, что |max| u |min| могут быть несколько)

нужно написать все с процедурами и функцией. Сделайте пожалучста кто-нибудь. А то я не знаю как описывать процедуры с функциями... wacko.gif
klem4
Во первых, что уже готово ? Во вторых зайди сюда : FAQ : Массивы, матрицы, типичные задачи, если есть проблемы в работе с массивами

А алгоритм решение твоей задачи следующий : находишь абсолютные значение максимального и минимального элементов, затем делеаешь следующее :


sr := 0;
count := 0;
for i := 1 to n do
 if (x[i] <> min) and (x[i] <> max) then begin
    sr := sr + x[i];
    inc(count);
end;

if count <> 0 then sr := sr / count;

Борис
Цитата(klem4 @ 10.02.2006 13:54)
Во первых, что уже готово ?

у меня не получается описывать процедуры с функциями, покажи как будет выглядеть функция с поиском min и max плиз
volvo
Я бы сделал по-другому: Сначала отсортировал вектор (неважно, в каком направлении - можно и так и так...), потом "отсек" все крайние одинаковые элементы с обеих сторон, и потом уже прошелся бы обычным циклом, суммируя элементы...
klem4

type
  TArr = array [1..100] of integer;

...

function Min(a : TArr; n : integer) : integer;
var
   i,Amin : integer;
begin
   Amin := maxint;
   for i := 1 to n do
    if abs(a[i]<abs[Amin]) then Amin := abs(a[i]);
   Min := Amin;
end;
Борис
сделайте кто-нибудь, только обязательно с процедурами и функцией.
200 рублей плачу кто сделает.

ты не на рынке... mad.gif

при чем здесь рынок??
я реально прошу просто сделать мне задачу.
очень срочно нужно....
klem4
Я могу перенести тему в разед "Задачи на заказ", но шансов что там ее тебе кто-то решит я думаю не много, я привел тебе пример как работать с массивм через подпрограмму + воспользуйся поиском, огромное множество задач на массивы решено с использованием подпрограмм, да почти все наверное + основной алогитм я тебе тоже показал. Решай.
volvo
const
  n = 10;
type
  buffer = array[1 .. n] of integer;

procedure sort(var ar: buffer; n: integer);
var i, j, T: integer;
begin
  for i := 1 to n do
    for j := n downto i + 1 do
      if ar[Pred(j)] > ar[j] then begin
        T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T
      end
end;

procedure get_ranges(const arr: buffer;
          var start, finish: integer);
begin
  start := 1; finish := n;
  while (arr[start + 1] = arr[start]) and (start < n) do
    inc(start); inc(start);
  while (arr[finish - 1] = arr[finish]) and (finish > 1) do
    dec(finish); dec(finish);
end;

function get_average(const arr: buffer;
         start, finish: integer): real;
var
  i: integer;
  s: real;
begin
  s := 0;
  for i := start to finish do s := s + arr[i];
  get_average := s / (finish - start + 1);
end;

var
  i, st, fn: integer;
const
  a: buffer = (1, 9, 4, 3, 5, 6, 8, 9, 9, 1);

begin
  sort(a, n);
  get_ranges(a, st, fn);
  writeln('average = ', get_average(a, st, fn) : 10 : 5);
end.

dry.gif Думать сам не хочешь? Больше ничего делать не буду - разбирайся сам ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.