Записать числа в файл и считать из файла - 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.

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

  1. Объявлены переменные:
    • H: файл типа integer, предназначенный для записи и чтения данных из файла;
    • P: массив целых чисел размером от 0 до 11;
    • f: целочисленная переменная.
  2. Присваивается имя файлу H и он открывается для записи.
  3. Запускается цикл от 0 до 11 элементов массива P.
  4. Внутри цикла генерируется случайное число от 1 до 10 и записывается в файл H и в массив P.
  5. Записывается содержимое массива P в файл H.
  6. Запускается цикл от 0 до 11 элементов массива P.
  7. Внутри цикла файл H перемещается к нужному элементу массива P с помощью функции Seek.
  8. Из файла H считывается и записывается в переменную f целочисленное значение.
  9. Запускается цикл от 0 до 11 элементов массива P.
  10. Внутри цикла выводится на экран размер файла H.

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

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