DecD = Mid(CStr(5 / 3), 2, 1) ' Разделитель дробной части
Mes = "Введите внешний радиус кольца"
iRout = InputBox(Mes) ' ввод данного в символьном виде
Rout = CSng(Replace(Replace(iRout, ",", DecD), ".", DecD)) ' приводим вводимое в строке число к правильному разделителю и преобразуем в число
Mes = "Введите внутренний радиус кольца"
iRin = InputBox(Mes) ' ввод данного в символьном виде
Rin = CSng(Replace(Replace(iRin, ",", DecD), ".", DecD)) ' приводим вводимое в строке число к правильному разделителю и преобразуем в число
Mes = "Внешний радиус кольца=" + vbCrLf + CStr(Rout) + vbCrLf + vbCrLf ' Формируем начало ответа на экране
Mes = Mes + "Внутренний радиус кольца=" + vbCrLf + CStr(Rin) + vbCrLf + vbCrLf
If Rout >= Rin Then ' Если внешний радиус кольца >= внутреннего
SRing = 3.14159265358979 * (Rout ^ 2 - Rin ^ 2) ' Вычисляем площадь кольца
Mes = Mes + "Площадь кольца=" + vbCrLf + CStr(SRing) ' Формируем окончательный ответ
Else
Mes = Mes + "Внешний радиус меньше внутреннего" + vbCrLf + "Площадь кольца не вычисляется" ' Формируем окончательный ответ Если внешний радиус кольца < внутреннего
End If
MsgBox Mes
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.