Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Задачи с текстовыми файлами, хелп, Завтра экзамен, хочу 10:) 
V
    Опции темы
Palladin
Дата 26.6.2006, 20:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17
Вообщем завтра экзамен по делфи/паскаль решил за пару дней все задания(а их там 90 по паскалю и 90 по делфи) не решил толко 31 задачу, т.к. она по текстовым файлам, я с файлами не дружу smile smile поэтому нужен хелп, вообщем все задачи анологичные, решите плизз вот эти 4 задачи:

1)Дан файл, компонентами которого являются целые числа. Переписать компоненты файла в обратном порядке

2) Сформировать целочисленный файл, число компонент которого кратно 10. Переписать компоненты файла в другой файл, изменяя порядок чисел так, чтобы вначале шли чётные а потом нечётные

3)Дан файл, переписать данный из этого файла в другой файл, в обртаном порядке

4)Сформировать символьный файл. Получить другой файл, образованный из первого хаменой его прописных букв одноимёнными строчными


P.S. Плизз оч нада, задачи лёгкие, если знать как то прога делается зами 10-15 максимум, я просто вообще неумею работать с паскалевскими файлами, вообщем хелп, хелп, хелп!!!!!!!!!! smile  smile  


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Yanis
Дата 27.6.2006, 00:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: нет
Всего: 111
Цитата(RooR @  26.6.2006,  21:49 Найти цитируемый пост)
3)Дан файл, переписать данный из этого файла в другой файл, в обртаном порядке

Код

var
  fFrom, fTo: file of byte;
  b: Byte;
begin
  AssignFile(fFrom, 'c:\windows\notepad.exe');
  AssignFile(fTo, 'c:\mytest.txt');

  Reset(fFrom);
  Rewrite(fTo);

  BlockWrite(fTo, b, filesize(fFrom));

  while not Eof(fFrom) do
    begin
      Read(fFrom, b);

      Seek(fTo, FileSize(fFrom)-FilePos(fFrom));
      Write(fTo, b);
    end;

  CloseFile(fTo);
  CloseFile(fFrom);

Работает но очень медленно, т.к. слишком маленький буфер (всего лишь 1 байт). Но зато всё очень просто...

Цитата(RooR @  26.6.2006,  21:49 Найти цитируемый пост)
1)Дан файл, компонентами которого являются целые числа. Переписать компоненты файла в обратном порядке
 Аналогично 3.
 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Palladin
Дата 27.6.2006, 01:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17
Сенкс но я уже сам всё решилsmile))) Но всёровно спасибо

Отпишу завтра здесь что по экзамену получил smile

Добавлено @ 02:06 
Да кстати я не так решил, у меня вроде попроще код:


Код

Program RooR;
var
   f:file of integer;
   i,n,g:integer;
   a:array[1..25] of integer;
begin
     assign(f,'e:/ish.txt');
     rewrite(f);            
     writeln('COZDANIE NOVOGO (ish.txt)');
     writeln('Vvedite n:');
     readln(n);              
     for i:=1 to n do begin
     write('a[',i,']='); readln(g);
     write(f,g);                   
                      end;
       seek(f,0);    
       for i:=1 to n do
       read(f,a[i]);     
       rewrite(f);
       for i:=n downto 1 do
       write(f,a[i]);
       seek(f,0);
       while not eof(f) do   begin
       read(f,g); writeln(g);   end;
       Readln;
end.
  


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
volvo877
Дата 27.6.2006, 08:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Цитата(RooR @  27.6.2006,  01:58 Найти цитируемый пост)
Да кстати я не так решил, у меня вроде попроще код:

Особенно тебя порадует файл размером больше 64К... То есть, такой, для которого нельзя выделить буфер (компилятор не пропустит)... 
PM MAIL   Вверх
Palladin
Дата 27.6.2006, 14:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17
Преподователи этого не знают smile  smile  smile  

P.S. Здал по Pascal оценка 9 по Delphi оценка 9 smile  smile  smile  


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0456 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.