Задание с нетипизированным файлом

[Василий15]

Спасибо, на ресет-рерайт не ругается. Но какие-то нелады с blockread(f,s,q) - ошибка чтения с диска.

[Василий15]

Спасибо, на ресет-рерайт теперь не ругается. Но в строке с blockread(f,s,1) выдает ошибку 100 - ошибка чтения с диска.

[Serge_Bliznykov]

Сообщение от Василий15

Спасибо, на ресет-рерайт не ругается. Но какие-то нелады с blockread(f,s,q) - ошибка чтения с диска.

Не удивительно.
Кто Вас надоумил сделать размер одной записи равным 2-м символам?
Если в файле будет нечётное число символов - то и получите ошибку чтения с диска.
Сделайте размер записи равным 1 байт (1 char)
и буфер сделайте такой, какой надо (ну, например, array[1..8*1024] of char)
и туда читайте. если в файле не хватит - процедура BlockRead вернёт число фактически прочитанных байт.

Рекомендую посмотреть встроенный в Help TurboPascal'я пример,
там это отражено.

[Василий15]

Может быть я неправильно понял задание? Имеется нетипизированный файл длиной 50 байт. Вывести его содержимое на экран. Скопировать его содержимое в другой файл с помощью оператора WHILE. Длина блоков 2 байта. В цикле выводить содержимое каждого скопированного блока.

[Serge_Bliznykov]

Имеется нетипизированный файл длиной 50 байт

А покажите скриншот, где видно размер вашего файла!

ну или напишите маленькую программку на Pascal, которая выведет размер файла f.txt в байтах (см. FileSize(f) )

[Василий15]

СКРИНШОТ

[Serge_Bliznykov]

Мда, на мой взгляд, Вы всё делаете правильно.
сегодня вечером (примерно 21:00 по Мск) я постараюсь проверить ваш пример у себя.
Возможно, что это ваш SchoolPak подглючивает.
А может, я что-то забыл и/или не учитываю.
Проверю, отпишусь.

[Serge_Bliznykov]

проверил. всё работает, как часы.

const bufsize=2;
var f, g: file;
    s: array[1..bufSize] of char;
begin
 assign(f, 'f.txt'); 
 reset(f, bufsize);
 assign(g, 'g.txt'); 
 rewrite(g, bufsize);
  while not(eof(f)) do
   begin
    blockread(f, s, 1);
    blockwrite(g, s, 1);
    write(s);
   end;
 close(f); 
 close(g);
end.

Turbo Pascal 7.0 через DOSBox 0.74

Рискну предположить одно из двух: либо у Вас компилятор Паскаля "кривой", либо файлик f.txt лежит где-то в другом месте, а не там, где Вы предполагаете.
Других причин я не вижу.