Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Задача №6 - избавляемся от условных операторов
Даны два действительных числа. Требуется вывести большее из них. Простая задача. Но есть одно ограничение - запрещено использовать условные операторы if, оператор case и тому подобное. Если сумеете решить задачу с двумя числами, то попробуйте сразу же написать программу и для трех чисел.
1 | Автор: admin | 2014-09-24, 16:46   |  Репутация: [ + 22 ]

Код
Program ElMpr_task6;
{OoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOo
  o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
  O░░Task░#6░░file:ElMpr_task6.pas░░==░░ver.1.0░░O
  o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
  O░░░░░░░░░░░░Decision of the task #6░░░░░░░░░░░O
  o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
  O░░©░Grankin░V.I.░Group░І-14-1░Date:░24/09/14░░O
  o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
  OoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOo}
var a,b,x,y: integer;
begin
      Readln(a,b);
      y := (a+b-abs(a-b)) div 2 ;
      x := (a+b+abs(a-b)) div 2 ;
      WriteLn(x,' не меньше ',y);
end.


El_Magnifico with <3
2 | Автор: El_MAgnifico | 2014-09-24, 19:21 | Изменено: El_MAgnifico - Ср, 2014-09-24, 19:30   |  Репутация: [ + 8 ]
Код
Program ira_butenko;
  var a,b: integer;
  begin
  Readln(a,b);
  WriteLn(b-(b-a)*integer(a>b),' не меньше ',a-(a-b)*integer(a>b));
  end.
3 | Автор: ira_butenko97 | 2014-10-18, 12:32   |  Репутация: [ + 4 ]
  • Страница 1 из 1
  • 1
Поиск: