Замена цифр в числе

echs · Регистрация: 23.10.2013

Студворк — интернет-сервис помощи студентам

Задача
Дано десятизначное число (вообще говоря произвольное)
в виде стоковой переменной. Требуется заменить в этом
числе две цифры. Одну цифру на знак плюс (+), а другую
цифру на знак минус (-). Эти знаки разобьют данное число
на три числа соединенные двумя арифметическими операциями.
Если произвести эти операции, то получится некоторое число.
Так вот.
Задача состоит в том, чтобы так разместить эти две операции, чтобы
в результате их выполнения получилось минимальное положительное
число.
На экран надо вынести
1. Начальное число
2. Строку из чисел и операций
3. Результат этих операций (min)
(Программа проверена)
Удачи Вам!

QBasic/QuickBASIC
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
REM   Заменить две цифры знаками + и -
REM   произвести арифметические действия
REM   найти минимум больший нуля
 
CLS
DIM s AS STRING
DIM s0 AS LONG
DIM s1 AS LONG
DIM s2 AS LONG
DIM s3 AS LONG
DIM k AS LONG
 
s = "9876543210"
PRINT s
 
min = 10000
 
FOR i = 2 TO 7
FOR j = i + 2 TO 9
   s1 = VAL(MID$(s, 1, i - 1))
   s2 = VAL(MID$(s, i + 1, j - i - 1))
   s3 = VAL(MID$(s, j + 1, 10 - j))
 
   k = s1 + s2 - s3
   IF k > 0 AND min > k THEN
       min = k
       k1 = 0
       k2 = i
       k3 = j
   END IF
 
   k = s1 - s2 + s3
   IF k > 0 AND min > k THEN
      min = k
      k1 = 1
      k2 = i
      k3 = j
   END IF
NEXT j, i
 
IF k1 THEN
   MID$(s, k2, 1) = "-"
   MID$(s, k3, 1) = "+"
ELSE
   MID$(s, k2, 1) = "+"
   MID$(s, k3, 1) = "-"
END IF
PRINT s
PRINT min
END

@Catstail · 10.12.2015, 21:18

Набросок:

Visual Basic
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
Sub main()
    S$ = "8371219727"
    For i% = 2 To 9
        For j% = 2 To 9
            If Abs(i% - j%) > 1 Then
               Z$ = S$
               Mid$(Z$, i%, 1) = "+"
               Mid$(Z$, j%, 1) = "-"
               Debug.Print Z$; "="; Calc(Z$)
            End If
         Next j%
    Next i%
End Sub
 
Function Calc(Stri As String) As Double
Dim r(1 To 3) As Double
    Z# = 1
    k% = 1
    For i% = 1 To Len(Stri)
        S$ = Mid(Stri, i%, 1)
        Select Case S$
               Case "+"
                   Z# = 1
                   k% = k% + 1
               Case "-"
                   Z# = -1
                   k% = k% + 1
               Case Else
                   r(k%) = r(k%) * 10 + Z# * Val(S$)
        End Select
    Next i%
    Calc = r(1) + r(2) + r(3)
End Function

echs · 10.12.2015, 21:28 **[ТС]**

Catstail
Отлично! Вы быстро схватываете самую суть.
Спасибо!

@Catstail · 10.12.2015, 21:33

geh, но я не искал экстремум...

echs · 10.12.2015, 21:38 **[ТС]**

Catstail
Я это сразу понял. Ведь эта программа еще сидит в моей голове.
Ну и что такого? Пусть кто-нибудь попробует повторить за вами.
Вы применили другие операторы, иной подход. А значит вы
дали отличный ответ. И я это оценил!

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	10.12.2015, 21:28 [ТС]
	Catstail Отлично! Вы быстро схватываете самую суть. Спасибо! 0

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,736 Записей в блоге: 14
	10.12.2015, 21:33
	geh, но я не искал экстремум... 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	10.12.2015, 21:38 [ТС]
	Catstail Я это сразу понял. Ведь эта программа еще сидит в моей голове. Ну и что такого? Пусть кто-нибудь попробует повторить за вами. Вы применили другие операторы, иной подход. А значит вы дали отличный ответ. И я это оценил! 0

Замена цифр в числе

Решение