Файлы последовательного доступа |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Файлы последовательного доступа |
ranger |
Сообщение
#1
|
Гость |
Люди, помогите сформировать файл последовательности двадцати чисел, в которой каждый i - й компонент определяется по формуле:
если i<=8 то y=sin(i*PI/8) если i>8 то y=4cos(i(PI+1))/5 |
volvo |
Сообщение
#2
|
Гость |
Ну, поскольку файлы с последовательным доступом - это текстовые файлы, делай так:
Var f: Text; |
ranger |
Сообщение
#3
|
Гость |
Значит, программа будет выглядеть так:
Код program l18; Var f: Text; i: integer; begin assign(f,'d:\data.txt'); rewrite(f); for i := 1 to 20 do if i <= 8 then writeln(f, sin(i*PI/8)) else writeln(f, 4*cos(i*(PI+1))/5); close(f); end. ... еще Нужно определить количество отрицательных значений, содержащихся в сформированном файле... |
volvo |
Сообщение
#4
|
Гость |
Цитата Нужно определить количество отрицательных значений, содержащихся в сформированном файле... А задание обычно СРАЗУ дается полностью, а не меняется и не дополняется после каждого поста. |
bad |
Сообщение
#5
|
Гость |
sin(i*PI/8) и 4*cos(i*(PI+1))/5);
их как-то нужно принять за переменные(ую) и сравнить больше ли она чем ноль, нсли меньше то записать .... |
volvo |
Сообщение
#6
|
Гость |
Цитата их как-то нужно принять за переменные(ую) и сравнить больше ли она чем ноль, нсли меньше то записать Принимай, в чем проблема?{ открываешь файл } |
Текстовая версия | 18.05.2024 18:52 |