Генерация случайных чисел от -10 до 10 и подсчет сколько в этой последовательности чисел происходило смен знака

@Cyberford · Регистрация: 26.12.2019

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

Компьютер последовательно генерирует 100 случайных чисел в диапазоне от -10 до 10.Подсчитать сколько в этой последовательности чисел происходила смена знака.

@JuriiMW · 26.12.2019, 07:01

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  i, n, p, count : Integer;
begin
  count := 0;
  n := Random(21)-10; Write(#32,n);
  for i := 1 to 9 do
    begin
      p := n; n := Random(21)-10; Write(#32,n);
      if (p*n <= 0) then inc(count);
    end;
  WriteLn; WriteLn(count);
end.

@Cyborg Drone · 29.12.2019, 09:33

JuriiMW, неверное решение. Каждые два подряд идущих ноля у Вас считаются за смену знака.

Не инициализируется генератор псевдослучайных чисел. Генерируется 10 чисел вместо 100.

Ну и... Чистая формальность. Ноль не имеет знака. Вопрос на засыпку: а можно ли считать пропажу или обретение знака числа сменой знака числа? Ответ: нельзя по определению, поскольку пропажа или обретение чего-либо не является сменой этого чего-либо. Тогда что делать, если в последовательности есть хоть один ноль? Ответ: считать пропажу или возникновение знака тем, чем они и являются. Иными словами, в Вашей программе в строке 9 неравенство должно быть строгим.

Правильно будет, например, так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  i, n, p, count : integer;
 
begin
  randomize;
  count := 0;
  n := 0;
  for i := 1 to 100 do
    begin
      p := n;
      n := -10 + random(21);
      write(n:4);
      if p * n < 0 then inc(count)
    end;
  writeln;
  writeln(count);
  readln
end.

С другой стороны, одну из форм функции Хевисайда

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \operatorname{sign}(x)=\left{ \begin{array}{rl}-1 & \text{, if } x\,<\,0\\ 0 & \text{, if } x=0\\ 1 & \text{, if } x\,>\,0 \end{array}\right.<br />$

считают знаком числа.

Если принять функцию sign(x) за знак числа, тогда так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  i, n, p, count : integer;
 
begin
  randomize;
  count := 0;
  n := -10 + random(21);
  write(n:4);
  n := ord(n > 0) - ord(n < 0);
  for i := 2 to 100 do
    begin
      p := n;
      n := -10 + random(21);
      write(n:4);
      n := ord(n > 0) - ord(n < 0);
      inc(count, ord(p <> n))
    end;
  writeln;
  writeln(count);
  readln
end.

@bormant · 02.01.2020, 08:35

Cyborg Drone,
для иллюстрации:
1) -1 0 ... 0 1: пожалуй, одна смена знака была
2) -1 0 ... 0 -1: а тут ее не было

Если не учитывать нули, можно получить именно такой результат.

Добавлено через 9 минут

Pascal
6
7
8
9
10
11
12
  for i := 1 to 100 do begin
    if n <> 0 then p := n;
    n := -10 + Random(21);
    Write(n:4);
    n := Ord(n > 0) - Ord(n < 0);
    Inc(count, Ord(p * n < 0));
  end;

@Cyborg Drone · 02.01.2020, 09:52

bormant, о таком варианте с дистанцированной сменой знака я как-то не подумал... Если числа не слишком большие, можно ещё строку 10 убрать.

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@Cyberford 0 / 0 / 0 Регистрация: 26.12.2019 Сообщений: 2

	Генерация случайных чисел от -10 до 10 и подсчет сколько в этой последовательности чисел происходило смен знака 26.12.2019, 04:47. Показов 1766. Ответов 4 Метки нет (Все метки) Компьютер последовательно генерирует 100 случайных чисел в диапазоне от -10 до 10.Подсчитать сколько в этой последовательности чисел происходила смена знака. 0

@Cyborg Drone Модератор 10411 / 5698 / 3401 Регистрация: 17.08.2012 Сообщений: 17,351
	02.01.2020, 09:52
	bormant, о таком варианте с дистанцированной сменой знака я как-то не подумал... Если числа не слишком большие, можно ещё строку 10 убрать. 0