Работа 3.3 Упр.14 Задание 1 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 14. Заданы координаты (на плоскости) вершин четырехугольника. Определить, является ли он: а) ромбом; б) параллелограммом; в) прямоугольником; г) квадратом. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-3/zad1/14 98

Подробный ответ

Для проверки вида четырёхугольника удобно использовать длины его сторон и диагоналей.

Если все стороны равны, то четырёхугольник — ромб. Если при этом ещё и диагонали равны, то это квадрат. Если равны только противоположные стороны попарно, то это параллелограмм. Если у параллелограмма диагонали равны, то он является прямоугольником.

Возможный вариант программы на Pascal:

var
x1, x2, x3, x4, y1, y2, y3, y4: real;
d1, d2, a, b, c, d: real;
begin
readln(x1, y1, x2, y2, x3, y3, x4, y4);
a := sqrt((x2 — x1)*(x2 — x1) + (y2 — y1)*(y2 — y1));
b := sqrt((x3 — x2)*(x3 — x2) + (y3 — y2)*(y3 — y2));
c := sqrt((x4 — x3)*(x4 — x3) + (y4 — y3)*(y4 — y3));
d := sqrt((x1 — x4)*(x1 — x4) + (y1 — y4)*(y1 — y4));
d1 := sqrt((x3 — x1)*(x3 — x1) + (y3 — y1)*(y3 — y1));
d2 := sqrt((x4 — x2)*(x4 — x2) + (y4 — y2)*(y4 — y2));
if (a = b) and (b = c) and (c = d) then
begin
  if d1 = d2 then
    writeln(‘Это квадрат’)
  else
    writeln(‘Это ромб’);
end
else if (a = c) and (b = d) then
begin
  if d1 = d2 then
    writeln(‘Это прямоугольник’)
  else
    writeln(‘Это параллелограмм’);
end
else
  writeln(‘Это не параллелограмм’);
end.