Задача - Определить, какая из двух фигур – круг или квадрат – имеет большую площадь.

[Incognitoal]

Определить, какая из двух фигур – круг или квадрат – имеет большую площадь. Из-вестно, что сторона квадрата имеет длину а, радиус круга – r. Вывести название и значение площади большей фигуры.

[EducatedFool]

Вы читали правила форума?
С такими задачами вам путь в раздел Помощь студентам...
А с таким названием тема уже давно должна быть закрыта.

Хорошо, я смотрю, Вы тут устроились - уже даже вопросов не задаёте.
Просто скидываете условие задачи, и всё - пусть умные дяди сами думают, что и как сделать...

[Sh_Alex]

Формула длинная, поэтому посмотрите прикрепленный файл. Именованные формулы.
С уважением, Александр.

[viter.alex]

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

Вы читали правила форума?
С такими задачами вам путь в раздел Помощь студентам...
А с таким названием тема уже давно должна быть закрыта.

Хорошо, я смотрю, Вы тут устроились - уже даже вопросов не задаёте.
Просто скидываете условие задачи, и всё - пусть умные дяди сами думают, что и как сделать...

Предлагаю бойкот

[Incognitoal]

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

Вы читали правила форума?
С такими задачами вам путь в раздел Помощь студентам...
А с таким названием тема уже давно должна быть закрыта.

Хорошо, я смотрю, Вы тут устроились - уже даже вопросов не задаёте.
Просто скидываете условие задачи, и всё - пусть умные дяди сами думают, что и как сделать...

Нет, не читал В следующий раз буду туда обращаться, а сейчас не закрывайте тему

Sh_Alex, Вы скинули как сделать через Ексел, а мне нада функция в ВБА, которая всё будет это подсчитывать.

Public Sub prog()
Dim r As Double, s As Double, a As Double
r = Val(InputBox("Введите r"))
Pi = 3.14
s = Pi * r * r
a = Val(InputBox("Введите a"))
s = A2

вот функция на нахождения площади круга и площади квадрата, А вот как вывести название и значение площади большей фигуры - без понятий - помогите

[viter.alex]

Ну это хоть что-то. Держите, юноша.

Public Sub prog()
  On Error GoTo Ошибка
  Dim r As Double, s As String, a As Double
  Const Pi = 3.14
  r = InputBox("Введите r", "Радиус круга")
  a = InputBox("Введите a", "Сторона квадрата")
  s = IIf(Pi * r ^ 2 > a ^ 2, "Площадь круга больше. Она равна " & Round(Pi * r ^ 2, 2), "Площадь квадрата больше. Она равна " & Round(a ^ 2, 2))
  MsgBox s & " ед.кв", vbOKOnly + vbInformation, "Результаты вычислений"
Ошибка:
End Sub

[Incognitoal]

IIf(Pi * r ^ 2 > a ^ 2, "Площадь круга больше. Она равна " & Round(Pi * r ^ 2, 2), "Площадь квадрата больше. Она равна " & Round(a ^ 2, 2)) - Что здесь означает это IIf , Round?
vbOKOnly + vbInformation - что это значит?

п.с. viter.alex, спасибо тебе огромное за помощь

[viter.alex]

Неужели трудно прочитать справку?
IIf — это Immediate If, т.е. мгновенный If. Синтаксис записи такой:

IIf (<Условие>, если условие истинно, если условие неистинно)
'Например
a = IIf(b>c,b,c)
'Если b больше c, то переменной a будет присвоено значение переменной b, а если b меньше c, то переменной a будет присвоенозначение переменной c.

Функция Round округляет заданное число до нужного количества знаков после запятой. В твоей фукции округляет до двух знаков.
vbOKOnly определяет, что в сообщении нужно показать только кнопку OK, а vbInformation — показывает в сообщении слева значок с облачком и буквой i