В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
tyrko24111995
tyrko24111995
01.07.2020 05:17 •  Информатика

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

Показать ответ
Ответ:
НезнайкаФдпун
НезнайкаФдпун
31.07.2020 19:01
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота