Переделать под задание

@Stanislav777 · Регистрация: 01.10.2020

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

Процедура: Получает двузначное число, переставляет в нём цифры, выводит на экран

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Sub pr4()
Dim a As Single, F As Single, c As Single
 
F = InputBox("vvedite gradus")
c = (F - 32) * 5 / 9
MsgBox (c)
End Sub
 
 
Function Rev2(c As String) As String
Dim i&
  For i = 1 To Len(c) Step 2
    Rev2 = Mid$(c, i, 2) & Rev2
  Next
End Function

@АЕ · 29.10.2020, 23:50

Catstail, правда ваша. Снимаю шляпу!
Но можно было так.

Visual Basic
1
2
3
4
5
6
7
8
Public Sub zadanie()
Dim s As Variant
1:
s = InputBox("Введите двухзначное число:")
s = Val(s)
If Len(s) <> 2 Then GoTo 1
MsgBox (Right(s, 1) & Left(s, 1))
End Sub

я поторопился с анализом и сделал все наизнанку

@Catstail · 30.10.2020, 00:13

АЕ, уууу.... Это очень опасный код. Вы знаете, как работает val? Попробуйте ввести "9z"...

@АЕ · 30.10.2020, 07:31

Сообщение от Catstail

Попробуйте ввести "9z"

Попробовал, пришлось после вводить двухзначное число. У меня отработал код как надо.

@Pro_grammer · 30.10.2020, 09:30

Catstail, АЕ, -10 это же двузначное число?
В задании нигде не написано, что число должно быть положительным.

@Catstail · 30.10.2020, 10:10

Pro_grammer, да. И не написано, что система счисления десятичная.

Добавлено через 2 минуты
АЕ, да, верно. Тут я ошибся.

@АЕ · 30.10.2020, 10:33

Сообщение от Pro_grammer

-10 это же двузначное число?

Да все правильно, тут у меня не отработает как надо.... да и код Catstail, не отработает правильно даже на положительном числе... скажем 20 - выдаст 2 а не 02

@Catstail · 30.10.2020, 10:53

Сообщение от АЕ

да и код Catstail, не отработает правильно даже на положительном числе... скажем 20 - выдаст 2 а не 02

- десятичные числа записываются без незначащих нулей. Это всегда предполагается по умолчанию. Либо в задании должно быть явно оговорено, как поступать с числами, кратными 10.

@Pro_grammer · 30.10.2020, 11:52

Сообщение от Catstail

И не написано, что система счисления десятичная.

Зря иронизируете!
Если посмотреть первое сообщение, то это: c = (F - 32) * 5 / 9 явная попытка перевода Фаренгейтов в Цельсии. А температура вполне может быть отрицательной.

@Catstail · 30.10.2020, 12:06

Сообщение от Pro_grammer

А температура вполне может быть отрицательной.

- может. Но какой смысл переставлять цифры в температуре? Впрочем, если очень хочется:

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
Sub main()
    Do
 
        sgn%=1
 
        s$ = InputBox("Введите двузначное число")
 
        if left$(s$,1)="+" then '::: для перфекционистов...
           s$=mid$(s$,2)
        elseif left$(s$,1)="-" then
           s$=mid$(s$,2)
           sgn%=-1
        end if
        
        If s$ Like "[1-9][0-9]" Then
           k% = CInt(s$)
           k% = (k% Mod 10) * 10 + (k% \ 10)
           MsgBox CStr(sgn%*k%)
           Exit Do
        Else
           MsgBox "Вы ошиблись"
        End If
 
    Loop
 
End Sub

@Pro_grammer · 30.10.2020, 12:24

Сообщение от Catstail

Но какой смысл переставлять цифры в температуре?

Мы же тут не смысл ищем, а вроде как помогаем в решении задач.
Да тут половина заданий для учащихся или бессмысленны или бесполезны

@Catstail · 30.10.2020, 13:42

Сообщение от Pro_grammer

Да тут половина заданий для учащихся или бессмысленны или бесполезны

- да, встречаются откровенно бессмысленные (например "Вычислить площадь круга через ООП"). Но в основном задания осмысленные. Я с чего начал? С того, что задача по сути арифметическая. Цель ее - выработать вычислительные навыки работы с разрядами числа. Отрицательные числа здесь просто не нужны.

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@Catstail Супер-модератор 38223 / 21155 / 4314 Регистрация: 12.02.2012 Сообщений: 34,769 Записей в блоге: 14
	30.10.2020, 00:13
	АЕ, уууу.... Это очень опасный код. Вы знаете, как работает val? Попробуйте ввести "9z"... 0

@Pro_grammer 6807 / 2840 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	30.10.2020, 09:30
	Catstail, АЕ, -10 это же двузначное число? В задании нигде не написано, что число должно быть положительным. 0

@Catstail Супер-модератор 38223 / 21155 / 4314 Регистрация: 12.02.2012 Сообщений: 34,769 Записей в блоге: 14
	30.10.2020, 10:10
	Pro_grammer, да. И не написано, что система счисления десятичная. Добавлено через 2 минуты АЕ, да, верно. Тут я ошибся. 0

Переделать под задание

Решение