|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.01.2008, 15:23 | #1 |
Скоро сессия...
Форумчанин
Регистрация: 03.01.2008
Сообщений: 224
|
Типизированные файлы
Пусть даны два файла целых чисел. Определите, равны ли они.
Я решил задачу, в которой просто сформировал файл целых чисел: Uses Crt; var f : file of integer; s : string; tmp : integer; c : char; begin clrscr; write('Введите путь и имя файла: '); readln(s); rewrite(f); repeat write('Введите число: '); read(tmp); write(f,tmp); writeln('Следующее - нажмите на любую клавишу, Выход - Esc.'); c := readkey; close(f); end. Теперь не знаю, как сравнить два файла целых чисел... |
18.01.2008, 15:28 | #2 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
Что значит термин РАВНЫ ? Как множества ? то есть все числа которые есть в первом есть и во втором ? Или числа должны быть равны в каждой позиции файла ?
|
18.01.2008, 15:49 | #3 |
Скоро сессия...
Форумчанин
Регистрация: 03.01.2008
Сообщений: 224
|
Полностью определить нужно - равны ли ФАЙЛЫ целиком между собой. Я думал, что создав два файла целых чисел потом их сравнивать условным оператором - это врятли способ. Вот и не знаю...
|
18.01.2008, 16:03 | #4 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
Код:
|
18.01.2008, 16:22 | #5 |
Скоро сессия...
Форумчанин
Регистрация: 03.01.2008
Сообщений: 224
|
Благодарю! Если не сложно, EOF чем является? Спасибо
|
18.01.2008, 16:26 | #6 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
EOF() - функция, кот.возвращает true, если позиция выходит за конец файла.
|
18.01.2008, 17:00 | #7 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Вот содрал из интернета.
Цитата:
Код:
|
|
27.02.2009, 19:22 | #8 |
Регистрация: 27.02.2009
Сообщений: 3
|
У меня возник вопрос: с помощью какой функции можно определить символьный размер файла (для оператора For i:=1 to ... do)??? или же просто долго и нудно пользоваться repeat until eof()=false????
|
27.02.2009, 20:15 | #9 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Если нужно посчитать количество символов в текстовом файле, то можно так.
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Типизированные файлы.Паскаль.help! | ромка) | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 17.05.2008 07:59 |
типизированные и нетипизированные файлы | andrey4623 | Общие вопросы Delphi | 1 | 28.12.2007 19:09 |
Типизированные файлы и Delphi | Polina | Помощь студентам | 8 | 12.12.2007 18:40 |
Типизированные файлы в C++ Builder | Amateur | Помощь студентам | 3 | 12.11.2007 20:42 |
ПОМОГИТЕ!! Типизированные и нетипизированные файлы. | Zebo | Помощь студентам | 1 | 08.06.2007 09:35 |