• Помогите,программирование.
    Паскаль.
    Даны координаты концов двух отрезков.
    Найти длины этих отрезков и сравнить ,какой отрезок длинее.
    Напишите,пожалуйста,все подробно

Ответы 1

  • var    r1, r2, x1, y1, x2, y2, x3, y3, x4, y4 :real;begin  read(x1,y1,x2,y2,x3,y3,x4,y4);  if x1>x2 then r1:=(x1-x2)*(x1-x2)  else r1:=(x2-x1)*(x2-x1);  if y1>y2 then r1+=(y1-y2)*(y1-y2)  else r1+=(y2-y1)*(y2-y1);  if x3>x4 then r2:=(x3-x4)*(x3-x4)  else r2:=(x4-x3)*(x4-x3);  if y3>y4 then r2+=(y3-y4)*(y3-y4)  else r2+=(y4-y3)*(y4-y3);  if r1>r2 then writeln('Первый длинней второго')    else     if r1=r2 then writeln('Они равны')      else     writeln('Второй длинней первого');end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years