В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
kotenok88
kotenok88
14.05.2021 09:45 •  Информатика

Решить. дан произвольный треугольник abc, для которого определен следующий набор характерных параметров: a, b,c - стороны треугольника, альфа, бета, гамма - углы (в градусах), h - высота, опущенная на сторону c, s - площадь, p - периметр треугольника. по трем заданным параметрам( s, h, альфа) в паскале.

Показать ответ
Ответ:
Ник0090
Ник0090
13.01.2021 06:04
DIM a AS SINGLE, b AS SINGLE, h AS SINGLE
DIM x AS SINGLE, y AS SINGLE
CLS
INPUT "Vvedite a,b,h: ", a, b, h
FOR x = a TO b STEP h
   y = 1 / 2 * LOG(x ^ 2) + 1 / x ^ 2 + 2 - 1 / 2 * LOG(2) / 3
   PRINT "x="; x, "y="; y
NEXT x
END

Тестовое решение:
Vvedite a,b,h: 2.7,8.4,0.5
x= 2.7        y= 3.014901
x= 3.2        y= 3.145283
x= 3.7        y= 3.265854
x= 4.2        y= 3.376249
x= 4.7        y= 3.477307
x= 5.2        y= 3.570116
x= 5.7        y= 3.65572
x= 6.2        y= 3.735039
x= 6.7        y= 3.80886
x= 7.2        y= 3.877846
x= 7.7        y= 3.942562
x= 8.2        y= 4.003482
0,0(0 оценок)
Ответ:
mrfurkan
mrfurkan
13.01.2021 06:04
DIM a AS SINGLE, b AS SINGLE, h AS SINGLE
DIM x AS SINGLE, y AS SINGLE
CLS
INPUT "Vvedite a,b,h: ", a, b, h
FOR x = a TO b STEP h
   y = 1 / 2 * LOG(x ^ 2) + 1 / x ^ 2 + 2 - 1 / 2 * LOG(2) / 3
   PRINT "x="; x, "y="; y
NEXT x
END

Тестовое решение:
Vvedite a,b,h: 2.7,8.4,0.5
x= 2.7        y= 3.014901
x= 3.2        y= 3.145283
x= 3.7        y= 3.265854
x= 4.2        y= 3.376249
x= 4.7        y= 3.477307
x= 5.2        y= 3.570116
x= 5.7        y= 3.65572
x= 6.2        y= 3.735039
x= 6.7        y= 3.80886
x= 7.2        y= 3.877846
x= 7.7        y= 3.942562
x= 8.2        y= 4.003482
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота