Что такое Интернет и зачем он нужен?
Интернет и его функции
Интернет – это всемирная компьютерная сеть. Она образует в результате соединения тысяч локальных компьютерных сетей (университетских, региональных и т. д. ), а так же компьютеров, подключённых к сети с помощью отдельных каналов связи.
Интернет – это огромное информационное пространство. Благодаря объединению ресурсов миллионов компьютеров, размещённых в различных уголках земного шара, сеть Интернет даёт возможность каждому её пользователю получить доступ к необъятным информационным богатством, позволяющим узнавать самые разнообразные сведения – начиная от прогноза погоды в вашем населённом пункте в конкретное время суток и заканчивая серьёзными аналитическими статьями на самые злободневные темы. Кроме чисто информационной функции, сеть Интернет также предоставляет модем множество дополнительных возможностей, позволяющих общаться посредством текстовой, голосовой и даже видеосвязи, загружать на свой компьютер музыку и видеоролики в популярных цифровых форматах (MPEG - 4, MP3), а также многое - многое другое. Бессмысленно пытаться перечислить здесь всё, что может предоставить Интернет своим посетителям, потому что даже пользователи с многолетним стажем обязательно забудут о какой - то важной и интересной возможности – на столько гигантскими по своему количеству и уникальными по своему разнообразию являются доступные в этой сети функции.
Применение: Синонимами термина «Интернет» являются также слова и словосочетания, как «Глобальная сеть», «Всемирная сеть», «Сеть».
Var
fullstr,s,s_int,s_rl,s_str: string;
int: integer;
rl: real;
space,err: integer;
begin
writeln('String:');
readln(fullstr);
while fullstr[1] = ' ' do
delete(fullstr,1,1);
while fullstr[length(fullstr)] = ' ' do
delete(fullstr,length(fullstr),1);
while pos(' ',fullstr) <> 0 do
delete(fullstr,pos(' ',fullstr),1);
s_int := '';
s_rl := '';
s_str := '';
while fullstr <> '' do begin
space := pos(' ',fullstr);
if space = 0 then
space := length(fullstr) + 1;
s := copy(fullstr,1,space-1);
val(s,int,err);
if err = 0 then
s_int := s_int + s + ' '
else begin
val(s,rl,err);
if err = 0 then
s_rl := s_rl + s + ' '
else
s_str := s_str + s + ' ';
end;
delete(fullstr,1,space);
end;
writeln('Integers: ',s_int);
writeln('Real: ',s_rl);
writeln('Words: ',s_str);
readln
end.
нажимай на любые синие квадратики или поставь все квадраты ровно!
1кбайт=1024байт
1гбайт=1024кбайт=1024*1024байт=1048576байт