Как записать три целые цифры в нетипизированные файл - Free Pascal

Узнай цену своей работы

Формулировка задачи:

нужно записать три любые целые цифры в нетипизированный файл вот программа которая выдает ошибку
 var f:file;
      i:integer;
begin
  assign(f,' proverka ');
rewrite(f,1);
  for i:=1 to 3 do 
   blockwrite(f,i);
close(f);
не понятки с 7 строкой программы пишут что надо 3 переменные сюда ставить(после f) BlockWrite(f, X, Count, QuantBlock); не понимаю конкретно какие функции несут переменные начиная с X ...или просто без объяснений подправьте прогу ,чтобы записала 3 числа от 1 до 3 сам попробую разобраться
поставил еще одно значение в blockwrite(f,i,1) все записалось считывал так
 var f:file;
   i,n:integer;
  assign(f,' proverka');
   reset(f,1);
  for i:=1 to 3 do begin
   blockread(f,n,1);
   write(n,' ');
  end;
   close(f);
думаю чего то намудрил со считыванием наверно можно без for но не знаю как

Решение задачи: «Как записать три целые цифры в нетипизированные файл»

textual
Листинг программы
var
  f:file;
  i,n:integer;
begin
  Assign(f,'proverka'); Rewrite(f,1);
  for i:=1 to 3 do BlockWrite(f,i,sizeof(i));
  Close(f); Reset(f,1);
  for i:=1 to 3 do begin
    BlockRead(f,n,sizeof(n)); Write(' ',n);
  end; WriteLn;
  Close(f);
end.

Объяснение кода листинга программы

  1. Объявляются следующие переменные:
    • f: файл
    • i: целочисленная переменная
    • n: целочисленная переменная
  2. Открывается файл с именем 'proverka' в режиме записи (режим 1) с помощью функции Assign.
  3. Файл очищается с помощью функции Rewrite.
  4. Записываются три целых числа в файл с помощью функции BlockWrite. Каждое число записывается в файл вместе с его размером, указанным в операции присваивания.
  5. Файл закрывается с помощью функции Close.
  6. Файл открывается снова в режиме чтения (режим 1) с помощью функции Reset.
  7. Считываются три целых числа из файла с помощью функции BlockRead. Каждое считанное число выводится на экран с помощью функции Write.
  8. Выводится символ пробела с помощью функции Write.
  9. Завершается цикл.
  10. Файл закрывается с помощью функции Close.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы