Найти сумму двух наименьших чисел среди элементов двух файлов - 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.

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

  1. Открывается файл на чтение с адресом C:\Users\Stramaus Konstantin\Desktop\Практические по ОП\13\1.txt и связывается с переменной f1
  2. Проверяется, не пуст ли файл f1. Если он пуст, выводится сообщение Первый файл пуст! До свидания!, файл f1 закрывается, и программа завершает работу с кодом ошибки 1
  3. Считывается первый элемент файла f1 и сохраняется в переменной min1
  4. Пока в файле f1 есть несчитанные элементы, считывается значение в переменную a. Если значение a меньше, чем значение переменной min1, значение a сохраняется в переменной min1
  5. Файл f1 закрывается
  6. Открывается файл на чтение с адресом C:\Users\Stramaus Konstantin\Desktop\Практические по ОП\13\2.txt и связывается с переменной f1
  7. Проверяется, не пуст ли файл f1. Если он пуст, выводится сообщение Второй файл пуст! До свидания!, файл f1 закрывается, и программа завершает работу с кодом ошибки 1
  8. Считывается первый элемент файла f1 и сохраняется в переменной min2
  9. Пока в файле f1 есть несчитанные элементы, считывается значение в переменную a. Если значение a меньше, чем значение переменной min2, значение a сохраняется в переменной min2
  10. Файл f1 закрывается
  11. Выводится сообщение о значениях переменных min1, min2 и их суммы.

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

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