Вопросы

[Аватар]

То тебе повезло, они действительно не инициализируюся, по крайней мере в делфийском консольном приложении. Отключив оптимизацию проекта - обнуляются

[Poma][a]

А почему? Ведь они ж глобальные!!! (или нет?)

[Аватар]

Честно, не знаю, должны, но... Всегда инициализирую, если использую. Использую редко, обычно для переменных-констант

[Poma][a]

Абалдеть.. Спасибо большое за науку..
Впредь буду инициализировать всех и вся..

И тогда еще вопрос..
Есть код

var n : Int64;
WriteLn(3 shl (n-1))

Он при больших n косячит..
по логике нужно или приводить тип трехи.. и заводить для нее отдельную переменную бооольшого типа.. Но снова интересует наименьший по кол-ву символов вариант..

[Аватар]

X shl Y -> тип результата как у X. Сдвиг влево на Y mod (количество бит у типа X)

[Poma][a]

Ясненько..
Тоесть Write(Int64(n) shl (n-1))..
Большое спасибо!

[Poma][a]

Вечер Добрый.
Позвольте такой вопрос..

Пусть дана задача :
Пусть нам дан массив, упорядоченный по возрастанию..
И дано некое значение K.
Нужно найти элемент массива наиболее близкий к К.

Задача хорошо решается бинарным поиском (и с ним проблем нет)..
Но захотелось побаловаться тернарным поиском.. И тут уже косяк.. Поэтому прошу помощи..

var
   a : array [1..100000] of Integer;
   n : Integer;

function Srch(k : Integer) : Integer;
function f(t : Integer) : Integer;
begin
   f := Abs(a[t]-k)
end;

var
   l, r, m1, m2 : Integer;
begin
   l := 1; r := n;
   while l < r do begin
      m1 := l+(r-l) div 3;
      m2 := r-(r-l) div 3;

      if f(m1) > f(m2) then l := m1
      else r := m2
   end;
   Srch := l
end;

var
   k, i : Integer;

begin
   Read(n);
   for i := 1 to n do Read(a[i]);
     
   WriteLn(Srch(k))
end.

[Аватар]

Ромаха, где ввод k?

[Poma][a]

Ага.. Точно, случайно потер при удалении отладочной информации..
Но проблема не только в этом..

var
   a : array [1..100000] of Integer;
   n : Integer;

function Srch(k : Integer) : Integer;
function f(t : Integer) : Integer;
begin
   f := Abs(a[t]-k)
end;

var
   l, r, m1, m2 : Integer;
begin
   l := 1; r := n;
   while l < r do begin
      m1 := l+(r-l) div 3;
      m2 := r-(r-l) div 3;

      if f(m1) > f(m2) then l := m1
      else r := m2
   end;
   Srch := l
end;

var
   k, i : Integer;

begin
   ReadLn(n);
   for i := 1 to n do Read(a[i]);
   Read(k);
   WriteLn(Srch(k))
end.

[Аватар]

А так

      if f(m1) > f(m2) then begin
        if l=m1 then l:=m1+1 else l := m1;
      end
      else begin
        if r=m2 then r:=m2-1 else r := m2;
      end;