Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] задача на тему Типизированные файлы

Автор: ISTka 29.11.2010, 23:42

type myfile = file of char;
Опишите процедуру mid1(f), присваивающую среднему символу файла f значение '1', если файл нечетной длины/

Автор: t_gran 30.11.2010, 07:58

Код


procedure mid1(var f: myfile);
var
   size: longint;
begin
   {$I-}
   reset(f);
   {$I+}
   if (ioresult <> 0) then
      exit;
      
   size := filesize(f);
   
   if (size mod 2 <> 0) then
   begin
      seek(f, size div 2);
      write(f, '1');
   end;
   
   close(f);
end;

Тестовый код с бинарником:

Автор: ISTka 30.11.2010, 13:19

t_gran, огромное спасибо!) выручили)