• СРОЧНО ДАМ 14 БАЛОВ
    СРОЧНО ПОМОГИТЕ
    СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ НАХОЖДЕНИЯ ПЕРИМЕТРА ПРЯМОУГОЛЬНИКА ПО ЗАДАННЫМ КООРДИНАТАМ ЕГО ВЕРШИН АBCDE

Ответы 7

  • опять не точно, b - используется :D
    • Автор:

      keenan
    • 6 лет назад
    • 0
  • Увы да, тут невозможно исправлять описки, а система обозначений переменных у Вас меня просто у ума сводит, настолько она неинформативна, отсюда и описки
  • Могу еще Вас "порадовать", что по Вашей программе значения периметра может получаться отрицательным и даже нулевым! )))
    • Автор:

      cubs
    • 6 лет назад
    • 0
  • Неверно с abs, надо к каждой разности ставить.... проверьте для случая, когда by>ay, cx<bx
  • У Вас каждая разность - длина стороны, а длина не может быть отрицательной.
  • var ax,ay,bx,by,cx,cy,dx,dy,p:real;beginwrite ('Введите координаты точки A: ');read (ax,ay);write ('Введите координаты точки B: ');read (bx,by);write ('Введите координаты точки C: ');read (cx,cy);write ('Введите координаты точки D: ');read (dx,dy);p:=abs(2*((by-ay)+(cx-bx)));writeln;writeln ('Периметр = ',p);end.
    answer img
    • Автор:

      osborne
    • 6 лет назад
    • 0
  • var  Ax,Ay,Cx,Cy,P:real;begin  Writeln('Введите координаты x,y любой вершины прямоугольника: ');  Read(Ax,Ay);  Writeln('Введите координаты x,y диагональной вершины прямоугольника: ');  Read(Cx,Cy);  P:=2*(Abs(Cx-Ax)+Abs(Cy-Ay));  Writeln('Периметр прямоугольника равен ',P)end.Тестовое решение:Введите координаты x,y любой вершины прямоугольника: 2 10Введите координаты x,y диагональной вершины прямоугольника: -8 3Периметр прямоугольника равен 34
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years