ВВЕРХ
ВНИЗ

Расстояние между двумя точками

На этой странице дано решение примеров Begin16 - Begin18 из задачника Абрамяна. Здесь рассматриваются решения задач, связанные с расстояниями жежду точками на числовой оси и длинами отрезков.

Begin16. Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x2 − x1|.

Блок схема. Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x2 − x1|.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
var
  x1, x2: real; { <-- Координаты точек на прямой }

begin
  write('x1 = ');
  readln(x1);
  write('x2 = ');
  readln(x2);
  writeln('Расстояние между точками: ', abs(x2 - x1));
  readln
end.

Begin17. Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму.

Блок схема. Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
var
  x1, x2, x3, AC, BC: real;

begin
  write('Введите координату точки A: ');
  readln(x1);
  write('Введите координату точки B: ');
  readln(x2);
  write('Введите координату точки C: ');
  readln(x3);
  AC := abs(x3 - x1); { <-- расстояние между точками A и C }
  BC := abs(x3 - x2); { <-- расстояние между точками B и C }
  writeln(' AC = ', AC);
  writeln(' BC = ', BC);
  writeln(' AC + BC = ', AC + BC);
  readln
end.

Begin18. Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC.

Блок схема. Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
var
  x1, x2, x3, AC, BC: real;

begin
  writeln('Введите координаты точек A, B, C: ');
  readln(x1, x2, x3);
  AC := abs(x3 - x1); { <-- расстояние между точками A и C }
  BC := abs(x3 - x2); { <-- расстояние между точками B и C }
  writeln(' AC * BC = ', AC * BC);
  readln
end.



Яндекс.Метрика