главный приз - признание форумчан.



задача: вводим три разные числа и надо найти максимальное но с выводом  номера числа. Например: вводим первое-1, второе-2, третье-3; вывод должен быть: наибольшее третье число.

примечание: если числа одинаковые это должно быть учтено, если максимальных чисел 2 это тоже должно быть учтено.

мое решение:

var
  a,b,c:integer;
begin
  write('введите 3 числа через пробел: ');
  read(a,b,c);
  if (a>b)and (a>c) then
    writeln('самое большое число введено первым')
    else
      if (b>c) and (b>a) then
       writeln('самое большое число введено вторым')
          else
            if (c>a) and (c>b)
              then writeln('самое большое число введено третьим')
                else
                  if (a=b) and (b=c) then
                    writeln('введенные числа равны');
                      if (a=b)and (a>c) then
                        writeln('самые больные числа - первое и второе ')
                          else
                            if (a=c)and (a>b) then
                              writeln('самые больные числа -  первое и третье')
                                else
                                  if (b=c) and (b>a) then
                                    writeln('самые больные числа - второе и третье');
end.

платформа PascalABC http://pascalabc.net

>>самые больные числа

порадовало

массив чисел, массив найденных индексов

(0)[главный приз - признание форумчан. ]
УГ твой паскаль, древний как гауно мамонта

что-то поздновато для сессии

А почему не 1С? разницы собственно никакой

(0) как минимум последнее условие лишнее, варианты окончились

(0) наколеночное творение:

А=1;
Б=2;
В=3;

Если А>Б Тогда
    Если А>В Тогда
        Сообщить("1");
    ИначеЕсли А=В Тогда    
        Сообщить("1 3");
    Иначе
        Сообщить("3");
    КонецЕсли;     
ИначеЕсли Б>В Тогда    
    Если А=Б Тогда
        Сообщить("1 2");
    Иначе
        Сообщить("2");
    КонецЕсли;
ИначеЕсли Б=В Тогда
    Если А=Б Тогда
        Сообщить("1 2 3");
    Иначе
        Сообщить("2 3");
    КонецЕсли;
Иначе    
    Сообщить("3");
КонецЕсли;

мой препод первое чего сделал-бы на приемке это ввел такие числа "0" "Х" "К"....

(8) я думаю, автор предполагал корректные данные, ибо это уже совсем другая задача

(9) писать защиту от дурака тоже надо уметь

(9) нормализация ввода в паскале - это ОБЯЗАНОСТЬ, по тому как язык имеет строгую типизацию.

(0) открой для себя массивы

м = макс(а,б,в);
т = "";
Если а = м тогда т = "1" конецЕсли;
Если б = м тогда т = т + " 2" конецЕсли;
Если в = м тогда т = т + " 3" конецЕсли;
сообщить(т);

Г = максимум(максимум(А,Б),В);
Если А= г тогда writeln('самое большое число А');
Если Б= г тогда writeln('самое большое число Б');
Если В= г тогда writeln('самое большое число В');

массивы нах, не наш метод :-)

и еще вариант ввода

"1" "1" "1"

(10)(11) я это прекрасно понимаю и считаю эту задачу проверки данных также важной, но ИМХО, эта задача тут боком

(17) + т.е. в принципе считывать число штатными средствами паскаля для лабораторной работы нельзя? и считывать строку, потом преобразовывать ее в число

оптимизация бывает разной
если на длину кода это одно
если на быстродействие, то кейс и наверное лучше не будет
если на ресурсы то ввод по одному и двумя переменными можно обойтись.

(8) если считавать readln("%d", А)
вроде не даст ввести не число

(19) Еще можешь добавить читаемость кода

(18)
давно в паскале работали? )
там жесткая типизация и нет графического интерфейса ...
раньше не было. Если это не делфи конечно.

(19)
*тремя , количество дублей нужно хранить

(22) если вместо числа ввести строку, программа вылетит. у нас преподы действительно могли ввести строку вместо числа. но не для лабораторной работы, это должна быть курсовая

