Предмет: Информатика,
автор: mgromada28
составьте программу вычисления расстояния между двумя точками с координатами x1 и x2 лежащим на числовой оси по формуле R|x1 -x2|
Ответы
Автор ответа:
3
//Код PascalABC.NET 3.3 (1627)
Function R1D(x1,x2: real): real;
Begin
Result := Abs(x1-x2);
End;
Var
a,b: integer;
Begin
Write('x1 = ');ReadLn(a);
Write('x2 = ');ReadLn(b);
WriteLn('Расстояние между x1 и x2: ',R1D(a,b));
End.
Function R1D(x1,x2: real): real;
Begin
Result := Abs(x1-x2);
End;
Var
a,b: integer;
Begin
Write('x1 = ');ReadLn(a);
Write('x2 = ');ReadLn(b);
WriteLn('Расстояние между x1 и x2: ',R1D(a,b));
End.
Похожие вопросы
Предмет: Математика,
автор: alisayegorovna
Предмет: Українська мова,
автор: ngorache7
Предмет: Математика,
автор: 1234567890a83
Предмет: Математика,
автор: neuch83