Написать программу ** языке basic вычисления площади квадрата и периметра прямоугольника...

Question

Написать программу на языке basic вычисления площади квадрата и периметра прямоугольника НА ВЫБОР ПОЛЬЗОВАТЕЛЯ

Answer 1

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

Comments

Спасибо, но я не о том. А почему не вот так: Print "Площадь квадрата ";a ^ 2? Использование строковой функции связано с какими-то соображениями? (Как всегда мы друг друга не понимаем))) Это не придирка, просто я хочу понять, почему именно так написали.

---

Понятно, большое спасибо!

---

Ну, Вы же знаете мою неспособность четко сформулировать вопрос )))

---

Не обижайтесь, я очень Вам благодарен, что тратите на меня время.