Простая задача

[vit_galina]

Сообщение от utyyf

Помогите, злой препод совсем замучал Паскалем:

Требуется в заданном трехзначном числе переставить цифры так, чтобы получилось максимально возможное. Никаких "если - то" использовать нельзя (линейный алгоритм должен быть)!

Всего будет 6 значений:
n1 := z div 100;
n2 := (z mod 100) div 10;
n3 := z mod 10;
z1:=z;
z2:=n1*100+n3*10+n2;
z3:=n2*100+n1*10+n3;
и т.д.
Может после вычисления цифр числа, вывести их все на экран и определять визуально?
если не вычислять эти числа z, то вывод будет
Writeln(' hisla : ');
Writeln(n1:1,n2:1,n3:1);
Writeln(n1:1,n3:1,n2:1);
Writeln(n2:1,n1:1,n3:1);
Writeln(n2:1,n3:1,n1:1);
Writeln(n3:1,n1:1,n2:1);
Writeln(n3:1,n2:1,n1:1);

Интересно как можно выбрать большее не сравнивая значения?

[mutabor]

result:=n1*100+n2*10+n3

это правильно, чтоб обратно цифры в трехзначное число собрать, и все таки мне кажется не нужно разлаживать, тут либо формула либо еще какая-то хитрость математическая

P.S. вот только причем тут программирование
он случайно не бывший учитель математики?

[utyyf]

Сообщение от vit_galina

Может после вычисления цифр числа, вывести их все на экран и определять визуально?
если не вычислять эти числа z, то вывод будет
Writeln(' hisla : ');
Writeln(n1:1,n2:1,n3:1);
Writeln(n1:1,n3:1,n2:1);
Writeln(n2:1,n1:1,n3:1);
Writeln(n2:1,n3:1,n1:1);
Writeln(n3:1,n1:1,n2:1);
Writeln(n3:1,n2:1,n1:1);

Интересно как можно выбрать большее не сравнивая значения?

Нет, должен появиться один ответ - МАКСИМАЛЬНО возможное
P.S. Кстати, этот препод говорил, что лет пять назад он енту задачу на контрольную давал (для тех, кому хочется иметь "5"). Следил чтоб не списывали - решило больше половины человек и даже решения были разные.

[utyyf]

Сообщение от mutabor

это правильно, чтоб обратно цифры в трехзначное число собрать, и все таки мне кажется не нужно разлаживать, тут либо формула либо еще какая-то хитрость математическая

P.S. вот только причем тут программирование
он случайно не бывший учитель математики?

Когда-то вел математику (в классе коррекции) Я в том классе не учился - может тогда решил бы.

[Stilet]

Интересно как можно выбрать большее не сравнивая значения?

Если есть два числа то максимум из них можно получить математически :
n1- первое чило
n2- второе число

a:=(n1+n2);
z:=(a-abs(n1-n2)) div 2;
Result_Max_From_n1_n2:=a-z;

Намек ясен?

[utyyf]

Сообщение от Stilet

Если есть два числа то максимум из них можно получить математически :
n1- первое чило
n2- второе число

a:=(n1+n2);
z:=(a-abs(n1-n2)) div 2;
Result_Max_From_n1_n2:=a-z;

Намек ясен?

Спасибо! Дальше все ясно и понятно!!!

[utyyf]

Сообщение от Stilet

Если есть два числа то максимум из них можно получить математически :
n1- первое чило
n2- второе число

a:=(n1+n2);
z:=(a-abs(n1-n2)) div 2;
Result_Max_From_n1_n2:=a-z;

Намек ясен?

А так, наверно, быстрее:
Result_Max_From_n1_n2:=(n1+n2+abs(n 1-n2)) div 2; ???

[Stilet]

нуну. Как напишеш покажи, мне тоже интересно, чем там у вас в универе
кормят

А так, наверно, быстрее:

)) Ну вижу что понял. Действуй потом отчитайся, еси не секрет

Result_Max_From_n1_n2:=(n1+n2+abs(n 1-n2)) div 2; ???

Нет! Еще раз посмотри на то что я написал!

[utyyf]

Сообщение от Stilet

нуну. Как напишеш покажи, мне тоже интересно, чем там у вас в универе
кормят

Какой тут универ? - 9-й класс!!!
Он на нас наехал, что домашку не делаем - навалил задач и сказал, что на контрольной по линейным даст любую из них наугад. У меня тут много таких.

[Stilet]

Круто!

P.S. Еще раз внимательно прочти мой пост с решением, ибо ты там знак не тот поставил в 17-м посте.