{* Задача282 *}

REM basic

' Вычислить площадь равнобедренного треугольника с основанием А
' S = 1/2*A*(корень(B^2-(A^2/4)))
' Выполнить чертёж в соответствии с 1 заданием


SCREEN 7
INPUT a, b
s = 1 / 2 * a * SQR(b ^ 2 - (a ^ 2 / 4))
PRINT "S="; s
x = 50:y = 180
If a < 20 Then a = a * 10 Else If a < 40 Then a = a * 5
If b < 20 Then b = b * 10 Else If b < 40 Then b = b * 5
LINE (x, y)-(x + a, y), 15
LINE (x, y)-(x + a / 2, y - SQR(b ^ 2 - (a ^ 2 / 4))), 15
LINE (x + a, y)-(x + a / 2, y - SQR(b ^ 2 - (a ^ 2 / 4))), 15