Файл |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Файл |
die |
7.06.2009 10:35
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 32 Пол: Мужской Реальное имя: Макс Репутация: 0 |
Помогите пожалуйста решить , завтра нужно уже сдать .
Записать в файл f последовательную доступа N натуральных чисел.Получить в другом файле последовательного доступа все компоненты файла f, кроме тех , которые кратны K . Вывести полученный файл на печать . |
Ozzя |
8.06.2009 7:56
Сообщение
#2
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
А в чем проблема-то?
Не знаете как писать/читать в/из файл(а)? Или не знаете, как оформить кратность К? |
sheka |
8.06.2009 11:32
Сообщение
#3
|
Я. Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
а как выводить на печать?
|
Гость |
8.06.2009 11:44
Сообщение
#4
|
Гость |
|
Ozzя |
8.06.2009 11:44
Сообщение
#5
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Цитата а как выводить на печать? На принтер? uses |
die |
8.06.2009 11:45
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 32 Пол: Мужской Реальное имя: Макс Репутация: 0 |
|
Ozzя |
8.06.2009 11:46
Сообщение
#7
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Цитата не знаю как оформить кратность К . ... |
die |
8.06.2009 12:06
Сообщение
#8
|
Новичок Группа: Пользователи Сообщений: 32 Пол: Мужской Реальное имя: Макс Репутация: 0 |
... Вот так сделал первую часть , но мне кажется что- то не то . Цитата program gg; uses Crt; var fl: file of integer; num:integer; i,x:integer; begin ClrScr; assign (fl,' number.dat'); rewrite (fl); for i:=1 to 10 do begin write (i,'-e зЁб«®'); readln (x); write (fl,x); Close (fl); end; writeln ('‡ ЇЁбм ў д ©« § ўҐаиҐ '); repeat until keypressed; end. А вот во второй части не знаю что делать . Цитата program gg; uses Crt; var fy: file of integer; num:integer; k,x:integer; begin ClrScr; assign (fy,'number.dat'); reset (fy); k:=0; немагу разобраться куда вписывать кратность и печать. |
sheka |
8.06.2009 12:43
Сообщение
#9
|
Я. Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
ничего не понятно, а зачем 2 части? и файлы же последовательного доступа, а не типизированые.
c принтером допишите. Сообщение отредактировано: sheka - 8.06.2009 14:47 |
die |
8.06.2009 13:20
Сообщение
#10
|
Новичок Группа: Пользователи Сообщений: 32 Пол: Мужской Реальное имя: Макс Репутация: 0 |
спасибо за помощь ... но у меня ошибка file not found .
|
sheka |
8.06.2009 14:46
Сообщение
#11
|
Я. Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
|
die |
8.06.2009 15:00
Сообщение
#12
|
Новичок Группа: Пользователи Сообщений: 32 Пол: Мужской Реальное имя: Макс Репутация: 0 |
|
Текстовая версия | 13.05.2024 10:38 |