Как записать три целые цифры в нетипизированные файл - Free Pascal
Формулировка задачи:
нужно записать три любые целые цифры
в нетипизированный файл
вот программа которая выдает ошибку
не понятки с 7 строкой программы
пишут что надо 3 переменные сюда ставить(после f) BlockWrite(f, X, Count, QuantBlock);
не понимаю конкретно какие функции несут переменные начиная
с X ...или просто без объяснений подправьте прогу ,чтобы записала 3 числа
от 1 до 3 сам попробую разобраться
думаю чего то намудрил со считыванием
наверно можно без for но не знаю как
var f:file; i:integer; begin assign(f,' proverka '); rewrite(f,1); for i:=1 to 3 do blockwrite(f,i); close(f);
поставил еще одно значение в 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);
Решение задачи: «Как записать три целые цифры в нетипизированные файл»
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.
Объяснение кода листинга программы
- Объявляются следующие переменные:
- f: файл
- i: целочисленная переменная
- n: целочисленная переменная
- Открывается файл с именем 'proverka' в режиме записи (режим 1) с помощью функции Assign.
- Файл очищается с помощью функции Rewrite.
- Записываются три целых числа в файл с помощью функции BlockWrite. Каждое число записывается в файл вместе с его размером, указанным в операции присваивания.
- Файл закрывается с помощью функции Close.
- Файл открывается снова в режиме чтения (режим 1) с помощью функции Reset.
- Считываются три целых числа из файла с помощью функции BlockRead. Каждое считанное число выводится на экран с помощью функции Write.
- Выводится символ пробела с помощью функции Write.
- Завершается цикл.
- Файл закрывается с помощью функции Close.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д