Улучшить функцию улучшил я, но не знаю правильно или нет Опции

[maksimla]

Первичные данные целых чисел массив, элементы в массиве упорядочены возрастающем порядке. Функция Daug читает элементы и определяет число который больше всех в этом массиве находится. Если есть числа которые одинаковое число раз повторяются то в ответе любое должно быть.
Задание простое и логичное.

Код

const m = ...;
      n = ...;
type masyvas = array [m..n] of integer;
function Daug (a : masyvas) : integer;
var i, r,        
    k,          
    sk : integer;
begin
  r := a[m];
  sk := 1; k := 1;
  for i := m + 1 to n do
    begin
      if a[i] = a[i – 1]
        then begin
               k := k + 1;
               if k > sk
                 then begin
                        r := a[i];
                        sk := k
                      end
             end
        else k := 1
    end;
  daug := r
end;

Henry Ledgard писал что этот алгоритм пробовали улучшить сто людей но некто лучше нечего не придумал.
Но вы сто первый.
Попробуйте написать решение одной переменной, и одной управляемой структурой меньше.
Что это за структура управляемой?
Я вот изменил не много не знаю правильно или нет.

Код

const m = ...;
      n = ...;
type masyvas = array [m..n] of integer;
function Daug (a : masyvas) : integer;
var i,        
    k,          
    sk : integer;
begin
  Daug := a[m];
  sk := 1; k := 1;
  for i := m + 1 to n do
      if a[i] = a[i – 1]
        then begin
               k := k + 1;
               if k > sk
                 then begin
                        Daug := a[i];
                        sk := k
                      end
             end
        else k := 1
end;

Сообщение отредактировано: maksimla - 10.10.2009 18:54

[maksimla]

Написал что эта программа неелегантная .

  const m = ...;
          n = ...;
    type masyvas = array [m..n] of integer;

    function Daug(a : masyvas): integer;
    var
      i, j, sk : Integer;
    begin
      j := 1;
      sk := 0;
      Doug := a[m];
      for i := m + 1 to n do
        if (a[i] <> a[i-1]) and (i-j > sk) then begin
          sk := i-j;
          Daug := a[i-1];
          j := i;
        end;
    end;

а за эту другой так сделал поставил 8 балов.

И написал что надобыло сравнивать i элимент с i-sk элиментам.

я нетак написал эта программа друга который тамже учится в школе юного програмиста ему за эту программу поставили 8 баллов.

А мне что volvo сделал поставили 4 бала и написали что функция неелегантная и мне сказали что так нельзя использоватьпеременную функции и есть более элегантное решение.

Хоть мне и и моиму другу написали что что так нельзя использоватьпеременную функции. обсурд ему 8 а мне 4 балла

[Lapp]

обсурд ему 8 а мне 4 балла

Да уж, за неправильную программу 8 - это точно абсурд .

Короче, если у тебя еще есть возможность пересдать - разбирайся с вариантом в моем предыдущем посте. Это то, что тебе нужно - с двумя управляющими структурами и без дополнительных вычислений.