TURBO PASCAL

Новости       

Программы

Turbo Pascal

Игры

Документация

"Странности"

FAQ

Ссылки

Благодарности 

Гостевая книга

Спонсор

От автора

 

Практическое задание N 1. 3

            1.  Рассчитать площадь треугольника по формуле Герона:

S = Ö(p*(p-a)*(p-b)*(p-c)),   где    p=(a+b+c)/2 - полупериметр.

a,  b,  c - стороны треугольника ( исходные данные ).

            2.  Рассчитать  высоты,  медианы и биссектрисы треугольника по формулам:

Ha= 2*S/a - высота,  опущенная на сторону "a",  аналогично для Hb,  Hc;

Ma=  Ö(2*b2 + 2*c2 - a2)/2 - медиана,   аналогично для Mb,  Mc;

Ba= 2* Ö(b*c*p*(p-a) )/(b+c) - биссектриса,  аналогично для Bb,  Bc;

a,  b,  c - стороны треугольника ( исходные данные ).   S - площадь,  p -полупериметр треугольника.

            3.  Рассчитать радиус окружности,  вписанной в треугольник R1= S/p

и описанной вокруг треугольника R2= a*b*c/(4*S),  где S - площадь,  а p - полупериметр треугольника.  a,  b,  c - стороны треугольника ( исходные данные ).

            4.  Рассчитать сумму "S" первых N членов арифметической прогрессии A1, A2, . . . ,      AN по формуле: S= (A1 + AN)*N/2.   A1,  AN,  N - исходные данные

            5.  Рассчитать сумму "S" первых N членов ряда геометрической прогрессии B1,  B2, . . . , BN по формуле:  S= (B1 - BN*Q)/(1-Q). BN =B1 *QN.  B1, Q - исходные данные.

            Примечание:  Программы запрашивают ввод исходных данных с клавиатуры и выводят результаты расчета на экран.  Программой контроль данных не производится.

 

На первую страницу

Rambler's Top100 PROext: Top 1000
Rambler's Top100

(с) Все права защищены.

По всем интересующим вопросам прошу писать электронный адрес

Hosted by uCoz