Сгенерировать 1 и -1 случайным образом

@ValentinNemo · Регистрация: 15.01.2019

Понадобилось сгенерировать не число, а знак. Поэтому решил создать алгоритм, который генерирует случайным образом только число 1 или -1.
Получилось следующее:

Pascal

program Project1;
var
  a: integer;
begin
  randomize;
  case random(2) of
  0: a:= -1;
  1: a:= 1;
  end;
  writeln(a);
  readln;
end.

Алгоритм работает, но он использует оператор CASE.
Вопрос: есть ли алгоритм генерации чисел 1 и -1 реализованный проще?

@Puporev · 22.08.2019, 12:18

Pascal

const z:array[0..1] of integer=(-1,1);
var a:integer;
begin
randomize;
a:=z[random(2)];
write('a=',a);
end.

@volvo · 22.08.2019, 12:45

1 - 2 * random(2) тоже можно использовать...

@ValentinNemo · 22.08.2019, 17:04 **[ТС]**

volvo, спасибо! Это то что нужно.

Не по теме:

Я хочу приложение "Крестики-нолики" для обсуждения выставить. Говнокод - моего собственного сочинения. Как вы считаете, это в раздел Lazarus можно размещать?

@volvo Супер-модератор 32488 / 20974 / 8115 Регистрация: 22.10.2011 Сообщений: 36,243 Записей в блоге: 7
	22.08.2019, 12:45	3
	Сообщение было отмечено ValentinNemo как решение Решение `1 - 2 * random(2)` тоже можно использовать... 1

@ValentinNemo 2373 / 775 / 561 Регистрация: 15.01.2019 Сообщений: 2,394
	22.08.2019, 17:04 [ТС]	4
	volvo, спасибо! Это то что нужно. Не по теме: Я хочу приложение "Крестики-нолики" для обсуждения выставить. Говнокод - моего собственного сочинения. Как вы считаете, это в раздел Lazarus можно размещать? 0

Опции темы

Сгенерировать 1 и -1 случайным образом

Решение