Найти наибольший и наименьший из компонентов файла - Pascal
Формулировка задачи:
1. Дан файл f, компоненты которого являются целыми числами. Найти наибольший и наименьший из компонентов файла
Решение задачи: «Найти наибольший и наименьший из компонентов файла»
textual
Листинг программы
uses crt; var f:file of integer; a,mn,mx,i,n:integer; begin clrscr; assign(f,'fail'); rewrite(f); write('Сколько компонент ввести в файл? n='); readln(n); writeln('Введите ',n,' целых чисел:'); for i:=1 to n do begin readln(a); write(f,a); end; clrscr; writeln('Содержание файла:'); reset(f); seek(f,0); read(f,a); mn:=a; mx:=a; write(a,' '); for i:=1 to filesize(f)-1 do begin seek(f,i); read(f,a); if a> mx then mx:=a else if a<mn then mn:=a; write(a,' '); end; writeln; writeln('Макс.=',mx,' Мин.=',mn); close(f); readln end.
Объяснение кода листинга программы
- Создаётся файл 'fail' для записи результатов.
- Пользователю задаётся вопрос о количестве компонентов для записи в файл.
- Пользователю задаётся вопрос о вводе целых чисел.
- Записывается каждый введённый компонент в файл.
- Строка «Содержание файла:» выводится на экран.
- Файл сбрасывается в начало, чтобы можно было прочитать его снова.
- Строка «Макс.=», а также минимальное и максимальное значения компонентов выводятся на экран.
- Файл закрывается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д