Описать функцию getInt(Name,k) целого типа , возвращающую k-й эле-мент файла целых чисел с именем Name ( элементы нумеруются от 0). Если файл не существует или не содержит k-го элемента , то функция возвращает 0. С помощью этой функции вывести пять элементов данного файла с указанны-ми номерами. буду благодарна!
APAL
21.05.2013 16:01
Вся задача сводится к работе со стандартной процедурой:
Seek (процедура)
Перемещает текущий указатель позиции файла на определенный компонент.
Объявление: Procedure Seek(Var F; N : Longint);
Режим: Windows, Real, Protected
Замечания: F - переменная любого файлового типа за исключением текстового, и N - выражение типа Longint. Указатель позиции файла F перемещается на номер компонента N. Номер первого компонента файла равен нулю. Чтобы расширить файл, вы можете передвинуть указатель на один компонент за последний компонент в файле. То есть, оператор Seek(F, FileSize(F)) перемещает текущий указатель позиции файла на конец файла.
Ограничения: Не может быть использована на текстовых файлах. Файл должен быть открыт.
{FilePos.PAS}{ Пример программы для функций FilePos и FileSize и процедуры Seek }Uses WinCrt;
Var F : FileOf Byte;
Size : LongInt;
Begin{ Get File name from command line }
Assign(F, ParamStr(1));
Reset(F);
Size:=FileSize(F);
WriteLn('Размер файла : ', Size, ' байт.');
WriteLn('Установка указателя позиции на середину файла...');
Seek(F, Size Div2);
WriteLn('Текущая позиция : ', FilePos(F));
Close(f);
End.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.