Определить, площадь какой фигуры больше - ошибка при выводе результата - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток! Стояла задача: Заданы радиус круга и сторона квадрата. Определить, площадь какой фигуры больше. Я составил блок-схему и такой код:
В итоге, если площадь круга получается больше, то он выдаёт ещё и "площади фигур равны". Почему - не понятно. Попробовал переделать код - заработало, но теперь не пойму, как составить по нему блок-схему. С тремя блоками условия? Переделанный код:

Решение задачи: «Определить, площадь какой фигуры больше - ошибка при выводе результата»

textual
Листинг программы
Private Sub Command1_Click()
Dim R!, A!, KR!, KV!, st$
R = Val(InputBox("Введите R", , 10))
A = Val(InputBox("Введите A", , 15))
pi = Atn(1) * 4
KR = pi * R ^ 2
KV = A ^ 2
If KR > KV Then
    st = "Площадь круга больше"
ElseIf KR < KV Then
    st = "Площадь квадрата больше"
Else
    st = "Площади фигур равны"
End If
Call MsgBox("Площадь круга = " & KR & vbCrLf & "Площадь квадрата = " & KV & vbCrLf & st, 64 + 1)
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы