Записать числа в файл и считать из файла - PascalABC.NET
Формулировка задачи:
Есть массив наполненный числами.
Выведем его.
Теперь запишем в файл каждый элемент массива.
Выведем содержание файла и кол-во элементов.
Но бред, элементы (их знач) не совпадают.!
// v chem bag ckashgite!!!
Решение задачи: «Записать числа в файл и считать из файла»
textual
Листинг программы
uses GRAPHABC; var H: file of integer; P: ARRAY [0..11] of integer; f: integer; begin ASSIGN(H, 'OTRABOTKA'); reset(H); for var i := 0 to 11 do begin p[I] := random(1, 10); write(h, p[i]); end; writeln(p); for var i := 0 to 11 do begin Seek(h, i); read(h, f); writeln(F); end; writeln; write(FileSize(h)); end.
Объяснение кода листинга программы
- Объявлены переменные:
- H: файл типа integer, предназначенный для записи и чтения данных из файла;
- P: массив целых чисел размером от 0 до 11;
- f: целочисленная переменная.
- Присваивается имя файлу H и он открывается для записи.
- Запускается цикл от 0 до 11 элементов массива P.
- Внутри цикла генерируется случайное число от 1 до 10 и записывается в файл H и в массив P.
- Записывается содержимое массива P в файл H.
- Запускается цикл от 0 до 11 элементов массива P.
- Внутри цикла файл H перемещается к нужному элементу массива P с помощью функции Seek.
- Из файла H считывается и записывается в переменную f целочисленное значение.
- Запускается цикл от 0 до 11 элементов массива P.
- Внутри цикла выводится на экран размер файла H.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д