согласно исследованиям руководитель от 50 до 90% всего времени тратит на коммуникации. это кажется невероятным, но становится понятным, если учесть, что руководитель занимается этим, чтобы реализовать свои роли в межличностных отношениях, информационном обмене и процессах принятия решений, не говоря об функциях планирования, организации, мотивации и контроля. именно потому, что обмен информацией встроен во все основные виды деятельности, мы называем коммуникации связующим процессом.
поскольку руководитель исполняет три свои роли и осуществляет четыре основные функции, с тем, чтобы сформулировать цели организации и достичь их, качество обмена информацией может прямо влиять на степень реализации целей. это означает, что для успеха индивидов и организаций необходимы эффективные коммуникации.
хотя общепризнанно, что коммуникации имеют огромное значение для успеха организаций, опросы показали, что 73% американских, 63% и 85% японских руководителей считают коммуникации главным препятствием на пути достижения эффективности их организациями. согласно еще одному опросу примерно 250 тыс. работников 2000 самых разных компаний, обмен информацией представляет одну из самых сложных проблем в организациях. эти опросы показывают, что неэффективные коммуникации - одна из главных сфер возникновения проблем. глубоко осмысливая коммуникации на уровне личности и организации, мы должны учиться снижать частоту случаев неэффективных коммуникаций и становиться лучшими, более эффективными менеджерами. эффективно работающие руководители - это те, кто эффективны в коммуникациях. они представляют суть коммуникационного процесса, хорошо развитым умением устного и письменного общения и понимают, как среда влияет на обмен информацией. начнем с анализа коммуникационного процесса в организациях. размышляя об обмене информацией в организации, обычно думают о людях, которые говорят в процессе личного общения или в группах на собраниях, разговаривают по телефону или читают и составляют записки, письма и отчеты. хотя на эти случаи приходится основная часть коммуникаций в организации, коммуникации представляют собой всепроникающий и сложный процесс
Используется формула Гаусса (формула "шнурования").
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
- с функцией:
function SPolygonGauss(a:array of real):real; // Возвращает вычисленную по формуле Гаусса площадь многоугольника, // координаты вершин которого заданы массивами х и у begin var (n,i):=(a.Length-4,0); Result:=0.0; while i<=n do begin Result+=a[i]*a[i+3]-a[i+1]*a[i+2]; i+=2 end; Result:=Abs(0.5*Result) end;
begin var x:=ReadArrReal('Введите координаты вершин 5-угольника:',10); SetLength(x,12); x[10]:=x[0]; x[11]:=x[1]; Writeln('Площадь равна ',SPolygonGauss(x)) end.
Пример Введите координаты вершин 5-угольника: 0.6 2.1 1.8 3.6 2.2 2.3 3.6 2.4 3.1 0.5 Площадь равна 3.915
- с процедурой:
procedure SPolygonGauss(a:array of real; var s:real); // Вычисляет по формуле Гаусса площадь многоугольника, // координаты вершин которого заданы массивами х и у begin var (n,i):=(a.Length-4,0); s:=0.0; while i<=n do begin s+=a[i]*a[i+3]-a[i+1]*a[i+2]; i+=2 end; s:=Abs(0.5*s) end;
begin var x:=ReadArrReal('Введите координаты вершин 5-угольника:',10); SetLength(x,12); x[10]:=x[0]; x[11]:=x[1]; var s:real; SPolygonGauss(x,s); Writeln('Площадь равна ',s) end.
согласно исследованиям руководитель от 50 до 90% всего времени тратит на коммуникации. это кажется невероятным, но становится понятным, если учесть, что руководитель занимается этим, чтобы реализовать свои роли в межличностных отношениях, информационном обмене и процессах принятия решений, не говоря об функциях планирования, организации, мотивации и контроля. именно потому, что обмен информацией встроен во все основные виды деятельности, мы называем коммуникации связующим процессом.
поскольку руководитель исполняет три свои роли и осуществляет четыре основные функции, с тем, чтобы сформулировать цели организации и достичь их, качество обмена информацией может прямо влиять на степень реализации целей. это означает, что для успеха индивидов и организаций необходимы эффективные коммуникации.
хотя общепризнанно, что коммуникации имеют огромное значение для успеха организаций, опросы показали, что 73% американских, 63% и 85% японских руководителей считают коммуникации главным препятствием на пути достижения эффективности их организациями. согласно еще одному опросу примерно 250 тыс. работников 2000 самых разных компаний, обмен информацией представляет одну из самых сложных проблем в организациях. эти опросы показывают, что неэффективные коммуникации - одна из главных сфер возникновения проблем. глубоко осмысливая коммуникации на уровне личности и организации, мы должны учиться снижать частоту случаев неэффективных коммуникаций и становиться лучшими, более эффективными менеджерами. эффективно работающие руководители - это те, кто эффективны в коммуникациях. они представляют суть коммуникационного процесса, хорошо развитым умением устного и письменного общения и понимают, как среда влияет на обмен информацией. начнем с анализа коммуникационного процесса в организациях. размышляя об обмене информацией в организации, обычно думают о людях, которые говорят в процессе личного общения или в группах на собраниях, разговаривают по телефону или читают и составляют записки, письма и отчеты. хотя на эти случаи приходится основная часть коммуникаций в организации, коммуникации представляют собой всепроникающий и сложный процесс
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
- с функцией:
function SPolygonGauss(a:array of real):real;
// Возвращает вычисленную по формуле Гаусса площадь многоугольника,
// координаты вершин которого заданы массивами х и у
begin
var (n,i):=(a.Length-4,0);
Result:=0.0;
while i<=n do begin
Result+=a[i]*a[i+3]-a[i+1]*a[i+2];
i+=2
end;
Result:=Abs(0.5*Result)
end;
begin
var x:=ReadArrReal('Введите координаты вершин 5-угольника:',10);
SetLength(x,12);
x[10]:=x[0];
x[11]:=x[1];
Writeln('Площадь равна ',SPolygonGauss(x))
end.
Пример
Введите координаты вершин 5-угольника: 0.6 2.1 1.8 3.6 2.2 2.3 3.6 2.4 3.1 0.5
Площадь равна 3.915
- с процедурой:
procedure SPolygonGauss(a:array of real; var s:real);
// Вычисляет по формуле Гаусса площадь многоугольника,
// координаты вершин которого заданы массивами х и у
begin
var (n,i):=(a.Length-4,0);
s:=0.0;
while i<=n do begin
s+=a[i]*a[i+3]-a[i+1]*a[i+2];
i+=2
end;
s:=Abs(0.5*s)
end;
begin
var x:=ReadArrReal('Введите координаты вершин 5-угольника:',10);
SetLength(x,12);
x[10]:=x[0];
x[11]:=x[1];
var s:real;
SPolygonGauss(x,s);
Writeln('Площадь равна ',s)
end.