Консультация № 178836
03.06.2010, 18:01
0.00 руб.
03.06.2010, 19:51
0 4 1
Здравствуйте уважаемые эксперты, помогите с решением!
Составить схему алгоритма, написать и отладить программу в соответствии с вариантом.

Создать программу расчета площади кольца.
Даны радиусы внешней и внутренней окружностей.
Организовать проверку радиусов окружностей.
Радиус внешней окружности должен быть больше, чем радиус внутренней окружности.
Если это условие не выполняется, то необходимо вывести соответствующее сообщение.

Обсуждение

давно
Модератор
137394
1850
03.06.2010, 18:24
общий
Демьян Осмоновский:
На каком Basic надо сделать? gBasic? VBA для MS Office? VB какой-то версии?
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Неизвестный
07.06.2010, 13:48
общий
зДРАВСТУЙТЕ НА vba ЛЮБОЙ ВЕРСИИ
давно
Модератор
137394
1850
07.06.2010, 17:33
общий
это ответ
Здравствуйте, Демьян Осмоновский.
Код:

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

Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
давно
Модератор
137394
1850
07.06.2010, 22:02
общий
Демьян Осмоновский:
Добавил блок-схему
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Форма ответа