Задумать число от 1 до 10 и запросить ответ. В зависимости от введенного числа вывести больше, меньше или равно

@Polydeusec · Регистрация: 28.03.2021

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

Столкнулся с проблемой, рандом чисел происходит но вместо одного числа он рандомит 2 числа, помогите исправить

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Function random(num As Integer)
Dim Value As Integer
Value = Int((10 * Rnd) + 1)
If num > Value Then
random = "неверно число меньше"
ElseIf num < Value Then
random = "неверно число больше"
ElseIf num = Value Then
random = "верно"
End If
End Function

@vedunasv · 02.10.2021, 13:58

Narimanych, пишу:

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

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

For Random As #1 Len = Len(MyRecord)

FOR - просто постоянный прелог
Random - признак произвольного доступа.
As - предлог
#1 - номер канала файла, под которым файл открывется. Грубя говоря - порядковый номер файла = 1-255 или 256 не помню. Можно без решётки писать укороченно.
Len = Len(MyRecord) - длина записи в файле в байтах

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

попробую привести пример со своих БД (примерно полчаса времени понадобятся)

Добавлено через 22 минуты
Narimanych,
не получается по бЫстрому.... БД у меня сложные, само открытие файлов в одном месте, обращение в другом. До кучи быстро собрать не получается.
Короче, если что не понятно будет - обращайтесь,напишу короткий пример

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

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

For Binary

- можно читать бинарные файлы - то есть не только текстовый файл, а и в машинных кодах

Добавлено через 19 минут
Narimanych,

Visual Basic
1
2
3
4
5
6
7
8
 Open "BD\vampfio" For Random As 11 Len = 300
      'чтение из файла
      Get 3, 1, vampirSysFio
      vampirSysFio.nZap = vampirSysFio.nZap + 1   'увеличение к-ва записей
      vampirSysFio.nSeriiVamp = vampirSysFio.nSeriiVamp + 1   'увеличение серийного номера вампира
      'конец чтение из файла
      
      Put 3, 1, vampirSysFio      'запись в файл

немного сложный пример ((((((((

Добавлено через 27 минут
Narimanych, читайте это

Цитата Сообщение от brigval Посмотреть сообщение
Это как? Можно ссылку?
Если список уже в массиве, то доступ к файлу списка уже не имеет значения.
В разделе "Важные темы" есть ссылки на самоучители - там можно найти.
Но принцип такой:
1. файл последовательного доступа - записи из файла читаются одна за другой с начала файла до конца (можно делать паузы, но будет продолжаться с текущей записи). И никак не иначе. Это обычный *.тхт файл. Каждая запись начинается с новой строчки. Длина записи - любая. Вернуться к предыдущей записи при открытом файле невозможно. Возможно, если закрыть и потос снова открыть - но чтение будет производиться снова с первой записи,
2. Файл произвольного (параллельного доступа). Немного сложнее организовать изначально, но ускоряет работу чтения. Размер файла превышает размер такого же ПОСЛЕДОВАТЕЛЬНОГО файла. Длина записи - строгого размера (это является минусом - за счет этого увеличивается фактический размер файла).
Плюс: многократное чтение файла с любого места по номеру записи, так как содержимое индексируется по записям. Также возможно изменить определенную запись на новое значение.

Вывод: если надо прочитать только один раз - то файл с последовательным доступом более практичен и лёгок в создании.
Если же необходимо читать несколько раз да еще в разных местах да плюс возможность изменить запись - ТО ПРИМЕНЯТЬ файл с произвольным доступом.

НО! brigval, Вы применили массив - загнали в него список. Поэтому вам достаточно последовательного файла. Могут быть только проблемы в размерности массива через несколько лет - не хватит памяти.

Команда управления файлом. Одну Вы точно знаете - открываете список-файл.
Open "C:\PROGASV\INSYUZ31\LOG\insyuz.log" For INPUT - открыть последовательный файл

открыть произвольного доступа ниже: где Len = 1336 длина записи в байтах + 2 байта
Open "C:\PROGASV\INSYUZ31\BD\RD\rdborg" For Random As 11 Len = 1336

Еще раз - ссылка в разделе "Важные темы". Смотреть "работа с файлами" или что-то на подобии.

С удачей.

Добавлено через 8 минут
Цитата Сообщение от brigval Посмотреть сообщение
И новые по работе документы могут создаваться или снова или копированием-доработкой устаревших файлов.
И это надо иметь ввиду в моей программе.
По моему мнению, тут никто Вам не напишет точно.
Работа планируется на несколько лет. Придется (по моему мнению) запланировать операции по удалению "мусора" с архивацией оригинала. Предусмотреть просмотр архивов (но уже с потерей скорости). Список всё таки делать с ключами по сортировке по нескольким первым символам имени файлов. И их уже загонять в массивы. Надо думать по ходу разработку.

Добавлено через 1 минуту
Цитата Сообщение от brigval Посмотреть сообщение
Как искать по шаблону в отсортированном списке не понятно.
- какой придумаете, такой и применяйте. Тут куча вариантов.

Добавлено через 2 минуты
Может быть - по тематике пользователя. Разбить заранее по этому ключу список. И в этом случае грузить, например "Космос", данный список.Тут еще, наверное, зависит от количества пользователей. А это только Вы знаете.

Добавлено через 2 минуты
Ещё можно добавить список востребованных файлов и их ставить наперёд. Массив ключей по сортировке массивов.

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

В этом комментари немного мусора, который тянется с той темы. Но, думаю, разберетесь...
Если нет, спрашивайте.

Новые блоги и статьи Все статьи Все блоги /
Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .
Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .