Задать вопрос
6 сентября, 07:06

Определить, какая из трех точек с координатами А (x1, y1), B (x2, y2), C (x3, y3) лежит ближе к началу координат и вывести на экран ее номер

+1
Ответы (1)
  1. 6 сентября, 08:55
    0
    Var

    {вводим точки, записываем в переменную max расстояние до первой точки, а в переменную max2 - номер точки. Если расстояние до следующей точки меньше, чем до первой точки, то сохраняем новые значения в max и max2}

    x1, y1, x2, y2, x3, y3, max, max2:real;

    begin

    readln (x1, y1, x2, y2, x3, y3) ;

    max:=sqrt (sqr (x1) + sqr (y1)) ;

    max2:=1;

    if sqrt (sqr (x2) + sqr (y2)) <=max then

    begin

    max:=sqrt (sqr (x2) + sqr (y2)) ;

    max2:=2;

    end;

    if sqrt (sqr (x3) + sqr (y3)) <=max then

    begin

    max:=sqrt (sqr (x3) + sqr (y3)) ;

    max2:=3;

    end;

    writeln (max,' ', max2) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Определить, какая из трех точек с координатами А (x1, y1), B (x2, y2), C (x3, y3) лежит ближе к началу координат и вывести на экран ее номер ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы