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

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

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

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

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

textual
Листинг программы
  1. var
  2.   f:file;
  3.   i,n:integer;
  4. begin
  5.   Assign(f,'proverka'); Rewrite(f,1);
  6.   for i:=1 to 3 do BlockWrite(f,i,sizeof(i));
  7.   Close(f); Reset(f,1);
  8.   for i:=1 to 3 do begin
  9.     BlockRead(f,n,sizeof(n)); Write(' ',n);
  10.   end; WriteLn;
  11.   Close(f);
  12. 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы