Медианы трекгольника

[vlad-ik-93]

Прошу помочь написать на QBasic

[Sasha_Smirnov]

Так начни хотя бы.

[vlad-ik-93]

Я, собственно, по этому сюда и пишу, за несколько лет совершенно все забыл (

[vlad-ik-93]

блин, это же элементарно.
Правильно?

CLS
PRINT "Vvedite variant:"
PRINT
PRINT "1. a=b=c=3.7"
PRINT "2. a=4.6 b=9.5 c=8.3"
PRINT
INPUT z

IF z = 1 THEN
 a = 3.7
 b = a
 c = a
ELSE
 a = 4.6
 b = 9.5
 c = 8.3
END IF


ma = SQR(2 * b ^ 2 + 2 * c ^ 2 - a ^ 2) \ 2
mb = SQR(2 * a ^ 2 + 2 * c ^ 2 - b ^ 2) \ 2
mc = SQR(2 * a ^ 2 + 2 * b ^ 2 - c ^ 2) \ 2
PRINT

IF z = 1 THEN
PRINT "Pri a=b=c=3.7"; "   ma=mb=mc="; ma
ELSE
PRINT "Pri a=4.6 b=9.5 c=8.3"; "   ma="; ma; "mb="; mb; "mc="; mc
END IF

END