Целечисленная арифметика

@bambino · Регистрация: 05.08.2010

Author24 — интернет-сервис помощи студентам

Всем привет.
Есть интересная задачка(как по мне): дано 2 числа(целых) вывести большее из них, используя только такие операции как + - * /, т. е. никаких if, for, деф. фу-ий, etc.
Зарание всем спасибо за участие)

@grizlik78 · 27.08.2011, 17:20

Ну как почему? На цлочисленном делении всё и основано. Я, правда, постеснялся спросить про div

@Thinker · 27.08.2011, 17:23

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

Все, нашел, только не понял почему при вещественных операциях ерунду выдает.

Pascal

var a,b,k:integer;
    c:real;
begin
a:=-6;
b:=5;
c:=(a+b+(4*(a-b)+3)/    (4*(a-b)+2)*2*(a-b)-(a-b)) / 2;
k:=(a+b+(4*(a-b)+3) div (4*(a-b)+2)*2*(a-b)-(a-b)) div 2;
writeln('c=',c:0:0);{вывод с=-6}
write('k=',k);{вывод к=5}
end.

Да, скобки совпадают, пардон

@Puporev · 27.08.2011, 17:28

Я специально так написал выражение под выражением, вроде все скобки совпадают...

@bambino · 27.08.2011, 21:51 **[ТС]**

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

Старайтесь не пользоваться он-лайн сервисами,

Ага, я уже все ссылки удалил и забыл, Советище просто(сарказм, как бэ)

@grizlik78 2381 / 1665 / 279 Регистрация: 29.05.2011 Сообщений: 3,399
	27.08.2011, 17:20	41
	Ну как почему? На цлочисленном делении всё и основано. Я, правда, постеснялся спросить про div 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.08.2011, 17:28	43
	Я специально так написал выражение под выражением, вроде все скобки совпадают... 0

@bambino 218 / 20 / 5 Регистрация: 05.08.2010 Сообщений: 229
	27.08.2011, 21:51 [ТС]	44
	Сообщение от Puporev Старайтесь не пользоваться он-лайн сервисами, Ага, я уже все ссылки удалил и забыл, Советище просто(сарказм, как бэ) 0

@bambino 218 / 20 / 5 Регистрация: 05.08.2010 Сообщений: 229
		1
	Целечисленная арифметика 26.08.2011, 22:48. Показов 2900. Ответов 43 Метки нет (Все метки) Всем привет. Есть интересная задачка(как по мне): дано 2 числа(целых) вывести большее из них, используя *только* такие операции как *+ - /**, т. е. никаких if, for, деф. фу-ий, etc. Зарание всем спасибо за участие) 0