Задача №6 - избавляемся от условных операторов

Страница 1 из 1
1

Даны два действительных числа. Требуется вывести большее из них. Простая задача. Но есть одно ограничение - запрещено использовать условные операторы 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 ]

Задача №6 - избавляемся от условных операторов

Страница 1 из 1
1

прикладная математика