Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 19.10.2016
Сообщений: 29
1

Найти сумму двух наименьших чисел среди элементов двух файлов

19.10.2016, 22:26. Показов 1837. Ответов 4
Метки нет (Все метки)

Доброго времени суток, помогите с программой: есть два файла в них находятся числа нужно найти сумму наименьших из них. Я нашёл количество чисел, теперь мне нужно как то перенести эти числа в массив, для поиска минимального, вот как это сделать?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.10.2016, 22:26
Ответы с готовыми решениями:

Вывести произведение номеров двух наименьших элементов среди положительных
В одномерном масиве который задается рандомно нужно посчитать произведение номеров двух наименьших...

Найти произведение двух наименьших из трёх различных чисел
Составить программу нахождения произведения двух наименьших из трех различных чисел. Помогите...

В двух матрицах найти максимальный элемент среди элементов выше главной диагонали
В каждой из матриц D(50,50) и Е(100,100) найти максимальный элемент среди элементов, расположенных...

Найти сумму и произведение последних цифр двух чисел.
Даны натуральные числа m и n.Найти сумму и произведение их последних цифр.

__________________
4
2508 / 1129 / 582
Регистрация: 07.06.2014
Сообщений: 3,281
19.10.2016, 23:08 2
Лучший ответ Сообщение было отмечено rojroyy как решение

Решение

Цитата Сообщение от rojroyy Посмотреть сообщение
есть два файла в них находятся числа нужно найти сумму наименьших из них.
если я тебя правильно понял, то нужно найти наименьшее в одном файле, потом наименьшее в другом файле, а потом их сложить?

тогда массив тебе вообще не нужен.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5721 / 3432 / 2436
Регистрация: 22.11.2013
Сообщений: 9,639
Записей в блоге: 1
19.10.2016, 23:39 3
Sergio Leone,
... или в цикл:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  f: Text;
  m: array [1..2] of Integer;
  j, t: Integer;
begin
  for j:=1 to 2 do begin
    Assign(f,Chr(Ord('0')+j)+'.txt'); Reset(f);
    Read(f,m[j]);
    while not SeekEoF(f) do begin
      Read(f,t); if t<m[j] then m[j]:=t;
    end;
    Close(f);
  end;
  WriteLn(m[1]+m[2]);
end.
0
2508 / 1129 / 582
Регистрация: 07.06.2014
Сообщений: 3,281
19.10.2016, 23:47 4
Цитата Сообщение от bormant Посмотреть сообщение
или в цикл:
вполне!
0
0 / 0 / 0
Регистрация: 19.10.2016
Сообщений: 29
20.10.2016, 15:16  [ТС] 5
Спасибо, я понял как это делать
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.10.2016, 15:16

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Найти сумму и производную от последних цифр двух данных чисел
Даны натуральных числа m и n. Найти сумму и производную от последних цифр.

Найти максимальную сумму двух соседних элементов в массиве
помогите пожалуйста решить задачу:в одномерном массиве найти максимальную сумму двух соседних...

Найти сумму элементов двух первых строк матрицы
4) Составить программу, которая в данной действительной квадратной матрицы порядка N найти сумму...

Найти сумму положительных элементов в двух заданных массивах
Написать программу : для ввода массива использовать процедуру, а для поиска элементов - функцию....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.