// 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
Во вложениях приведено решение этой же задачи в онлайн-калькуляторе. ответ совпадает.
1) Текстовой процессор - программа, выполняющая любые операции с документами. Текстовой редактор - программа, лишь редактирующая документ.
Сходства: обе программы, редактируют документ. Различия: процессор имеет неограниченные возможности для работы с документом, а редактор лишь редактирует его.
2) Текстовый документ - документ, содержащий в себе какую-либо информацию, представленную в текстовом виде или документ, дающий возможность редакторам и процессорам изменять и видоизменять его.
// Внимание! Если программа не работает, обновите её версию!
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
Во вложениях приведено решение этой же задачи в онлайн-калькуляторе. ответ совпадает.