Версия для печати темы

Автор: Nastyxa 9.03.2017 20:50

На плоскости задан квадрат координатами верхнего левого угла и длиной стороны. Определить находится ли отрезок, заданный координатами концов, полностью внутри квадрата или одним концом, или находится полностью снаружи. Значение вводить в диалоге, иметь возможность повторного обращения

Автор: Федосеев Павел 10.03.2017 15:51

program Func;

var
  Xq, Yq, Lq: integer;{квадрат}
  x1, y1, x2, y2: integer; {отрезок}
  R: integer;
  Dialog: char;
begin

  repeat
    writeln('Введите координаты X, Y верхнего угла квадрата');
    readln(Xq, Yq);
    writeln('Введите длину стороны L квадрата');
    readln(Lq);
    writeln('Введите координаты X1, Y1, X2, Y2 точек отрезка');
    readln(x1, y1, x2, y2);
    R := 0;
    if (Xq <= x1) and (Xq + Lq >= x1) and (Yq <= y1) and (Yq + Lq >= y1) then
      R := 1;
    if (Xq <= x2) and (Xq + Lq >= x2) and (Yq <= y2) and (Yq + Lq >= y2) then
      R := R + 10;
    case R of
      0: writeln('Полностью снаружи');
      1, 10: writeln('Один конец внутри');
      11: writeln('Полностью внутри квадрата');
    end;
    writeln('Повторить? (Y/N)');
    readln(Dialog);
  until (Dialog = 'N') or (Dialog = 'n');
end.

Автор: furosemide to torsemide conversi 12.11.2021 22:26

Canada Drug Pharmacy Free Shipping Code

Автор: what are the side effects of gab 11.12.2021 0:11

cialis in dubai

Автор: should i take 1mg or 5mg of prop 21.12.2021 3:02

Cod generic isotretinoin direct discount amex accepted

Автор: where to buy zithromax for chlam 21.12.2021 5:50

Cialis 2