5 точек заданы своими координатами. Создать массив из расстояний от этих точек до начала координат . Вычисление расстояния оформить в процедуре ( обязательно )
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016 // Внимание! Если программа не работает, обновите её версию!
function Len(ax,ay,bx,by:real):=sqrt(sqr(bx-ax)+sqr(by-ay));
var x,y,L:array[1..4] of real; begin Writeln('Введите координаты четырех точек (парами х,y)'); for var i:=1 to 4 do Read(x[i],y[i]); for var i:=1 to 3 do L[i]:=Len(x[i],y[i],x[i+1],y[i+1]); L[4]:=Len(x[4],y[4],x[1],y[1]); var s:=0.0; for var i:=1 to 4 do s+=L[i]; Writeln('P=',s) end.
Пример Введите координаты четырех точек (парами х,y) -5 -4.7 -3.2 6.7 5.1 8 7.4 -6.13 P=46.7405707422041
Во вложениях приведено решение этой же задачи в онлайн-калькуляторе. ответ совпадает.
a) Переводим целую часть 91(10) в 2-ую систему последовательным делением на 2:
91/2 = 45, остаток: 1
45/2 = 22, остаток: 1
22/2 = 11, остаток: 0
11/2 = 5, остаток: 1
5/2 = 2, остаток: 1
2/2 = 1, остаток: 0
1/2 = 0, остаток: 1
91(10) = 1011011(2)
б)Переводим целую часть 675(10) в 8-ую систему последовательным делением на 8:
675/8 = 84, остаток: 3
84/8 = 10, остаток: 4
10/8 = 1, остаток: 2
1/8 = 0, остаток: 1
675(10) = 1243(8)
в)Переводим целую часть 270(10) в 16-ую систему последовательным делением на 16:
270/16 = 16, остаток: 14, 14 = E
16/16 = 1, остаток: 0
1/16 = 0, остаток: 1
270(10) = 10E(16)
Объяснение: