Как сгенерировать 2 четырехзначных числа?

@Андрей1926 · Регистрация: 18.03.2015

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

Помню года 3 назад баловался рандомами интежеров, но сейчас почему-то не могу понять как сгенерить интежер. Знаю только как генерить real....

надо сгенерить 2 числа (0,4000) и вывести на экран.

@Андрей1926 · 27.06.2023, 01:23 **[ТС]**

7alek7, да про скобку я быстро собразил... Ток не с первого раза...

Добавлено через 1 минуту
Ребус называется "Cуть детской арифметки для первоклассника. Задача для эвм. Turbo Pascal."

Добавлено через 7 минут
XzzzX, Че? Чегоо...

Возвращает же в зависимость от низа и верха диапазона. Типа (3,8).

Но еще есть влияние таймера часов как мне обьясняли на этом форуме... Кажется Пупорев мне говорил когда я с рандомами тупил на паскале. Вроде влияет сумма цифр на часах в момент срабатывает функции рандом.

8:16:41 = 8 + 1 +6 +4+ 1= 20... Ноль мы убираем, а вот что делать с этой двойкой хз...

Не претендую на инфу 100%. А вообще все-таки претендую но хз как работает на самом деле... Надо у каких-нибудь этих ассемблерщиков спрашивать как работает рандом и как он опредялет конечную цифру...

Для человека разумного это довольно сложно. Это надо высшее иметь по прогрмированию.

Добавлено через 1 минуту
Alvico, да-да, точно вы верно говорите про таймер... Только я рассеян и не сразу прочел.

Добавлено через 1 минуту
XzzzX, сколько строк кода столько и вариантов цифры в рандоме... Да чушь...

@XzzzX · 27.06.2023, 07:03

Андрей1926, тот же самый Alvico объяснил, что я просто стебусь

@Sun Serega · 27.06.2023, 10:43

Сообщение от Андрей1926

Вроде влияет сумма цифр на часах в момент срабатывает функции рандом

??? Отуда вы это взяли? Пуроев такую глупость вряд ли сказал бы.
И высшее образование тут не при чём. Вам доступен весь исходный код. Часть на паскале, Ctrl+тык на имена в коде. Часть на C# на сайте referencesource - там прекрасный поиск. Было бы желание посмотреть.

@Cyborg Drone · 27.06.2023, 11:06

Sun Serega, никакая не глупость, Пупорев так просто ничего не говорил. К примеру, реализация randomize в Free Pascal для Windows:

Assembler
1
2
3
4
5
6
7
# SYSTEM_$$_RANDOMIZE 
lea    -0x28(%rsp),%rsp
callq  0x100001020 <__$dll$kernel32$GetTickCount>
mov    %eax,0x71a0(%rip)        # 0x10000f010 <U_$SYSTEM_$$_RANDSEED>
nop
lea    0x28(%rsp),%rsp
retq

Да-да, как видите, GetTickCount.

Можно ещё и в других реализациях randomize, в том числе, для других языков покопаться. Сплошь и рядом чтение времени. Как правило, если используется просто randomize, а не не randomize(n), то начальное число подсаливается временем. А то и вовсе является временем. Обычно с точностью до одной секунды.

Проверяем:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses
  crt;
var
  i: integer;
begin
  for i := 1 to 5 do
    begin
      randomize;
      writeln(random(1000000000))
    end;
  delay(2000);
  for i := 1 to 5 do
    begin
      randomize;
      writeln(random(1000000000))
    end;
  readln
end.

Прогон программы420134122
420134122
420134122
420134122
420134122
148295838
148295838
148295838
148295838
148295838

@Sun Serega · 27.06.2023, 11:24

Это Randomize, в данном языке тоже используются тики из DateTime.Now.
Но сказано было

Сообщение от Андрей1926

в момент срабатывает функции рандом

По моему это может значить только получение рандомного числа.

@Cyborg Drone · 27.06.2023, 11:27

А, да. Перепутал. При random время не считывается.

Извиняюсь.

@bormant · 28.06.2023, 08:51

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

В древнепаскальском каждая программа с random обязательно содержала в начале строку randomize(timer)

Путаете с C/C++/Basic. В древнепаскальском у Randomize нет аргументов ;-)

@Alvico · 28.06.2023, 09:17

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

В древнепаскальском у Randomize нет аргументов ;-)

Охотно верю. Я на древнепаскальском писал последний раз (кроме каких-то школьных задачек, конечно) примерно так в году 1995 ...

@Андрей1926 · 02.07.2023, 03:13 **[ТС]**

Сообщение от Cyborg Drone

Sun Serega, никакая не глупость, Пупорев так просто ничего не говорил. К примеру, реализация randomize в Free Pascal для Windows:

Assembler
1
2
3
4
5
6
7
# SYSTEM_$$_RANDOMIZE 
lea    -0x28(%rsp),%rsp
callq  0x100001020 <__$dll$kernel32$GetTickCount>
mov    %eax,0x71a0(%rip)        # 0x10000f010 <U_$SYSTEM_$$_RANDSEED>
nop
lea    0x28(%rsp),%rsp
retq

Да-да, как видите, GetTickCount.

Можно ещё и в других реализациях randomize, в том числе, для других языков покопаться. Сплошь и рядом чтение времени. Как правило, если используется просто randomize, а не не randomize(n), то начальное число подсаливается временем. А то и вовсе является временем. Обычно с точностью до одной секунды.

Проверяем:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses
  crt;
var
  i: integer;
begin
  for i := 1 to 5 do
    begin
      randomize;
      writeln(random(1000000000))
    end;
  delay(2000);
  for i := 1 to 5 do
    begin
      randomize;
      writeln(random(1000000000))
    end;
  readln
end.

Прогон программы420134122
420134122
420134122
420134122
420134122
148295838
148295838
148295838
148295838
148295838

Cyborg Drone, чет не пойму как цитировать...

А почему нельзя сразу 10 раз прогнать?

И да... Вот эта фигня не работает...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
//programm _t00moon.karm.firemoon.spcia
 
uses crt, graphabc;
//sounds; //system;
 
begin
 
    Var b,x,i,o: real;;
    
    writeln(4000,3000,random(4000),random(4000));
    
    b:=random(0,4);
    x:=random(0,5);
    i:=random(0,6);
    
     writeln(b);
     writeln(x);
     writeln(i);
     
       o:=33340;
end.
 
 
     //var r,g,b,o,s,s2,a;
     
     //s2:=16;
    // s:=64;
      //a:=8:
    // o:=32;
    
     // r:=256;
     // g:=256;
     // b:=256;

@Sun Serega · 02.07.2023, 08:44

Что значит это ваше "не работает"? У меня всё работает. Криво, но так как вы написали.
И куда вы пихаете CRT (для консоли) и GraphABC (для графики) в одну программу? При чём оба модуля уже давно устарели...

@Alvico · 02.07.2023, 08:56

Не понимаю, для чего в теме PascalАВС.NЕТ муссировать этот randomize? Он вообще в обычных условиях не используется, только в отладке. Какая разница, как именно там этот датчик ПСЧ инициализируется, если все нормально работает?

Эти рассуждения напоминают мне древний анекдот про мужика, который жаловался на тяжкую жизнь, потому что каждый раз, когда он влезал на шкаф в своей комнате, чтобы заглянуть в окно дома напротив, падал и ушибался.

@Андрей1926 · 11.07.2023, 06:00 **[ТС]**

Sun Serega, графабц устарел?

Добавлено через 1 минуту
Sun Serega, не выводит текст... Ошибки выводит.

@Sun Serega · 11.07.2023, 09:58

Сообщение от Андрей1926

графабц устарел?

Да, используйте GraphWPF.

Сообщение от Андрей1926

не выводит текст... Ошибки выводит.

Вы про что вообще? И почему не кидаете сразу код и точные тексты ошибок?

@mr-Crocodile · 11.07.2023, 11:51

Сообщение от Андрей1926

не выводит текст... Ошибки выводит.

Ты, наверное, через write/writeln текст в графическом режиме вывести пытаешься?
Это неправильно.

используй процедуру textout() или DrawTextCentered() - подробнее смотри в справке - тут

например.

Pascal
1
2
3
4
uses GraphABC;
begin
  textout(20,70,'Привет от старых штиблет!');
end.

@thyrex · 11.07.2023, 16:52

Прекрасно работают write и writeln в графическом режиме.

@Sun Serega · 11.07.2023, 22:20

Да и нечего начинать гадать этому ТС, а то он так никогда не научится вопросы задавать...

@Андрей1926 · 16.07.2023, 02:00 **[ТС]**

Добавлено через 1 минуту
mr-Crocodile, граф забыл стереть

Добавлено через 5 минут
Все работает, там внезапно в середине был лишний энд. Хз че он в середине делал.

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@Андрей1926 123 36 / 0 / 1 Регистрация: 18.03.2015 Сообщений: 221

	Как сгенерировать 2 четырехзначных числа? 20.06.2023, 11:29. Показов 2294. Ответов 36 Метки генерация чисел (Все метки) Помню года 3 назад баловался рандомами интежеров, но сейчас почему-то не могу понять как сгенерить интежер. Знаю только как генерить real.... надо сгенерить 2 числа (0,4000) и вывести на экран. 0

@Андрей1926 123 36 / 0 / 1 Регистрация: 18.03.2015 Сообщений: 221
	27.06.2023, 01:23 [ТС]
	7alek7, да про скобку я быстро собразил... Ток не с первого раза... Добавлено через 1 минуту Ребус называется "Cуть детской арифметки для первоклассника. Задача для эвм. Turbo Pascal." Добавлено через 7 минут XzzzX, Че? Чегоо... Возвращает же в зависимость от низа и верха диапазона. Типа (3,8). Но еще есть влияние таймера часов как мне обьясняли на этом форуме... Кажется Пупорев мне говорил когда я с рандомами тупил на паскале. Вроде влияет сумма цифр на часах в момент срабатывает функции рандом. 8:16:41 = 8 + 1 +6 +4+ 1= 20... Ноль мы убираем, а вот что делать с этой двойкой хз... Не претендую на инфу 100%. А вообще все-таки претендую но хз как работает на самом деле... Надо у каких-нибудь этих ассемблерщиков спрашивать как работает рандом и как он опредялет конечную цифру... Для человека разумного это довольно сложно. Это надо высшее иметь по прогрмированию. Добавлено через 1 минуту Alvico, да-да, точно вы верно говорите про таймер... Только я рассеян и не сразу прочел. Добавлено через 1 минуту XzzzX, сколько строк кода столько и вариантов цифры в рандоме... Да чушь... 0

@XzzzX 405 / 280 / 120 Регистрация: 09.07.2021 Сообщений: 1,017 Записей в блоге: 1
	27.06.2023, 07:03
	Андрей1926, тот же самый Alvico объяснил, что я просто стебусь 0

@Cyborg Drone Модератор 10478 / 5772 / 3413 Регистрация: 17.08.2012 Сообщений: 17,533
	27.06.2023, 11:27
	А, да. Перепутал. При random время не считывается. Извиняюсь. 1

@Sun Serega 2357 / 1460 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	02.07.2023, 08:44
	Что значит это ваше "не работает"? У меня всё работает. Криво, но так как вы написали. И куда вы пихаете CRT (для консоли) и GraphABC (для графики) в одну программу? При чём оба модуля уже давно устарели... 1

@Alvico 100 / 74 / 21 Регистрация: 12.04.2017 Сообщений: 269
	02.07.2023, 08:56
	Не понимаю, для чего в теме PascalАВС.NЕТ муссировать этот randomize? Он вообще в обычных условиях не используется, только в отладке. Какая разница, как именно там этот датчик ПСЧ инициализируется, если все нормально работает? Эти рассуждения напоминают мне древний анекдот про мужика, который жаловался на тяжкую жизнь, потому что каждый раз, когда он влезал на шкаф в своей комнате, чтобы заглянуть в окно дома напротив, падал и ушибался. 1

@Андрей1926 123 36 / 0 / 1 Регистрация: 18.03.2015 Сообщений: 221
	11.07.2023, 06:00 [ТС]
	Sun Serega, графабц устарел? Добавлено через 1 минуту Sun Serega, не выводит текст... Ошибки выводит. 0

@thyrex 14471 / 7510 / 1584 Регистрация: 06.09.2009 Сообщений: 27,196
	11.07.2023, 16:52
	Прекрасно работают write и writeln в графическом режиме. 0

@Sun Serega 2357 / 1460 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	11.07.2023, 22:20
	Да и нечего начинать гадать этому ТС, а то он так никогда не научится вопросы задавать... 1

@Андрей1926 123 36 / 0 / 1 Регистрация: 18.03.2015 Сообщений: 221
	16.07.2023, 02:00 [ТС]
	Добавлено через 1 минуту mr-Crocodile, граф забыл стереть Добавлено через 5 минут Все работает, там внезапно в середине был лишний энд. Хз че он в середине делал. 0