Генерация случайных чисел от -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 убрать.

Новые блоги и статьи Все статьи Все блоги /
Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .	PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {
PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .	PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .	PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.

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

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

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

Опции темы