Урок 9. Паскаль с нуля. Генератор случайных чисел. Random

Задачник : drive.google.c...

[@dominator4422]

Здравствуйте Дмитрий, спасибо вам , что вы выкладываете понятные видеоуроки! Можете, пожалуйста снять еще 1 видеоурок про циклы: for и while! За ранее спасибо!

[@ДмитрийЛапко-л1н]

Это будет 11 и 12 урок. Спасибо.

[@umaritelno]

спасибо, что не забываешь нас!!!

[@ПолинаТихова-н5п]

Спасибо!!! Делаете очень полезные видео

[@ОсіповЄвгеній]

Учусь на втором курсе колледжа, подаватель когда мы проходили рандом сказал что нельзя указывать диапазон чисел и нельзя рандомить минусовые числа, в итоге если мы хотели диапазон с -50 до 50 надо было писать random(50)-random(50). Моё желание покинуть данный дурдом снова возросло.

[@ПавелЗезуль-г1ъ]

Походу это прокатывает только на abc паскале. На турбо паскаль у меня работает только random(5)-random(5);

[@АлександрХанин-ш3ф]

Теперь все в порядке. Нашел, в чем проблема program predskaz; var n:integer; begin WriteLn('Нажмите Enter,чтобы узнать судьбу'); readln; n:=Random(36); case n of 1,3,5,7: WriteLn('Готовьте кошелек для больших денег'); 2,4,6,8: WriteLn('Будете ходить в обновках'); 9,11,13,15: WriteLn('В следующим году встретите свое счастье;)'); 10,12,14,16: WriteLn('В новом году придется затянуть пояс потуже'); 17,19,21,23: WriteLn('Путин опять победит. Можете сваливать из страны'); 18,20,22,24: WriteLn('В следующем году поедете на Бали'); 25,27,29: WriteLn('Ну что...Собирайте теплые вещи. В Магадан уедете'); 26,28,30: WriteLn('Планету захватят роботы.Хаха)') else WriteLn('Новый год ничего не изменит в вашей жизни'); end; end.

[@vldkv]

Спасибо за видео!:)

[@ДмитроБульба-г6щ]

Жду новое видео.

[@zhenyatv9620]

Випустите видео о масивах пожайлуйста.

[@ДмитрийЛапко-л1н]

Всё будет. Спасибо.

[@llzz9049]

скажите пожалуйста, а переменную типа стринг можно зарандомить?

[@ДмитрийЛапко-л1н]

www.cyberforum.ru/pascalabc/thread1282285.html

[@ВиталийРожков-л5е]

program predskazaniya; var a: integer; begin Writeln('Для того чтобы узнать судьбу нажмите Enter '); Readln(); a:= Random(1,36); Writeln('Вам выпало число ', a); case a of 1,12,25,30:writeln('Готовьте кошелек для больших денег'); 2,14,27,32:writeln('Вас ждет счастье в Новом году'); 3,11,23,29:writeln('Весь год вам будет улыбаться удача'); 4,13,22,28:writeln('В Новом году вас ждет обновка'); 5,16,20,33:writeln('Вам повезет в лотерее'); 8,19,26,36:writeln('Вы можете найти клад'); else writeln('Новый год ничего не изменит в вашей жизни'); end; end.

[@a_fff]

А как сделать так, чтобы вопросы можно было задавать бесконечно?

[@ДмитрийЛапко-л1н]

Нужен цикл.

[@ЕНОТПОИМЕНИДЖАНК]

Repeat Until Clrscr

[@ОксанаЗаграй-к2ы]

Как сделать так чтоб после вывода текста в задаче 9.2 "Нажмите enter чтобы получить поздравления" я нажимала enter и появлялось поздравление а не сразу?

[@ДмитрийЛапко-л1н]

Код хотя бы покажите.

[@ОксанаЗаграй-к2ы]

@@ДмитрийЛапко-л1н Program Pozdorovlenia; var a:integer; begin Writeln('Натисніть Enter та отрмайте привітання з Новим роком'); a:= random (1,10); case a of 1: write('Вас вітає російський Дід Мороз- С Новым годом!'); 2: write('Вас вітає італійська Баббо Натале- Felice anno nuovo!'); 3: write('Вас вітає Фінннський Йоулупуккі- Onnellista Uutta Vuotta!'); 4: write('Вас вітає норвезький Юлебукк- Godt Nyttаr!'); 5: write('Вас вітає великобританський Фазер Крістмас- Happy New Year!'); 6: write('Вас вітає албанський Бабадімпі- Gezuar Vitin e Ri!'); 7: write('Вас вітає грецький Агіос Василіс- Kenourios Chronos!'); 8: write('Вас вітає татарстанський Кишбабай- Яна ел белен!'); 9: write('Вас вітає французький Пер Ноель- Bonne Annee!'); 10: write('Вас вітає японський Сегацу-сан- Akimashite Omedetto Gozaimasu!'); end; end.

[@ValentynZahrai]

Спасибо я уже сам все понял

[@ValentynZahrai]

Спасибо за беспокойство

[@gemand3821]

а что делать если нада чтобы например числа в диапазоне от 13 до 15 падали чаще чем остальные?

[@gemand3821]

@@vladissergeevich7723 та я уже понял как,спасибо.

[@XD-lz3hn]

кто слушал в 4X

[@olgadeeva5691]

😅🤣

[@ozodyoqubov6858]

Ребята пожалуйста пожалуйста не играйте идите по дальше от таких мошенников не хочу вас тоже обманули 😢😢😢😢😢

[@АлександрХанин-ш3ф]

я не знаю. Пишет "Слишком много или слишком мало аргументов передаются функции Random program predskaz; var n:integer; begin WriteLn('Нажмите Enter,чтобы узнать судьбу'); readln; n:=Random(1,36); case n of 1,3,5,7: WriteLn('Готовьте кошелек для больших денег'); 2,4,6,8: WriteLn('Будете ходить в обновках'); 9,11,13,15: WriteLn('В следующим году встретите свое счастье;)'); 10,12,14,16: WriteLn('В новом году придется затянуть пояс потуже'); 17,19,21,23: WriteLn('Путин опять победит. Можете сваливать из страны'); 18,20,22,24: WriteLn('В следующем году поедете на Бали'); 25,27,29: WriteLn('Ну что...Собирайте теплые вещи. В Магадан уедете'); 26,28,30: WriteLn('Планету захватят роботы.Хаха)') else WriteLn('Новый год ничего не изменит в вашей жизни'); end; end. (пишу на мобильной версии паскаля)

[@ДмитрийЛапко-л1н]

Компилятор не принимает такой формат функции . Попробуй так: n:=Random(38)+1; Взял отсюда : mojainformatika.ru/paskal/uroki-paskal-massivy/33-ispolzovanie-randomize-i-random.html

[@ДмитрийЛапко-л1н]

n:=Random(1,36); такой формат только в PascalABC.NET

[@АлександрХанин-ш3ф]

Ага. Я уже понял. И исправил. Все работает

[@dashanusha6021]

ничего не понятно