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

[alexander13]

Эм.. тоже что ли что-нибудь спросить.. Ну вот, например.. совсем легко: нужно по номеру года определить век, не используя при этом условного оператора.

[Poma][a]

эм..

(N div 100) + 1

?
Интересно.. А куда же можно впихнуть развилку ?

[alexander13]

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

эм..
?
Интересно.. А куда же можно впихнуть развилку ?

А как быть с 1900 годом? =)
Ну, ведь 20 век начинается в 1901, 21 - в 2001 и т. д.

[Poma][a]

Ну, ведь 20 век начинается в 1901, 21 - в 2001 и т. д.

Да? Хм.. Не знал Спасибо, просветили.
Ну тогда вставить вот такую ужасную строчку :

	
	
(n div 100) + 1 - Ord(n mod 100 = 1)

Мне это не нравится.. Но других идей пока нет..

[BDA]

Хм, может (N - 1) div 100 + 1?

[MihalNik]

Вообщем господа, приношу свои извинения

А я уж было решил для общего случая: в какой-нибудь системе счисления max{A,B}! )))
Век просто: (n + 99) div 100, но тип задачек очень полезный)

[Poma][a]

(n + 99) div 100

Точняк!! Добиваем до следующего столетия и уже делим!

(N - 1) div 100 + 1?

Точняк!!

[alexander13]

BDA, MihalNik, да, верно.
Я ведь говорил, что это совсем легко =)

[Sibedir]

Эта задачка сродни округления в большую сторону. А вот интересно, как оптимальнее всего (возможно тоже без условных операторов) решить задачку округления в большую сторону числа типа Double? У меня пока что-то типа этого получилось:

var
  r: Double;
  i: Int64;
begin
  r := StrToFloat (Edit1.Text);
  i := Trunc (r);
  if r-i > 0 then Inc(i);
  Edit2.Text := IntToStr (i);
end;

Округление до 1000 типа Integer может выглядеть так:

var
  i: Integer;
begin
  i := StrToInt (Edit1.Text);
  i := ((i + 999) div 1000) * 1000;
  Edit2.Text := IntToStr (i);
end;

Но для вещественных чисел это не годится. Приходится использовать дополнительные регистры, 'разнотипную' математику и операцию сравнения. Хотя может дешевле и не получится.

[Аватар]

i := Trunc(r)+Integer(Frac(r)>0);