Как найти минимальную сумму в паскале

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

program Project1;
 
const
  D = ['.', ',', ':', ';', ' ', #9, #10, #13];
    N = 100;
var
  Arr : array[1..N] of Extended;
  S : String;
 f,f1:text;
  i, j, k, Cnt, Len, Pos1 : Integer;
  Sum, SumMin : Extended;
begin
  assign(f,'c.in');
  reset(f);
  assign(f1, 'c.out');
  rewrite(f1);
   readln(f,s);
   Len := Length(S);
  Pos1 := 0;
  Cnt := 0;
  for i := 1 to Len do begin
    if S[i] in D then Continue;
     if (i = 1) or (S[i - 1] in D) then Pos1 := i;
        if (i = Len) or (S[i + 1] in D) then begin
         Inc(Cnt);
          Val( Copy(S, Pos1, i - Pos1 + 1), Arr[Cnt], j);
    end;
  end;
 
    SumMin := 0;
  if Cnt > 0 then SumMin := Arr[1];
  for i := 1 to Cnt do
  for j := i to Cnt do begin
    Sum := 0;
    for k := i to j do Sum := Sum + Arr[k];
    if Sum < SumMin then SumMin := Sum;
  end;
 
   if Cnt > 0 then
    Writeln(f1, SumMin:1:0)
  else
    Writeln('V texte chisla ne obnarujeni');
  Readln;
close(f);
close(f1);
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

program Project1;
 
const
  //Множество разделителей.
  D = ['.', ',', ':', ';', ' ', #9, #10, #13];
  //Длина массива.
  N = 100;
  //Имена файлов.
  Fn1 = 'c.in';
  Fn2 = 'c.out';
var
  F1, F2 : Text;
  Arr : array[1..N] of Extended;
  S : String;
  i, j, k, Cnt, Len, Pos1 : Integer;
  Sum, SumMin : Extended;
begin
  Assign(F1, Fn1);
  Reset(F1);
  Assign(F2, Fn2);
  Rewrite(F2);
 
  Writeln('Входные данные будут взяты из файла: ', Fn1);
 
  //Пропускаем первую строку.
  Readln(F1);
  //Загружаем вторую строку файла.
  Readln(F1, S);
 
  //Выделяем числа из текста и формируем массив.
  Len := Length(S);
  Pos1 := 0;
  Cnt := 0;
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Отслеживаем начало записи числа.
    if (i = 1) or (S[i - 1] in D) then Pos1 := i;
    //Отслеживаем конец записи числа.
    if (i = Len) or (S[i + 1] in D) then begin
      //Индекс текущего элемента массива.
      Inc(Cnt);
      //Добавляем новый элемент в массив.
      Val( Copy(S, Pos1, i - Pos1 + 1), Arr[Cnt], j );
    end;
  end;
 
  //Поиск минимальной суммы последовательно идущих чисел.
  SumMin := 0;
  if Cnt > 0 then SumMin := Arr[1];
  for i := 1 to Cnt do
  for j := i to Cnt do begin
    Sum := 0;
    for k := i to j do Sum := Sum + Arr[k];
    if Sum < SumMin then SumMin := Sum;
  end;
 
  //Ответ.
  if Cnt > 0 then
    Writeln(F2, 'Минимальная сумма: ', SumMin)
  else
    Writeln(F2, 'В тексте числа не обнаружены.')
  ;
  
  //Закрываем файлы.
  Close(F1);
  Close(F2);
  
  Writeln('Расчёт завершён.');
  Writeln('Результат решения записан в файл: ', Fn2);
  Readln;
end.

1
2
3
4

const
...
  //Длина массива.
  N = 100;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71

const
  //Ìíîæåñòâî ðàçäåëèòåëåé.
  D = ['.', ',', ':', ';', ' ', #9, #10, #13];
  //Âåëè÷èíà ïðèðàùåíèÿ äëèíû äèíàìè÷åñêîãî ìàññèâà.
  N = 20;
  //Èìåíà ôàéëîâ.
  Fn1 = 'c.in';
  Fn2 = 'c.out';
var
  F1, F2 : Text;
  Arr : array[1..N] of Extended;
  S : String;
  i, j, k, Cnt, Len, Pos1, l : Integer;
  Sum, SumMin : Extended;
begin
  Assign(F1, Fn1);
  Reset(F1);
  Assign(F2, Fn2);
  Rewrite(F2);
 
  Writeln('Âõîäíûå äàííûå áóäóò âçÿòû èç ôàéëà: ', Fn1);
 
  //Ïðîïóñêàåì ïåðâóþ ñòðîêó.
  Readln(F1, l);
  //Çàãðóæàåì âòîðóþ ñòðîêó ôàéëà.
  Readln(F1, S);
 
  //Âûäåëÿåì ÷èñëà èç òåêñòà è ôîðìèðóåì ìàññèâ.
  Len := Length(S);
  Pos1 := 0;
  Cnt := 0;
  for i := 1 to Len do begin
    //Ïðîïóñêàåì ðàçäåëèòåëè.
    if S[i] in D then Continue;
    //Îòñëåæèâàåì íà÷àëî çàïèñè ÷èñëà.
    if (i = 1) or (S[i - 1] in D) then Pos1 := i;
    //Îòñëåæèâàåì êîíåö çàïèñè ÷èñëà.
    if (i = Len) or (S[i + 1] in D) then begin
      //Èíäåêñ òåêóùåãî ýëåìåíòà ìàññèâà.
      Inc(Cnt);
      If Cnt>l then Break;
      //Äîáàâëÿåì íîâûé ýëåìåíò â ìàññèâ.
      Val( Copy(S, Pos1, i - Pos1 + 1), Arr[Cnt], j );
    end;
  end;
 
  //Ïîèñê ìèíèìàëüíîé ñóììû ïîñëåäîâàòåëüíî èäóùèõ ÷èñåë.
  SumMin := 0;
  if Cnt > 0 then SumMin := Arr[1];
  for i := 1 to l do
  for j := i to l do begin
    Sum := 0;
    for k := i to j do Sum := Sum + Arr[k];
    if Sum < SumMin then SumMin := Sum;
  end;
 
  //Îòâåò.
  if Cnt > 0 then
    Writeln(F2, 'Ìèíèìàëüíàÿ ñóììà: ', SumMin)
  else
    Writeln(F2, ' òåêñòå ÷èñëà íå îáíàðóæåíû.')
  ;
  
  //Çàêðûâàåì ôàéëû.
  Close(F1);
  Close(F2);
  
  Writeln('Ðàñ÷¸ò çàâåðø¸í.');
  Writeln('Ðåçóëüòàò ðåøåíèÿ çàïèñàí â ôàéë: ', Fn2);
  Readln;
end.

1
2
3
4
5

...
      If Cnt = L then Break;
      //Индекс текущего элемента массива.
      Inc(Cnt);
...