Кез-келген екі санның көбейтіндісін программалау​

Сымсыз желі

Сымсыз желіні екі жолмен теңшеуге болады. Яғни. Арнайы режим. Сымсыз құрылғыларға WLAN карталары мен байланыс үшін кіру нүктелері қажет.

Сымсыз желілер өте қымбат тұратын сымсыз адаптерлер мен кіру нүктелері сияқты жабдықты қажет етеді. Сымсыз желілердің құны сымды желілермен салыстырғанда жоғары.

Сымсыз желімен қамтамасыз етілетін ең жоғары өткізу қабілеті шамамен 11 Мбит құрайды.

Сымсыз желінің сенімділігі сымды желіге қарағанда төмен.

Деректерді қорғау үшін WLANS кабель (WEP) арқылы құпиялылықтың балама шифрлауын қолданады. Бұл сымсыз желілерді сымды желілер сияқты қауіпсіз етеді.

Ноутбуктер мен басқа есептеу құрылғылары сымсыз желіде еркін қозғалады, өйткені сымсыз желінің ұтқырлығы сымды желілермен салыстырғанда жақсырақ.

Const
    n = 30;

type
    array100 = array [1..100] of integer;

var
    a: array100;
    i, t: integer;
    f: boolean;

procedure PrintArray(var a: array100);
var
    i: integer;
begin
    for i := 1 to n do
        write(a[i]:3, ' ');
    writeln;
end;

begin
    randomize;
    for i := 1 to n do
        a[i] := random(99) - 50;
       
    PrintArray(a);
   
    repeat
        f := true;
        for i := 1 to n - 1 do
            if (a[i] < 0) and (a[i + 1] >= 0) then begin
                f := false;
                t := a[i];
                a[i] := a[i + 1];
                a[i + 1] := t;
            end;
    until f;
    PrintArray(a);
   
    readln;
end.