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

@forsaken · Регистрация: 22.05.2011

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

вывести модуль числа числа типа A integer. не использовать циклов, условий и стандартных функций паскаля. только арифметические действия

@Puporev · 07.10.2012, 13:48

Pascal

uses crt;
var A:integer;
begin
clrscr;
write('Введите цедое число A=');
readln(A);
write('|A|=');
while A<-2*A do
A:=A-2*A;
write(A);
readln
end.

@CodeR · 07.10.2012, 14:12

Puporev,

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

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

@forsaken · 07.10.2012, 18:26 **[ТС]**

подскажите годный форум на котором смогут это решить.

@Puporev · 07.10.2012, 18:29

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

годный форум

Это должна быть твоя голова, иначе просто обман...

HighPredator · 07.10.2012, 21:03

Вот так можно:

Pascal

function MyAbs(x:integer):integer;
begin
  MyAbs:=(x-(x shr 15)) xor -(x shr 15);
end;

@SladkayaVata · 07.10.2012, 21:34

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

Вот так можно:

Pascal

function MyAbs(x:integer):integer;
begin
  MyAbs:=(x-(x shr 15)) xor -(x shr 15);
end;

Если можно использовать Shr тогда проще число A возвести в квадрат.. и вычислить из него корень Sqrt.... пфф. Нужно ведь только с арифметическими действиями + - / *

HighPredator · 07.10.2012, 21:39

Sqrt функция паскаля, которую по условию использовать нельзя.

@forsaken 0 / 0 / 0 Регистрация: 22.05.2011 Сообщений: 58
		1
	Вывести модуль числа, не используя циклов, условий и стандартных функций паскаля 07.10.2012, 10:12. Показов 3558. Ответов 7 Метки нет (Все метки) вывести модуль числа числа типа A integer. не использовать циклов, условий и стандартных функций паскаля. только арифметические действия 0

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,587 Записей в блоге: 1
	07.10.2012, 14:12	3
	Puporev, Сообщение от forsaken не использовать циклов, условий и стандартных функций паскаля. только арифметические действия 1

@forsaken 0 / 0 / 0 Регистрация: 22.05.2011 Сообщений: 58
	07.10.2012, 18:26 [ТС]	4
	подскажите годный форум на котором смогут это решить. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.10.2012, 18:29	5
	Сообщение от forsaken годный форум Это должна быть твоя голова, иначе просто обман... 1

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	07.10.2012, 21:39	8
	Sqrt функция паскаля, которую по условию использовать нельзя. 0