zadach281.BAS

{* Задача281 *}

REM basic

' Вычисление площади любого четырёхугольника S=1/2*D1*D2*sinA


CLS
INPUT "введите d1";d1
INPUT "введите d2";d2
INPUT "введите a";a
S=0.5*d1*d2*SIN(a)
PRINT "площадь равна";S
PRINT "если вы хотите закончить работу введите 0"
INPUT e
If e0 Then GoTo 1