ZTEP BLOG

Мой блог от гугла

августа 03, 2008

найдено 310 комбинаций :- ) полный список на: cube2.htm
вот код рекурсии, мне он почему-то очень нравится =)

procedure getsum(from: integer; current: integer);
var i: integer;
begin
for i := from to 16 do
begin
if current + cube[i] = 33 then
begin
matr[i] := true;
print_new(matr);
matr[i] := false;
end;
if current + cube[i] < 33 then
begin
matr[i] := true;
getsum(i+1,current + cube[i]);
matr[i] := false;
end;
end;
end;

паскаль, потому что его, в отличии от других языков я знаю интуитивно и больше всего чуствую =)

июля 30, 2008

ZTEP cube

Сестра мамы ездила в Испанию и привезла сувенир на магните - магический квадрат
1 14 14 4
11 7 6 9
8 10 10 5
13 2 3 15
Как она сказала - есть 333 комбинации чисел, которые дают в сумме 33 =)
Я решил это проверить:
http://ztepler.googlepages.com/OUTPUT.HTM

Я допускаю ошибку в коде, но помоему комбинаций всего 105 =) Но это тоже немаленькая цифра )

Загрузить исходный код программы (pas)
Интересно, можно ли улучшить результат?

Кстати вот он сам, на холодильнике :- D

июля 10, 2008

Авторы