Существуют три основных поиска информации в Интернет:
1. Указание адреса страницы.
2. Передвижение по гиперссылкам.
3. Обращение к поисковой системе (поисковому серверу).
Указание адреса страницы
Это самый быстрый поиска, но его можно использовать только в том случае, если точно известен адрес документа или сайта, где расположен документ.
Не стоит забывать возможность поиска по открытой в окне браузера web-странице (Правка-Найти на этой странице…).
Передвижение по гиперссылкам
Это наименее удобный так как с его можно искать документы, только близкие по смыслу текущему документу.
Обращение к поисковой системе
Пользуясь гипертекстовыми ссылками, можно бесконечно долго путешествовать в информационном пространстве Сети, переходя от одной web-страницы к другой, но если учесть, что в мире созданы многие миллионы web-страниц, то найти на них нужную информацию таким вряд ли удастся.
1) procedure Insert(source: string; var s: string; index: integer); Вставляет подстроку source в строку s с позиции indexprocedure Delete(var s: string; index, count: integer); Удаляет из строки s count символов с позиции index
2) var s:string; i,n,code:integer; begin write('Введите длинное число:'); readln(s); for i:=1 to length(s) do begin val(s[i],n,code); if code=0 then writeln(n); end; end.
Если не требуется выполнять арифметических действий с цифрами, то можно так: var s:string; i:integer; begin write('Введите длинное число:'); readln(s); for i:=1 to length(s) do writeln(s[i]); end.
1. Указание адреса страницы.
2. Передвижение по гиперссылкам.
3. Обращение к поисковой системе (поисковому серверу).
Указание адреса страницы
Это самый быстрый поиска, но его можно использовать только в том случае, если точно известен адрес документа или сайта, где расположен документ.
Не стоит забывать возможность поиска по открытой в окне браузера web-странице (Правка-Найти на этой странице…).
Передвижение по гиперссылкам
Это наименее удобный так как с его можно искать документы, только близкие по смыслу текущему документу.
Обращение к поисковой системе
Пользуясь гипертекстовыми ссылками, можно бесконечно долго путешествовать в информационном пространстве Сети, переходя от одной web-страницы к другой, но если учесть, что в мире созданы многие миллионы web-страниц, то найти на них нужную информацию таким вряд ли удастся.
procedure Insert(source: string; var s: string; index: integer);
Вставляет подстроку source в строку s с позиции indexprocedure Delete(var s: string; index, count: integer);
Удаляет из строки s count символов с позиции index
2)
var s:string; i,n,code:integer;
begin
write('Введите длинное число:');
readln(s);
for i:=1 to length(s) do
begin
val(s[i],n,code);
if code=0 then writeln(n);
end;
end.
Пример:
Введите длинное число:3456810285
3
4
5
6
8
1
0
2
8
5
Если не требуется выполнять арифметических действий с цифрами, то можно так:
var s:string; i:integer;
begin
write('Введите длинное число:');
readln(s);
for i:=1 to length(s) do writeln(s[i]);
end.