Найти сумму двух наименьших чисел среди элементов двух файлов - Pascal
Формулировка задачи:
Доброго времени суток, помогите с программой: есть два файла в них находятся числа нужно найти сумму наименьших из них. Я нашёл количество чисел, теперь мне нужно как то перенести эти числа в массив, для поиска минимального, вот как это сделать?
uses crt; var f1,f2 : text; n1,n2,m1,m2,a1,a2 : Integer; Begin clrscr; assign(f1,'C:\Users\Stramaus Konstantin\Desktop\Практические по ОП\13\1.txt'); reset(f1); m1:=0; while (not eof(f1)) do Begin read(f1,a1[m1]); m1:=m1+1; end; close(f1); write(m1); end.
Решение задачи: «Найти сумму двух наименьших чисел среди элементов двух файлов»
textual
Листинг программы
begin assign(f1,'C:\Users\Stramaus Konstantin\Desktop\Практические по ОП\13\1.txt'); reset(f1); if eof(f1) then begin Close(f1); WriteLn('Первый файл пуст! До свидания!'); Halt(1) end; Read(f1, min1); while (not eof(f1)) do begin read(f1,a); if a<min1 then min1:=a; end; close(f1); assign(f1,'C:\Users\Stramaus Konstantin\Desktop\Практические по ОП\13\2.txt'); reset(f1); if eof(f1) then begin Close(f1); WriteLn('Второй файл пуст! До свидания!'); Halt(1) end; Read(f1, min2); while (not eof(f1)) do begin read(f1,a); if a<min2 then min2:=a; end; close(f1); WriteLn(' min1 = ', min1,' min2= ',min2,' summa = ', min1+min2) end.
Объяснение кода листинга программы
- Открывается файл на чтение с адресом
C:\Users\Stramaus Konstantin\Desktop\Практические по ОП\13\1.txt
и связывается с переменнойf1
- Проверяется, не пуст ли файл
f1
. Если он пуст, выводится сообщениеПервый файл пуст! До свидания!
, файлf1
закрывается, и программа завершает работу с кодом ошибки 1 - Считывается первый элемент файла
f1
и сохраняется в переменнойmin1
- Пока в файле
f1
есть несчитанные элементы, считывается значение в переменнуюa
. Если значениеa
меньше, чем значение переменнойmin1
, значениеa
сохраняется в переменнойmin1
- Файл
f1
закрывается - Открывается файл на чтение с адресом
C:\Users\Stramaus Konstantin\Desktop\Практические по ОП\13\2.txt
и связывается с переменнойf1
- Проверяется, не пуст ли файл
f1
. Если он пуст, выводится сообщениеВторой файл пуст! До свидания!
, файлf1
закрывается, и программа завершает работу с кодом ошибки 1 - Считывается первый элемент файла
f1
и сохраняется в переменнойmin2
- Пока в файле
f1
есть несчитанные элементы, считывается значение в переменнуюa
. Если значениеa
меньше, чем значение переменнойmin2
, значениеa
сохраняется в переменнойmin2
- Файл
f1
закрывается - Выводится сообщение о значениях переменных
min1
,min2
и их суммы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д