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