Вопрос, который вызвал трудности
Написать программу на языке basic вычисления площади квадрата и периметра прямоугольника НА ВЫБОР ПОЛЬЗОВАТЕЛЯ
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так: Написать программу на языке basic вычисления площади квадрата и периметра прямоугольника НА ВЫБОР ПОЛЬЗОВАТЕЛЯ
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
MS DOS QBasic 1.0
Dim n As Integer, a As Double, b As Double
CLS
INPUT "0-площадь квадрата, иное-периметр прямоугольника"; n
If n = 0 Then
INPUT "Длина стороны: "; a
Print "Площадь квадрата " + Str$(a ^ 2)
Else
INPUT "Длина стороны прямоугольника: "; a
INPUT "Ширина стороны прямоугольника: "; b
Print "Периметр прямоугольника " + Str$(2 * (a + b))
End If
Dim n As Integer, a As Double, b As Double
CLS
INPUT "0-площадь квадрата, иное-периметр прямоугольника"; n
If n = 0 Then
INPUT "Длина стороны: "; a
Print "Площадь квадрата " + Str$(a ^ 2)
Else
INPUT "Длина стороны прямоугольника: "; a
INPUT "Ширина стороны прямоугольника: "; b
Print "Периметр прямоугольника " + Str$(2 * (a + b))
End If