1) Потому, что люди ленивы.
2) Потому, что всё просто, если знаешь как.
1-3, 2-2, 3-2 скорее всего, там плохо видно, 4- D:\каталог и все
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (x,eps):=ReadReal2('Введите аргумент и точность:');
var (i,s,px,fn,x2):=(1,0.0,x,1.0,x*x);
var t:real;
repeat
t:=px/fn; i+=1; px*=x2; fn*=(2*i-1)*(2*i-2); s+=t
until Abs(t)<=eps;
Writeln(s:0:15,' - расчетное значение');
Writeln(Sinh(x):0:15,' - вычислено функцией Sinh(x)')
end.
<u>Примеры</u>
Введите аргумент и точность: 1.543 1e-8
2.232433065790520 - расчетное значение
2.232433065795030 - вычислено функцией Sinh(x)
Введите аргумент и точность:1 .543 1e-15
2.232433065795030 - расчетное значение
2.232433065795030 - вычислено функцией Sinh(x)
Введите аргумент и точность: -12.6 1e-7
-148279.282647414000000 - расчетное значение
-148279.282647415000000 - вычислено функцией Sinh(x)
<span>В Древней Индии писали на камне и листьях пальмы. Листья пальмы высушивали и нарезали длинными, узкими пластинами. На пальмовых листьях писали чернилами из сажи, разведенной в подслащенной воде </span>
<span>Если для записи использовалось более одного листа, то все написанные листы соединяли бечевкой, концы которой прикреплялись к хорошо обструганным деревянным дощечкам. Пальмовые листы находились между двумя дощечками, как книга в переплете. Иногда поверхность дощечек покрывали тонкими серебряными пластинами с узорной резьбой.</span>
Type Point=record
x: integer;
y: integer;
end;
var p1, p2, p3, p4 : Point;
function length(p1, p2 : Point) : real;
begin
length := sqrt(sqr(p1.x - p2.x) + sqr(p1.y - p2.y));
end;
Begin
readln(p1.x, p1.y);
readln(p2.x, p2.y);
readln(p3.x, p3.y);
readln(p4.x, p4.y);
if (length(p1, p2) = length (p3, p4)) and (length(p3, p2) = length (p1, p4)) then
writeln('P = ', abs(2 * (length(p1, p2) + length(p3, p2)) ))
else writeln('No');
End.