(24)программа не вылетит ... если использовать правильные директивы

(24)
я уже не помню ничего ...

var
  a,b,c:integer;

read(a,b,c);

а даст ввести буквы?

Решение масштабируемое на любое количество чисел со сложностью О(N)

const N=3
var i,max :integer;
a:array[1..N] of integer;
begin
writeln('введите три числа');
for i:=1 to N begin
   readln(a[i]);
   if a[i]>max then
         max:=a[i];
end;
for i:=1 to 3 if a[i]=max then writeln(i);
end

тс хитроопый студент, которому задали задачку, разводит

(25) видимо да. но по крайней мере буквы с консоли будут вводиться всегда, независимо от директив
(26) вот специально скачал turbo pascal, ввел букву вместо цифры, нажал enter. Error 106: Invalid numeric format

(25) у Турбо паскаля точно есть такая директива? может у Борланда конечно сделали, но у Турбо мало чего на Compiler Options есть

(0) Однако не быть тебе программистом.

+31 Мыслишь только категориями "Если - то".

Настоящий программист мыслит алгоритмами.

(32) всегда должен быть вариант Иначе?

(30)точно ... у них различия были в другом

(34) Речь не о том. Код не должен быть перегружен конструкциями "Если - то - иначе". Достаточно сравнить (0) и (27). В (27) четко прослеживается алгоритм:

1. Ввести числа.
2. Найти максимальное.
3. Показать максимальные числа.

Т.е. есть определенный порядок (он как известно начинается в голове). В (0) порядка нет. Сплошные "если"...

в (27) есть недоделки, а именно нет первоначального определения max (но при этом всё будет работать из среды, но выдаст ошибку при работе в EXE, компилятор очищает переменные при инициализации), ну и в последнем цикле опечатка 3 вместо N

(37) Я аналитик, а не программист. Подал идею реализации, а дальше пусть программеры дошлифовывают

+36 Если мне, как преподавателю, принесли алгоритм как в (0). Я бы попросил решить эту задачу для 10 значений. Потом для 20ти. Потом для 100... Пока автор не начнет мозг напрягать.

Задача фигня - есть интересней, как мне кажется:

Даны 2 числа (любые!!!). Нужно определить какое из них больше, но при этом ЗАПРЕШЕНО использовать операторы сравнения (функции макс, мин, свитч и так далее тоже нельзя).

Язык реализации любой (паскаль, си, ява, 1С...)

(40) баян, не интересный

(41) Ну если знаешь решение, то не подсказывай. Остальные пусть подумают.

а вот так эта задача решается на python

b = [a.index(x) for x in a if x == max(a)]

почувствуйте разницу

(43) почти никакой

(44) с (27) никакой. но какова выразительность языка!

(40) Сортировать() - не оператор сравнения

(46) тогда и Макс не оператор сравнения

(43) тут еще недочет, операция max имеет сложность О(n), и она у тебя она вызывается в цикле по n. В итоге, хоть это выражение и записывается так просто, оно будет иметь сложность o(n^2).
Так что на больших массивах выгоднее будет пожертвовать красотой и определить-запомнить max за границами цикла

(47) mzelensky говорит, что это функция

(49) ну он еще говорит, что "и так далее тоже нельзя"

(50) может, он нам ещё складывать запретит? постановка задачи некорректна имхо

(51) постановка скорее корректна, вот только решения в рамках 1С нет
в Джава вроде есть за счет битовых операторов
http://habrahabr.ru/post/124878/

(51) Давай не будем ЛЯ-ля!!! Как ты сделаешь сортировку без сравнения? Покажи!

Если ты явно не вызываешь операторы сравнения, то это еще не значит ,что метод "Сортировать" их не вызывает, а это по условию задачи - запрещено!

(40)
Середина = (А+Б)/2;
МодульРазности = Pow(Pow(А-Б,2),0.5);
Результат = Середина+МодульРазности/2;

