Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

100 БАЛЛОВ! ПАСКАЛЬ! Даны точки A и B .A(x1;y1) B(x2;y2).определить: к какой четверти на координатной плоскости относятся точки A и B.2)найти расстояние от точки A до начала координат.

Ответ оставил Гость

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
type
  Point=record
  x,y:real
  end;
 
function ReadPoint(c:char):Point;
begin
  Write(Координаты точки ,c,: );
  Read(Result.x,Result.y);
end;

procedure Quarter(a:Point);
begin
  Write(Точка (,a.x,,,a.y,) );
  if a.x<0 then begin
    if a.y>0 then Writeln(принадлежит II четверти)
    else
      if a.y=0 then Writeln(лежит на оси абсцисс)
      else Writeln(принадлежит III четверти)
    end
  else
    if a.x=0 then begin
      if a.y=0 then Writeln(лежит на пересечении координатных осей)
      else Writeln(лежит на оси ординат)
      end
    else
      if a.y<0 then Writeln(принадлежит IV четверти)
      else begin
        if a.y=0 then Writeln(лежит на оси абсцисс)
        else Writeln(принадлежит I четверти)
        end
end;

begin
  var a,b:Point;
  a:=ReadPoint(A); b:=ReadPoint(B);
  Quarter(a); Quarter(b);
  Write(Расстояние от точки А до начала координат: );
  Writeln(sqrt(sqr(a.x)+sqr(b.x)))
end.

Тестовое решение:
Координаты точки A: -3.7 1.73
Координаты точки B: 6 8
Точка (-3.7,1.73) принадлежит II четверти
Точка (6,8) принадлежит I четверти
Расстояние от точки А до начала координат: 7.04911341943084