<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal('x=');
var Fx := 1 / Tan(x) * Ln(x) ** 3 + Sin(x + 8);
Fx.Println
end.
Цетектор, вместо него <span>Модификатор.</span>
<span>прости я російська і пишу з перекладача прости що не так як там у вас на <span>Укрина</span></span>
Соединим заданные точки и получим отрезок, длина которого равна радиусу окружности. Длина этого отрезка вычисляется по известному выражению r² = (x₂-x₁)²+(y₂-y₁)²
Затем находим площадь круга S=πr² и длину окружности C=2πr
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x1,y1):=ReadReal2('Координаты центра x1 и y1:');
var (x2,y2):=ReadReal2('Координаты точки на окружности x2 и y2:');
var r:=Sqrt(Sqr(x2-x1)+Sqr(y2-y1));
var (S,C):=(Pi*r*r,2*Pi*r);
Writeln('S=',S,', C=',C)
end.
<u>Пример</u>
Координаты центра x1 и y1: 3 3.5
Координаты точки на окружности x2 и y2: 1.7 -2.8
S=129.999104005546, C=40.4180271718983
При ремонте квартиры необходимо знать метраж (ширина, длина комнат, высота потолков), каждая комната представляет собой квадрат или прямоугольник. Для покупки строительных материалов это важно знать. Необходимо также уточнить, где проложены коммуникации (электропроводка и пр.).