(52) Тут подвох. Побитовые операции ни при чем.
Выражение x*'Y' имеет внутри языка реализацию в виде цикла по x с выводом 'Y'. Любой цикл имеет внутри условие выхода из него.
Т.е. в данном случае в выражении используются условное сравнение скрытое в реализации оператора.

(53) функция, возвращающая максимум из двух чисел есть. миниму тоже. поменять местами два элемента массива без сравнения можно. а что там находится внутри Сортировать(), мне не интересно ;)

+(56) мало ли где встретится какой-нибудь je или jne ;)

(55) ошибаешься, там арифметическое умножение

(58) А, точняк

(56) Чувак, не тупи - сегодян не пятница. Написано же:

ЗАПРЕШЕНО использовать операторы сравнения функции макс, мин, свитч и так далее тоже нельзя.

Какой нафиг:

"функция, возвращающая максимум из двух чисел есть. миниму тоже"

(60) 1. плохо написано, не доходит
2. хорошо, нет. можно создать

(54) Что-то до меня не доходит что в "результате" должно получиться.

Например при

А = -10
Б = 5,6

(62) 5.6 должно получиться

Тогда аналог побитовой операции x>>1 в 1с будет
Цел(x/2), а аналогом а^b будет
Рез=0;
bitA = a-2*Цел(a/2);
a=Цел(a/2);
bitB = b-2*Цел(b/2);
b=Цел(b/2);
Рез=Рез+(bitB*bitB-bitA*bitA)*(bitB*biB-bitA*bitA);
bitA = a -2*Цел(а/2);
а=Цел(а/2);
... и т.д, 8 раз для каждого бита

(64) это к 52

(62) Я просто не помню что делает "Pow("

Мы так делали:

Попытка
Результат = Sqrt(А-Б);
Сообщить("А больше")
Исключение
Сообщить("Б больше")
КонецПопытки;

(66) используется условие в реализации оператора, незачет

(66) Pow это степень

(67) в попытке есть условие?

(69) Да, условие вида Если счетчикОшибок>0 в реализации оператора

(69) в попытке есть поднятие исключения, условие на которое проверяется, заходить в ветвь Исключение или нет

(16) может сразу:
х у @

эту ссылку уже кидали? http://projecteuler.net/

(73) первая же задача, а там надо программировать или математику использовать?

(73) интересные задачки, пощелкаем

а чего там интересного ... просто ради любопытства первую задачку прочитал ... там она из учебника для школьников 8 или 9 класса ...

(0) Звиздец! Цель оптимизации кода какая?!

Учитывая что всего три числа, то применение хитрых алгоритмов здесь нецелесообразно. Тупая задача.

Бред. А не судьба обойти 1 раз все 3 числа, потом второй раз просто сравнить и вывести те которые равны максимальному?

var a,m,i:integer;
var s:string;
begin
   read(a);
   m:=a;
   s:="1";
   for i:=2 to 3 do
   begin
        read(a);
        if a=m then s:=s+","+chr(ord('0')+i) else
           if a>m then
              begin
                  m:=a;
                  s:=chr(ord('0')+i);
              end;
   end;
   writeln(s);
end.

Виноват,
var a,m,i:integer;
var s:string;
begin
   read(a);
   m:=a;
   s:='1';
   for i:=2 to 3 do
   begin
        read(a);
        if a=m then s:=s+','+chr(ord('0')+i) else
           if a>m then
              begin
                  m:=a;
                  s:=chr(ord('0')+i);
              end;
   end;
   writeln(s);
end.

(80) (81) - ошибка. В условии вывести все максимальные числа.

(82) В условии - вывести их порядковые номера.

(83) примечание: если числа одинаковые это должно быть учтено, если максимальных чисел 2 это тоже должно быть учтено.

(3) Теорема Пифагора старше ;)

(84) Ну и? У меня всё это учтено. Еще раз прочитай задание, и посмотри что у меня выводит.

(86) все верно, видимо поздно очень было.