 Задача на файлы * |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Димас |
  12.03.2007 12:47
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 90 Пол: Мужской Реальное имя: Дима Репутация:  1   |
вот сегодня по информатике начали файлы изучать...
Учитель задал такую задачку  :Заполнить файл последовательного доступа f целыми числами, получеными с помщью генератора случайных чисел. Получить в файле g: б.) те компоненты файла f, которые делятся на m и не делятся n . Меня интересует что это за "генератор случайных чисел" ?? и как приблизительно можно решить б) ?  -------------------- Каждый человек , которого я знаю встречаю, превосходит меня в какой нить области, и я готов у него этому учится:)
|
   |
 
|
  |
Ответов
| klem4 |
12.03.2007 15:36
Сообщение
#2
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата Randomize; {Это для чего надо тут ?} Подключение генератора СВ, для того, чтобы псевдослучайная последовательность не повторялась. Цитата for i := 1 to k do writeln(f, Random(200)); {ну цыкл перебирает от 1 до k, а что в нем делает Random(200)?} Ну догадаться помоему можно из твоего задания Цитата Заполнить файл последовательного доступа f целыми числами, получеными с помщью генератора случайных чисел. добавено: опоздал  Цитата так у tp это что функция такая чтоль? Да, а еще у tp есть замечательный Help. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
Сообщений в этой теме
Димас Задача на файлы * 12.03.2007 12:47
Perfez
const
k=1000;
var
m,n,f,i:longint;
g:text;
Begin
... 12.03.2007 13:50 Perfez А на счёт смотри ещё: :yes2: Randomize 12.03.2007 14:40 volvo А по-моему, вот так:
const k=1000;
var
m,n,i:lon... 12.03.2007 14:54 Димас Так-с вроде разобрался:)
но только не понял одно... 12.03.2007 15:34 volvo А кто по-твоему сами случайные числа генерирует? В... 12.03.2007 15:36 Димас так а почему имено Random с значением 200, а не др... 12.03.2007 15:49
volvo
Был тут:
Turbo Pascal на Xp.
? 12.03.2007 16:25 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 13:25 |