Интересные интересности и задачи/головоломки

[Вадим Мошев]

А если массивы статические?
А вообще, хорошее решение.

[Poma][a]

Дык это же сортировка слиянием..

k1 := 1; k2 := 1;
for i :=  1 to Length(a)+Length(b) do
    if a[k1] < b[k2] then 
       Write(a[k1++], ' ') // некий симбоиз Паскаля и Си
   else Write(b[k2++], ' ')

И учесть конец..
(например поставить барьерный элемент = +inf)

UPDATE

Диагональ квадрата 1 х 1 см.

Совершенно верно.. Можно еще в прямоугольном треугольнике со сторонами 1,1

[type_Oleg]

Сообщение от Вадим Мошев

А если массивы статические?

Ну, может быть, писать NaN вместо выбранного. И добавлять проверку при каждом выборе min: не NaN ли элемент?

[Аватар]

const a: array [0..2] of Integer  = (1,3,5);
      b: array [0..1] of Integer  = (2,4);
var ia,ib: Integer;
begin
  ia:=0; ib:=0;
  while (ia<=High(a)) or (ib<=High(b)) do
    if ia>High(a)        then begin Memo1.Lines.Add(IntToStr(b[ib])); Inc(ib); end
    else if ib>High(b)   then begin Memo1.Lines.Add(IntToStr(a[ia])); Inc(ia); end
    else if a[ia]<=b[ib] then begin Memo1.Lines.Add(IntToStr(a[ia])); Inc(ia); end
                         else begin Memo1.Lines.Add(IntToStr(b[ib])); Inc(ib); end;
end;

[Sibedir]

Эта канэц, Свэта.jpg
То, что это не конец света, это понятно. Но не станет ли это концом Цштвщцы?

Кстати, всем привет.

---------------------------------------------------------------------------------------------------------
ПО ТЕМЕ СОРТИРОВКИ

var
  a, b, A1, A2: TIntArray;
  i1, i2: Integer;
begin
// ---------------------------------------------------------------
  a := NewIntArray (Count=3, 1, 3, 6   ); // :)
  b := NewIntArray (Count=4, 2, 3, 4, 5); // :)
// ---------------------------------------------------------------
  if a[High(a)] > b[High(b)] then begin A1 := a; A2 := b; end
                             else begin A1 := b; A2 := a; end;
// ---------------------------------------------------------------
  i1 := Low(A1); i2 := Low(A2);
  while i1 <= High(A1) do
    if (i2 > High(A2)) or (A1[i1] < A2[i2])
      then begin    Memo1.Lines.Add (IntToStr(A1[i1]));    Inc(i1);    end
      else begin    Memo1.Lines.Add (IntToStr(A2[i2]));    Inc(i2);    end;
end;

Pascal'я под рукой нет (да не совсем это и паскаль), так что мог накосячить, но думаю мысль ясна (антикузмапрутковское решение - зрим в конец).

[Poma][a]

Pascal'я под рукой нет

ideone

Задачка : Опишите функцию sign, которая вернет 1, если число > 0, -1 при аргументе меньшем 0, и 0 при нуле.. (желательно или Паскале- или Си- подобный синтаксис..)

[Arigato]

Сообщение от Poma][a

Задачка : Опишите функцию sign, которая вернет 1, если число > 0, -1 при аргументе меньшем 0, и 0 при нуле.. (желательно или Паскале- или Си- подобный синтаксис..)

В чем загвоздка? Сделать без условных операций или как?

[BDA]

return (a > 0) ? 1 : ((a < 0) ? -1 : 0);
В чем прикол?)

UPD
Для целых
return a / (abs(a) + 1 / (abs(a) + 1));

[Poma][a]

В чем загвоздка? Сделать без условных операций или как?

Именно.. (черт.. забыл сказать.. простите..)

В чем прикол?)

Без условных..

[Аватар]

Ord(i>0)-Ord(i<0)