Bluetooth
Плюсы:
1.для связи устройств совершенно не требуется прямой видимости — устройства начинают «видеть» друг друга будучи сближенными на определенное расстояние.
2.низкое энергопотребление и стоимость, а также относительную универсальность (при соединении не важен тип устройства, определяющим является лишь поддерживаемый профиль).
минусы:
1.Относительная универсальность является как преимуществом, так и недостатком Bluetooth. Во-первых, не все адаптеры поддерживают все профили (именно по этой причине универсальность Bluetooth является относительной).
Во-вторых, в некоторых ситуациях эта самая универсальность может оказаться излишней (например, могут возникнуть трудности при нахождении устройства в сети с большим числом подключений).
3. Одним из главных недостатков сетей Bluetooth является обеспечиваемый уровень безопасности.
WiFi
плюсы:
1. высокая скорость передачи данных
2. Сети Wi-Fi не создают помех(относительно Bluetooth)
3. Простая настройка Wi-Fi сетей
4. Wi-Fi модуль может объединить всю электронику в доме
минусы:
1. Велико влияние окружающей среды на передачу данных
2. Ограниченный радиус действия. У каждого Wi-Fi модуля он свой (может достигать до 500 метров)
3. На качество связи влияет толщина стен и другие препятствия
4. Высокое энергопотребление (это страшно для устройств, работающих от аккумулятора)
GPRS
плюсы:
1. покрытие почти всех общественных мест (не нужно иметь проводов и станций чтобы пользоваться услугами связи, те мобильность)
2. низкое энергопотребление.
минусы:
1. из-за разного покрытия регионов, уровень сигнала может быть нестабильным в некоторых местах.
2. из-за большого скопления людей в одном месте, уровень сигнала может падать
3. полная зависимость от оператора связи
общие плюсы:
1. Отсутствие проводов – это один из самых главных плюсов всех беспроводных сетей
2. безопасность. Все перечисленные беспноводные сети безопасны для человека.
n = 25;
var
a: array[1..n] of real;
i, j: integer;
min, max: real;
sum, product, harmonic: real;
begin
{ввод массива}
writeln('Данные массива:');
for i := 1 to n do
begin
a[i] := random(40) - 20;
write(a[i], ' ');
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
sum := sum + a[i];
writeln('average = ', sum / n);
{минимум и максимум}
min := a[1];
for i := 1 to n do
if min > a[i] then min := a[i];
writeln('min = ', min);
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if i mod 2 = 0 then {если нужен фильтр}
sum := sum + a[i];
writeln('sum = ', sum);
end.