Определить, площадь какой фигуры больше - ошибка при выводе результата - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д