Работа с файлами - Turbo Pascal (248900)

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

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

Задание-найти в массиве минимальный элемент и записать его в первую строку файла, во вторую строку записать сам массив Записывает 0 в первую строку. В чем моя ошибка?

Решение задачи: «Работа с файлами»

textual
Листинг программы
k,i,min:integer;
 
begin
  assign(f,'in.txt');
  reset(f);
  k := 0; 
  while not EOF(f) do
  begin
    read(f,a[i]);
    inc(k);
  end;
  close(f);

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

  1. Объявлены три переменные: k, i, min (номер 2) типа integer.
  2. Переменная k инициализируется значением 0.
  3. Открывается файл 'in.txt' с помощью функции assign(f, 'in.txt') (номер 4).
  4. Файл считывается с помощью цикла while not EOF(f) до тех пор, пока не будет достигнут конец файла (номер 5).
  5. В каждой итерации цикла считывается одно значение из файла и сохраняется в массиве a[i] (номер 6).
  6. Каждое считанное значение увеличивает значение переменной k на 1 (номер 7).
  7. После окончания чтения файла, файл закрывается с помощью функции close(f) (номер 8).

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

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