написать код на ПИТОНЕ . по этой задаче

Написать функции RectP(x1, y1, x2, y2), RectS(x1, y1, x2, y2), вычисляющие

периметр P и площадь S прямоугольника со сторонами, параллельными осям

координат, по координатам (x1, y1), (x2, y2) его противоположных вершин. Все

параметры вещественного типа. С этих функции найти периметры и

площади трех прямоугольников. Вершины прямоугольников ввести с

клавиатуры.

PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)

const  xMin    = 1.5;  xMax    = 2.3;  xDelta  = 0.1; var  x, y, resultSum: real;  valueOfIt: integer; begin  x := xMin;  while x <= xMax do    begin      y := 0.5 + Sqrt(Power(x, 2.0) + 1) - Power(Tan(Power(x, 2.0) + 1), 2.0);      if (y < 0) then        resultSum := resultSum + y;      x := x + xDelta;      valueOfIt := valueOfIt + 1;    end;  Writeln('Среднее отрицательных значений: ', resultSum / valueOfIt); end.ответ

Среднее отрицательных значений: -12.7547010184892

Формула Бине:

При работе с типом double имеет место быть некоторая погрешность. При больших числах относительная погрешность стремится к 0.

Код:

#include <iostream>#include <cmath>#define sqrt5 sqrt(5)#define   (1 + sqrt5)/2#define n (1 - sqrt5)/2long long fibBinet(int n) {    return (long long) round((pow(, n) - pow(n, n)) / sqrt5);}int main() {    long long binet77 = fibBinet(77);    std::cout << "fibBinet(77) = " << binet77 << " (5527939700884757)" << std::endl;    std::cout << "A = " << abs(5527939700884757ll - binet77) << std::endl;    std::cout << "B = " << 5527939700884757ll / binet77 << std::endl;    return 0;}