3Ds Max – «пионер» среди 3D редакторов, очень популярный инструмент, №1 в выборе многих начинающих и продвинутых специалистов. Занимает ведущие позиции в сфере дизайна и архитектурной визуализации. Часто используется в игровой индустрии.
Возможности:
моделирование на основе полигонов, сплайнов и NURBS,
мощная система частиц,
модуль волосы/шерсть,
расширенные шейдеры Shader FX,
поддержка новых и усовершенствованных механизмов Iray и mental ray.
анимация толпы,
импорт из Revit и SketchUp,
интеграция композитинга.
И многое другое.
Плюсы: огромный функционал, множество плагинов и обучающей информации.
Минусы: не так прост в освоении, «старожилу» требуются серьезные обновления.
function summdel(x:integer):integer; //результат - сумма делителей х var k,sum:integer; begin sum:=0; for k := 1 to x div 2 + 1 do if x mod k = 0 then sum:= sum+k; summdel:=sum; end;
begin writeln('Введите границы a,b '); readln(a,b); maxsumm := 1; max := 1; for i := a to b do begin if summdel(i) > maxsumm then begin maxsumm:= summdel(i); max := i; end; end; writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max) end.
3Ds Max – «пионер» среди 3D редакторов, очень популярный инструмент, №1 в выборе многих начинающих и продвинутых специалистов. Занимает ведущие позиции в сфере дизайна и архитектурной визуализации. Часто используется в игровой индустрии.
Возможности:
моделирование на основе полигонов, сплайнов и NURBS,
мощная система частиц,
модуль волосы/шерсть,
расширенные шейдеры Shader FX,
поддержка новых и усовершенствованных механизмов Iray и mental ray.
анимация толпы,
импорт из Revit и SketchUp,
интеграция композитинга.
И многое другое.
Плюсы: огромный функционал, множество плагинов и обучающей информации.
Минусы: не так прост в освоении, «старожилу» требуются серьезные обновления.
var a,b, I, maxsumm, max : integer;
function summdel(x:integer):integer; //результат - сумма делителей х
var k,sum:integer;
begin
sum:=0;
for k := 1 to x div 2 + 1 do
if x mod k = 0 then sum:= sum+k;
summdel:=sum;
end;
begin
writeln('Введите границы a,b ');
readln(a,b);
maxsumm := 1;
max := 1;
for i := a to b do
begin
if summdel(i) > maxsumm then
begin maxsumm:= summdel(i);
max := i;
end;
end;
writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
end.