Описать функцию Otr(Ax,Bx,Ay,By) вещественного типа находящию длину отрезка AB на плоскасти по координатам его концов |AB|=(Ax-Bx)2+(Ay-By)2 (Ax,Ay,Bx,By)- вещественны параметры) с помощью этой функции найти длины отрезков AB,AC,AD, если с клавиатуры заданы координаты точек, A,B,C,D.
Ответы
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
function Otr(Ax, Bx, Ay, By: real) :=
Sqrt(Sqr(Bx - Ax) + Sqr(By - Ay));
begin
var Ax, Ay, Bx, By, Cx, Cy, Dx, Dy: real;
Readln(Ax, Ay, Bx, By, Cx, Cy, Dx, Dy);
Writeln('|AB|=', Otr(Ax, Bx, Ay, By));
Writeln('|AC|=', Otr(Ax, Cx, Ay, Cy));
Writeln('|AD|=', Otr(Ax, Dx, Ay, Dy))
end.
Пример
2.3 3.09 -4.2 6 8.5 -3 4 0
|AB|=7.12166413136705
|AC|=8.69069042136469
|AD|=3.52676905963518
Ответ дал:
0
Вы подобные фразы свои подружкам говорите, а тут "тыкать" не следует, не в хлеву находитесь.
Ответ дал:
0
Приношу извинения, не уследил на словами
Ну так что, Вы не против?
Ну так что, Вы не против?
Ответ дал:
0
Мне баллы не нужны. Я задачи решаю для удовольствия, а удовольствия дважды писать одно и то же - никакого.
Ответ дал:
0
Так на другом языке-совсем другое
Буду очень благодарен!
Буду очень благодарен!
Ответ дал:
0
С++ и Паскаль для подобных задач почти не отличаются. Чисто внешне.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад