IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача на файлы *
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 90
Пол: Мужской
Реальное имя: Дима

Репутация: -  1  +


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

Учитель задал такую задачку blink.gif :

Заполнить файл последовательного доступа f целыми числами, получеными с помщью генератора случайных чисел. Получить в файле g:
б.) те компоненты файла f, которые делятся на m и не делятся n .


Меня интересует что это за "генератор случайных чисел" ??

и как приблизительно можно решить б) ?

wacko.gif


--------------------
Каждый человек , которого я знаю встречаю, превосходит меня в какой нить области, и я готов у него этому учится:)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 231
Пол: Женский

Репутация: -  6  +



const
k=1000;
var
m,n,f,i:longint;
g:text;
Begin
Assign(g,'output.txt');
ReWrite(g);
Read(f,m,n);
Randomize;
For i:=1 to f do
If (Random(k) mod m=0) and (Random(k) mod n<>0) then WriteLn(g,Random(k));
Close(g);
End.



По-моему должно быть так. smile.gif А
Цитата
генератор случайных чисел
это просто Randomize & Random(n) вроде... smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 231
Пол: Женский

Репутация: -  6  +


А на счёт
Цитата
генератор случайных чисел
смотри ещё: yes2.gif Randomize

Сообщение отредактировано: Perfez -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата
По-моему должно быть так.
А по-моему, вот так:
const k=1000;
var
m,n,i:longint;
f, g:text;
begin
Randomize;
assign(f, 'input.txt'); rewrite(f);
for i := 1 to k do writeln(f, Random(200));
reset(f);

assign(g, 'output.txt'); rewrite(g);
ReadLn(m,n);
While not eof(f) do begin
readln(f, i);
if (i mod m = 0) and (i mod n <> 0) then WriteLn(g, i);
end;
close(g);
close(f);
end.
(все-таки сначала, по условию, заполняется один файл, а потом из него определенные числа переносятся в другой...)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Пионер
**

Группа: Пользователи
Сообщений: 90
Пол: Мужской
Реальное имя: Дима

Репутация: -  1  +


Так-с вроде разобрался:)

но только не понял одного:


Randomize; {Это для чего надо тут ?}
assign(f, 'input.txt'); rewrite(f);{<<Это ясно!}
for i := 1 to k do writeln(f, Random(200)); {ну цыкл перебирает от 1 до k, а что в нем делает Random(200)?}


так приблизиттельно понял, что Randomize (от англ. random-произвольный ) , так у tp это что функция такая чтоль?



--------------------
Каждый человек , которого я знаю встречаю, превосходит меня в какой нить области, и я готов у него этому учится:)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Цитата
а что в нем делает Random(200)?
А кто по-твоему сами случайные числа генерирует? Вот этот Random и генерирует...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
Randomize; {Это для чего надо тут ?}


Подключение генератора СВ, для того, чтобы псевдослучайная последовательность не повторялась.

Цитата
for i := 1 to k do writeln(f, Random(200)); {ну цыкл перебирает от 1 до k, а что в нем делает Random(200)?}


Ну догадаться помоему можно из твоего задания

Цитата
Заполнить файл последовательного доступа f целыми числами, получеными с помщью генератора случайных чисел.


добавено: опоздал smile.gif

Цитата
так у tp это что функция такая чтоль?


Да, а еще у tp есть замечательный Help.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Пионер
**

Группа: Пользователи
Сообщений: 90
Пол: Мужской
Реальное имя: Дима

Репутация: -  1  +


так а почему имено Random с значением 200, а не другим ?

Цитата(klem4)
Да, а еще у tp есть замечательный Help.


Да у tp7 действительно только сейчас открыл глаза, что там есть help, но жаль он на English, может где то русик к нему можно качнуть?

Сообщение отредактировано: Димас -


--------------------
Каждый человек , которого я знаю встречаю, превосходит меня в какой нить области, и я готов у него этому учится:)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Цитата
жаль он на English, может где то русик к нему можно качнуть?

Был тут:
Turbo Pascal на Xp.
?
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.12.2020 3:04
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name