|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.01.2012, 14:16 | #1 |
Регистрация: 27.01.2012
Сообщений: 3
|
Работа с текстовым файлом
Как сделать чтоб программа брала случайное слово из текстового файла?
Код:
___________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (это кнопочка с решёточкой #) Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 27.01.2012 в 14:57. |
27.01.2012, 14:39 | #2 |
Форумчанин
Регистрация: 18.01.2012
Сообщений: 975
|
1) считать все слова из файла в массив arr
2) функцией Random получить случайное число i (не больше, чем длина массива) 3) Слово, находящееся в arr[i] считать случайным словом из файла. P.S. перед вызовом Random советую вызвать Randomize, чтобы слова были "послучайнее")
Благодарить в репутацию. Проклинать — туда же
|
27.01.2012, 15:06 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,238
|
Luuzuk, согласен.
и Randomize, кстати, нужно вызывать ОБЯЗАТЕЛЬНО! но всё же попытаюсь дополнить ответ DavioN, 1) почему не используете тип string (или SortString, или string[50] и т.п.) - это НАМНОГО удобнее, чем работать с набором символов (хотя по сути - обычная Pascal строка (в Delphi ShortString) это и есть массив символов с длиной в нулевом байте: type string = array[0..255] of char; Это я про тип переменной S замечание написал.. 2) Вы написали свой пример в консольном режиме Delphi. Это означает, что можно использовать элементы (в т.ч. классы), имеющиеся в Delphi ?! Если - ДА, то использование TStringList очень сильно упростит работу, связанную с обработкой текстового файла! (ну, например, прочитать файл можно одной командой - метод LoadFromFile('ИмяФайла.txt'); 3) как будут хранится слова в текстовом файле? (рекомендую одно слово в строке - это самый удобный для обработки вариант) |
30.01.2012, 19:01 | #4 |
Регистрация: 27.01.2012
Сообщений: 3
|
Может быть, если не сложно, кто нибудь допишет эту программу?) буду очень благодарен
|
30.01.2012, 19:38 | #5 |
Негодник
Форумчанин
Регистрация: 10.11.2009
Сообщений: 880
|
в раздел VAR добавляем аналог переменной "s" и назовём её "s1". Так же добавим переменную f:TextFile;
Теперь вместо: Код:
Код:
Если помог, проси поставить минус. Будь оригинален!
|
03.02.2012, 21:18 | #6 |
Регистрация: 27.01.2012
Сообщений: 3
|
все равно ничего не получается(( может у меня в моей программе что то не так?
|
03.02.2012, 21:52 | #7 | ||
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Чет вы мудрите, массивы символов какие-то...
Цитата:
Код:
Цитата:
Все тривиальное просто
Последний раз редактировалось whatever; 03.02.2012 в 22:10. |
||
03.02.2012, 22:10 | #8 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,792
|
Цитата:
Как бы там ни было, предлагаю свое видение: Код:
I'm learning to live...
|
|
03.02.2012, 22:22 | #9 | |
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Цитата:
Все тривиальное просто
|
|
03.02.2012, 22:35 | #10 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,792
|
Цитата:
I'm learning to live...
|
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с текстовым файлом | lavnikov1 | Помощь студентам | 2 | 29.06.2011 20:29 |
Работа с текстовым файлом, C++ | RockGirl | Помощь студентам | 1 | 15.05.2011 15:53 |
Работа с текстовым файлом. | tae1980 | Microsoft Office Excel | 10 | 29.06.2010 19:16 |
работа с текстовым файлом | Cеверина | Помощь студентам | 4 | 30.03.2009 12:20 |
Работа с текстовым файлом | Vasya | Помощь студентам | 28 | 24.01.2008 01:15 |