Вопрос, который вызвал трудности
Даны четыре точки A1(x1,y1), A2(x2,y2), A3(x3,y3), A4(x4,y4). Определить, будет ли они вершинами параллелограмма. На паскале, пожалуйста
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
beginvar x1, x2, x3, x4, y1, y2, y3, y4: double; writeln('Введите x1'); readln(x1); writeln('Введите x2'); readln(x2); writeln('Введите x3'); readln(x3); writeln('Введите x4'); readln(x4); writeln('Введите y1'); readln(y1); writeln('Введите y2'); readln(y2); writeln('Введите y3'); readln(y3); writeln('Введите y4'); readln(y4);if((y1-y4=y2-y3) AND (x2-x1=x3-x4)) thenwriteln('ABCD - параллелограмм')else writeln('ABCD - не параллелограмм');end.