Есть ответ 👍

100 ! паскаль! даны точки a и b .a(x1; y1) b(x2; y2).определить: к какой четверти на координатной плоскости относятся точки a и b.2)найти расстояние от точки a до начала координат.

155
326
Посмотреть ответы 3

Ответы на вопрос:

tasikmk09
4,6(87 оценок)

// 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. end. тестовое решение: координаты точки a: -3.7 1.73 координаты точки b: 6 8 точка (-3.7,1.73) принадлежит ii четверти точка (6,8) принадлежит i четверти расстояние от точки а до начала координат: 7.04911341943084

//как давно я не писал program //pascal abc.net v3.1 сборка 1219 program boshe10iz10; var   xa,ya,xb,yb: real;   function qua(x,y: real): byte;   begin   if (x> 0) and (y> 0) then qua: =1;     if (x< 0) and (y> 0) then qua: =2;     if (x< 0) and (y< 0) then qua: =3;       if (x> 0) and (y< 0) then qua: =4;   end;   function dist(x,y: real): real;   begin     dist: =sqrt(sqr(x)+sqr(y));   end; begin   read(xa,ya,xb,yb);   writeln('point a in ',qua(xa,ya),' quarter');   writeln('point b in ',qua(xb,yb),' quarter');   writeln('the distance from the origin to the point a=',dist(xa,ya)); end. пример ввода: 2.75 -7.25 3 4 пример вывода: point a in 4 quarter point b in 1 quarter the distance from the origin to the point a=7.75403120963541

Щя налетят те кому нужны

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS