Показать сообщение отдельно
  (#2 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 18.12.2008, 15:40

Вот. Если я правильно понял.

Program SPLIT;

VAR

k,j:INTEGER;
fxx:TEXT;

PROCEDURE SplitIntFile(Nm0, Nm1, Nm2:STRING; KS:INTEGER);
VAR
i,x:Integer;
EoF_Nm0:BOOLEAN;
f0,f1,f2:TEXT;

BEGIN

Assign(f0, Nm0);
ReSet(f0);
Assign(f1, Nm1);
ReWrite(f1);
Assign(f2, Nm2);
ReWrite(f2);

i:=1;
WHILE (NOT EoF(f0)) AND (i<=k) DO
BEGIN
Read(f0, x);
Write(f1,x:10);
EoF_Nm0:=EoF(f0);
INC(i)
END;

Close(f1);

IF (NOT EoF_Nm0) THEN
REPEAT
Read(f0,x);
Write(f2,x:10);
UNTIL EoF(f0);

Close(f0);
Close(f2);

END; {SplitIntFile}

BEGIN

{Тестовое заполнение файла с именем Name0}
Assign(fxx, 'D:\Name0');
{D:\ - это место размещения файлов; может быть изменено}
ReWrite(fxx);
FOR j:=1 TO 100 DO Write(fxx, j:10);
Close(fxx);

Write('Введите k '); ReadLn(k);

SplitIntFile('D:\Name0', 'D:\Name1', 'D:\Name2', k);

END.
Ответить с цитированием
Ads