История ИНТЕРНЕТ

Динамические массивы Delphi

Рассмотренная выше работа с динамическими массивами значительно упрощается в среде Delphi, где такие массивы описываются как

<идентификатор> : array [ of array ...] of <тип элемента массива>

Выделение памяти для таких массивов производится с помощью оператора SetLength следующим образом

SetLength(<идентификатор >,<количество элементов>[,<количествоЭлементов> ...])

Используя повторно данную функцию можно увеличить или уменьшить размерность массива без потери данных.

Освободить память, занятую массивом, можно используя то же оператор SetLength, указав нулевое количество элементов, либо с помощью команды

<идентификатор> := nil;

Примечание: присвоение значения nilосвобождает память только у динамических массивов Delphi. Для обычных указателей освобождение памяти не производится, что может привести к так называемой "утечке" памяти.

Пример (разбиение строк текстового файла на отдельные слова):

var Data : array of string; Data2 : array of array of string; f : TextFile; n,m,k : integer; begin AssignFile(f,'text.txt'); reset(f); n := 0; while not EOF(f) do begin inc(n); SetLength(Data,n); readln(f,Data[n-1]); end; CloseFile(f); SetLength(Data2,n); for i := 1 to n do begin m := 0; while Pos(' ',Data[i-1])>0 do begin inc(m); SetLength(Data2[i-1],m); k := Pos(' ',Data[i-1]); Data2[i-1,m-1] := Copy(Data[i-1],1,k-1); Delete(Data[i-1],1,k); end; if Data[i-1]<>'' then begin inc(m); Data2[i-1,m-1] := Data[i-1]; end; end; SetLength(Data2,0,0); Data := nil; end.

В 1961 году Агентство оборонных разработок по заданию Министерства обороны США приступило к проекту по разработке сети, которая связала бы военные научно-исследовательские и учебные учреждения. Самая главная задача, которая решалась при этом-создать «живучую сеть», которая работала бы при выходе из строя отдельных компьютеров и каналов связи.

1965г-заработала первая опытная сеть внутри США

1969г-Министерство обороны утвердило проект по созданию национальной сети –ARPANET/

1974г-1981 Разработан основной сетевой протокол сетевой протокол TCP/IP(Transmission Control Protocol over Internet Protocol)

1973-к сети подключились ЭВМ Англии,Новегии

1984-рост сети. Число серверов в сети превысило 1000

1989-к сети подключились коммерческие и др. сервера.

1987-число серверов превысило 10000

1988-1991 -подключились Дания,Исландия,Канада,Норвеия,Финляндия,Франция,Швеция и все другие страны.

1993 –Россия

Количество компьютеров, подключенных к интернет ежегодно удваивалось.

2 ноября 1988 г. Выпускник Корнельского университета Роберт Топпан Моррис запустил в Сети свою программу, которая из-за ошибки начала бесконтрольное распространение и многократное инфицирование узлов Сети. В результате было инфицировано 6200 машин.(7,3% машин сети). Эта программа стала первым компьютерным вирусом.