Поисковые машины
Fam =(ivanov, socolov, andreev);
Var
Ball: array [fam] of real ;
Последняя запись даёт описание вещественного массива, состоящего из трёх элементов, но порядковыми «номерами» элементов массива являются переменные перечисляемого типа Ivanov, Socolov, Andreev.
Задание значений элементам массива может выполняться при помощи операторов присваивания:
A [I] := A[2] + 2.6E2
A [1, 2] := 2.3 + P1
Другим способом задания значений элементам массива является поэлементный ввод. Также поэлементно может осуществляться и вывод.
Ниже рассматривается ввод и вывод одномерного массива А, состоящего из пяти элементов.
Program VV;
Var
A: array [1..5] of real ;
I: integer;
Begin
For i:=1 to 5 do
Read(A[i]);
For i:=1 to 5 do
Write(A[i])
End.
В процессе ввода элементы массива должны отделяться друг от друга пробелами.
Следующая программа реализует ввод и вывод двумерного массива А (3´4). Причем ввод организован в виде матрицы по строкам:
Program WVA;
Var
A: array[1..3,1..4] of real;
I, j: integer;
Begin
For i:=1 to 3 do
For j:=1 to 4 do
Read(A[i,j]);
For i:=1 to 3 do
Begin
For j:=1 to 4 do
Write(A[i,j]);
Writeln;
End
End.
Рассмотрим пример программы с использованием массивов.
Пример 1: Составить программу для вычисления средних значений элементов списков А, В, С, содержащих по 50 чисел каждый. Результат получить в виде массива “Д”.
Program Mas;
Const
NM=50;
Var
I: integer;
A,B,C,D: array [1..NM] of real;
Begin
For i:=1 to NM do
Begin
Read(A[I],B[I],C[I]);
D[I]:= (A[I]+B[i]+C[I])/3;
Write (D[I])
End
End.
Пример 2: Записать +1 вместо максимального элемента массива А(5´4), а –1 вместо минимального.
Program Maxmin;
Var A: array[1..5,1..4] of real;
N,M,N1,M1,I,J : integer;
Min, Max: real;
Begin
For i:=1 to5 do
For j:=1 to 4 do
Read (A[i,j]);
Max:=A[1,1];
Min:=A[1,1];
N:=1; M:=1;
N1:=1; M1:=1;
For i:=1 to 5 do
For j:=1 to 4 do
Begin
If A[i,j]>max then
Begin
Max:=A[i,j];
N:=i; M:=j
End;
If A[i,j]<min then
Begin
Min:=A[i.j];
N1:=i; M1:=j
End
End;
A[N,M]:=1;
A[N1,M1]:=-1;
Writeln(A[N,M],A[N1,M1])
End.
Пример 3: Упорядочить по возрастанию все элементы главной диагонали матрицы А(5´5).
Program YP;
Var
A: array [1..5,1..5] of real ;
S : real ;
I, j : integer ;
Begin
For j:=1 to 5 do
Read(A[i,j]);
For i:=1 to 4 do
For j:=1 to 5 do
If A[j,j]> A[j+1,j+1] then
Begin
S:=A[j,j];
A{j,j]:=A[j+1,j+1];
A[j+1,j+1]:=S;
End;
For i:=1 to 5 do
Writeln(A[i,i])
End.
Поисковые машины
Если вам необходимо получить подборку материалов по более конкретной и специальной информации, лучше воспользоваться поисковыми машинами. Поисковая машина – это комплекс специальных программ для поиска в Сети. Они лишены недостатков, присущих каталогам, и работают немного по-другому. Поиск с помощью поисковых машин происходит намного быстрее, кроме того, такие системы могут искать среди гораздо большего количества сайтов – область поиска в этом случае практически неограниченна.
Принцип действия поисковых машин заключается в постоянном последовательном исследовании всех веб-страниц. Из-за необходимости постоянного обновления информации время от времени машины возвращаются к просмотренным ранее сайтам, чтобы найти и зарегистрировать возникшие там изменения. Вся прочитанная информация индексируется, то есть создается специализированная база данных, в которой сохраяются просмотренные поисковиком веб-страницы. Там и осуществляется поиск. Эту базу данных наполняют специальные программы-роботы, которые, просматривая сайты, обращают внимание на некоторые дополнительные элементы. Например, на частоту употребления слова на странице, на его выделение, а также количество ссылок на данный документ на других сайтах. Поисковые машины проводят поиск по заданному пользователем поисковому запросу – специальной фразе или набору слов, которые выражают суть того, что нужно найти.
Кроме этого, с каждой веб-страницей связан набор ключевых слов. Эти слова лучше всего описывают ее содержимое. При поиске информации поисковые машины в первую очередь анализируют их совпадение со словами из поискового запроса.
Таким образом, поиск с помощью поисковых машин состоит в просмотре базы данных веб-страниц и розыске тех из них, которые соответствуют запросу.
Дата добавления: 2015-04-05; просмотров: 692;