Перейти к содержимому


Фотография

Помогите с программой


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 5

#1 Чао Чиз

Чао Чиз

    Прохожий

  • Жители HomeNet
  • Pip
  • 162 сообщений

Отправлено 16 January 2010 - 17:06

Мне нужно программу, которая переписывает всю информацию из одного файла в другой. При этом используются нетипизированные файлы:
Var f1,f2:file;
Если точнее: в начале программа должна запросить имя файла, откуда брать информацию. Затем - имя файла, в который её переписывать.
Затем первый файл открывается для чтения, второй - для перезаписи и поехали...

Самое важное: программа должна рабодать с нетипизированными файлами.






Оффтоп: как заставить Паскаль вывести информацию на печать?

#2 Чао Чиз

Чао Чиз

    Прохожий

  • Жители HomeNet
  • Pip
  • 162 сообщений

Отправлено 08 February 2010 - 18:07

Жду...

#3 w1zZaRd

w1zZaRd

    Местный

  • Жители HomeNet
  • PipPip
  • 978 сообщений

Отправлено 08 February 2010 - 18:18

Жду...

use Google and your brains smile.gif
Тут навряд ли найдется кто-то, кто будет вспоминать паскаль.

#4 STAN

STAN

    Графоман

  • Жители HomeNet
  • PipPipPip
  • 1,676 сообщений

Отправлено 08 February 2010 - 18:36

use Google and your brains smile.gif

типа ещё и спиной моск?

#5 Tehnokrat

Tehnokrat

    Местный

  • Жители HomeNet
  • PipPip
  • 737 сообщений

Отправлено 08 February 2010 - 21:20

Тут навряд ли найдется кто-то, кто будет вспоминать паскаль.

Если очень надо, я могу вспомнить не только Паскаль, но и правила пользования арифмометром "Феликс" smile.gif

Мне нужно программу, которая переписывает всю информацию из одного файла в другой. При этом используются нетипизированные файлы:
Var f1,f2:file;
Если точнее: в начале программа должна запросить имя файла, откуда брать информацию. Затем - имя файла, в который её переписывать.
Затем первый файл открывается для чтения, второй - для перезаписи и поехали...

Самое важное: программа должна рабодать с нетипизированными файлами.

Не очень понял, при чём здесь нетипизированные файлы и кто мешает описать файловую переменную
var f1, f2 :file of byte;
а потом тупо переписать файл побайтно. Но если надо именно нетипизированные...

Пример:

var
Vf1, Vf2 : file;
NRead, NWrite: Integer;
Buf: array[1..1024] of Char;
begin
AssignFile(Vf1, 'read.txt');
Reset(Vf1, 1); // Устан-ет размер записи входного файла =1
AssignFile(Vf2, 'write.txt');
Rewrite(Vf2, 1); // Устан-ет размер записи выходного файла =1
repeat
BlockRead(Vf1, Buf, SizeOf(Buf), NRead); // читает данные
BlockWrite(Vf2, Buf, NRead, NWrite); // записывает данные
until (NRead = 0) or (NWrite <> NRead);
CloseFile(Vf1);
CloseFile(Vf2);
end;

Цитата(Чао Чиз @ Jan 16 2010, 17:06) <{POST_SNAPBACK}>
Оффтоп: как заставить Паскаль вывести информацию на печать?

Writeln(prn, 'hello'); // примерно так

Сообщение отредактировал Tehnokrat: 08 February 2010 - 21:22


#6 stogov

stogov

    Прохожий

  • Модераторы
  • Pip
  • 360 сообщений

Отправлено 11 February 2010 - 15:50

какое вознаграждение предусмотрено для Tehnokrat ? =)




Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анонимных