Дан треугольник со сторонами a, b, c.
INPUT "vvedite storony treugolnika ", a, b, c
m = ( b ^ 2 + c ^ 2 -a ^ 2) / (2 * b * c)
PRINT "ugol alfa ";
IF m < .000001 THEN PRINT "pryamoy" ELSE IF m < 0 THEN PRINT "tupoy" ELSE PRINT "ostryj"
m = ( a ^ 2 + c ^ 2-b ^ 2 ) / (2 * a * c)
PRINT "ugol beta ";
IF m < .000001 THEN PRINT "pryamoy" ELSE IF m < 0 THEN PRINT "tupoy" ELSE PRINT "ostryj"
m = ( a ^ 2 + b ^ 2-c ^ 2 ) / (2 * a * b)
PRINT "ugol gamma ";
IF m < .000001 THEN PRINT "pryamoy" ELSE IF m < 0 THEN PRINT "tupoy" ELSE PRINT "ostryj"
Похожие записи/страницы:
- Дан треугольник со сторонами a, b, c. Составить программу определения типов углов альфа, бета, гамма (прямой,…
- Составить программу определения принадлежности точек А (х1, у1), B (х2, у2), C (х3, у3) одной прямой- QBasic(Бейсик)
- Составить программу определения типа треугольника (равносторонний, равнобедренный, разносторонний) по заданным…
- Запрашивая у пользователя углы (b градусов), пока не введен 0, составить таблицы тригонометрических функций этих…
- Написать программу запроса у пользователя угла (b градусов), пока не введен 0, составить таблицы…
- Составить программу определения типа треугольника(равносторонний,равнобедренный,разносторонний) по заданным…