Написать программу для на турбо паскале заданы координаты трёх точек на плоскости а(x1,y1) b(x2,y2) c(x3,y3) найдите расстояние между точками ab и ac по форумуле d=корень из(x2-x1)^2+(y2-y1)^2 x1=8 y1=12 x2=12.5 y2=14 x3=-3.5 y3=-5.2
Var x1,x2,x3,y1,y2,y3:integer; begin read(x1,y1); read(x2,y2); read(x3,y3); writeln('ab',sqrt(sqr(x2-x1))+sqr((y2-y1; writeln('ac',sqrt(sqr(x3-x1))+sqr((y3-y1; end.
Коль кругом всё будет мирно, Так сидеть он будет смирно; Но лишь чуть со стороны Ожидать тебе войны, Иль набега силы бранной, Иль другой беды незваной, Вмиг тогда мой петушок Приподымет гребешок, Закричит и встрепенется И в то место обернется».
Здесь описывается алгоритм ветвления (если...то, иначе):
Коль кругом всё будет мирно, (Если всё мирно) Так сидеть он будет смирно; (То сидит смирно) Но лишь чуть со стороны (Иначе) Ожидать тебе войны, (Или) Иль набега силы бранной, (Или) Иль другой беды незваной, Вмиг тогда мой петушок...
begin
read(x1,y1);
read(x2,y2);
read(x3,y3);
writeln('ab',sqrt(sqr(x2-x1))+sqr((y2-y1;
writeln('ac',sqrt(sqr(x3-x1))+sqr((y3-y1;
end.