Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на языке Pascal

Выпуск № 092
от 02.02.2003, 16:30

Администратор:
Имя: Sensey
URL: Информационный ресурс
ICQ: 105679124
Украина, Харьков
О рассылке:
Задано вопросов: 152
Отправлено ответов: 462
Активность: 303.9 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Ayl
Статус: Профессиональный
Общий рейтинг: 118.3
[Подробней >>]
Igoryk
Статус: Опытный
Общий рейтинг: 140.12
URL: IgorykSoft
[Подробней >>]
X-RayMan
Статус: Доверительный
Общий рейтинг: 148.07
[Подробней >>]
 
Byter
Статус: Опытный
Общий рейтинг: 125.54
[Подробней >>]
Tancho
Статус: Доверительный
Общий рейтинг: 141.37
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 151. В программе вводится количество вариантов, как сделать рандом между ними и вывести на экран только о... (ответов: 5)

Вопросов: 1, ответов: 5


 Вопрос № 151

В программе вводится количество вариантов, как сделать рандом между ними и вывести на экран только один ответ?
Поподробней:
(программа)Введите кол-во вариантов:
(пользователь) (например) 2
Введите 2 варианта:
да
нет
---
И вот далее как рандом между ними сделать?



Вопрос отправлен: 30.01.2003, 16:20
Отправитель: Dmitry

[Следующий вопрос >>] [Список вопросов]

Отвечает Ayl

Доброе время суток, Dmitry!
Функция Random (N) возвращает целое число от 0 до N-1. Так что используй ее.

Ответ отправлен: 30.01.2003, 16:59
Отправитель: Ayl


Отвечает Igoryk

Добрый день, Dmitry!
Используй функцию Random. На мой взгляд вводимые с клавиатуры строки нужно заносить в массив words[n] и увеличивать n=n+1. Затем функцией Random определить индекс элемента массива для вывода на экран. И собственно соершить вывод на экран.

Ответ отправлен: 01.02.2003, 21:15
Отправитель: Igoryk


Отвечает X-RayMan

Доброго времени суток, Dmitry!
Записываешь варианты в массив (например _Array). Потом:
randomize; - активизировать генератор случайных чисел
rand:=random(n+1); где n - количество вариантов.
writeln(_Array[rand]); - выведет выбранный случайный вариант

Ответ отправлен: 30.01.2003, 22:42
Отправитель: X-RayMan


Отвечает Byter

Здравствуйте, Dmitry!
Запоминай варианты в массиве.mass:array[1..kolvariant] of что надо.
kolvariant-количество вавариантов.
Затем:
i:=Random(kolvariant+1);
Затем:
Writeln('Сгенерирован вариант - ',mass[i]);

Ответ отправлен: 31.01.2003, 16:24
Отправитель: Byter


Отвечает Tancho

Добрый день, Dmitry!
Если я тебе правилно понял то смотри Приложение.
Оно для Borland Pascal for Windows поетому содержит
uses WinCrt и DoneWinCrt.В case операторе все вариантый
у меня аналогичный поетому все етикетный константый
к одним оператор, но я считаю что это не проблем.

Приложение:

Ответ отправлен: 31.01.2003, 13:23
Отправитель: Tancho



Форма отправки вопроса

Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

© 2002 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (38)
C / C++ (28)
Perl (7)
Delphi (17)
Pascal (24)
Basic / VBA (12)
Java / JavaScript (12)
PHP (8)
MySQL / MSSQL (8)
Пользователю
Windows 95/98/Me (36)
Windows NT/2000/XP (31)
"Железо" (32)
Поиск информации (18)
Администратору
Windows NT/2000/XP (14)
Linux / Unix (13)
Юристу
Гражданское право (9)
Семейное право (6)
Трудовое право (5)
КоАП (4)

Отправить вопрос всем экспертам выбранной рассылки.




Яндекс цитирования

© 2002 Россия, Москва. Авторское право: RusFAQ.ru

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное