Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов
Перезагрузить страницу Описание функции SplitIntFile
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Катуха Катуха вне форума
Member
 
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 17.12.2008
По умолчанию Описание функции SplitIntFile - 17.12.2008, 18:35

Помогите написать задачку, пожалуйста.(на паскале)
Описать процедуру SplitIntFile (Name0,k,Name1,Name2), копируюшую первые k(>=0) элементов существующего файла целых чисел с именем Name0 в файл Name1, а остальные элементы - в файл Name2 (прежнее содержимое результирующих файлов стирается). Один из результирующих файлов может оказаться пустым. Применить эту процедуру к файлу Name0, используя значения Name1, Name2 и k.
Ответить с цитированием
  (#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.
Ответить с цитированием
  (#3 (permalink)) Старый
Катуха Катуха вне форума
Member
 
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 17.12.2008
По умолчанию 19.12.2008, 21:00

Спасибо преогромное))))))Очень выручил))
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
описание функции Select_1 Sargo Pascal 0 29.12.2011 06:39
Описание строк gooogle Assembler 1 06.06.2011 01:47
Описание функции minmax(x,y) в С++ virtualka Вопросы начинающих программистов 1 10.12.2010 03:10
Описание serzhi Prolog 4 17.09.2009 20:01
Описание функции случайной генерации элементов массива PamidorKKa C++ Builder 3 05.07.2008 19:46
Функции в Word - как прикрутить автозапуск функции? Godfather Visual Basic 1 17.11.2005 19:32
Описание функции в FunctionWizard??? Как его задать! Andrew_ Visual Basic 2 10.06.2005 04:59
Где найти описание функции MULTIME bviktor Oracle 0 01.04.2005 18:30
Описание формата ISO Garik Офтопик 3 20.02.2005 05:08
Описание PNG формата St@lker Программирование графики 8 14.03.2004 18:26
Какие функции имеются под MFC или API-функции для работы с Hint Anonymous Visual C++ 1 12.10.2003 00:15
Где найти описание функции ShellExecute Anonymous Visual C++ 5 30.09.2003 11:17



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов