|
|
|
Ниже приведен текст
программы поиска в массиве целых чисел. Перебор элементов массива осуществляется
инструкцией repeat, в теле которой инструкция if сравнивает текущий элемент
массива с образцом и присваивает переменной found значение true, если текущий
элемент и образец равны.
Цикл завершается, если
в массиве обнаружен элемент, равный образцу (в этом случае значение переменной
found равно true), или если проверены все элементы массива. По завершении цикла
по значению переменной found можно определить, успешен поиск или нет.
Вид диалогового окна
программы Поиск в массиве приведен на рис. 5.9.
Рис. 5.9.
Диалоговое окно программы Поиск в массиве
Щелчок на командной
кнопке Поиск (Buttoni) запускает процедуру TForm1.Button1Click (ее текст
приведен в листинге 5.7), которая из компонента stringGridi вводит массив, а
из поля редактирования Edit2 — число (образец). Затем выполняется проверка,
содержит ли массив введенное число. После завершения проверки процедура showMessage
выводит сообщение о результате поиска.
Листинг 5.7.
Поиск в массиве
unit s_found_;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics,
Controls, Forms, Dialogs,
StdCtrls,
Grids;
type
TForm1
= class(TForm)
Label1:
TLabel;
Label2:
TLabel;
Button1:
TButton;
Edit2:
TEdit;
StringGridi:
TStringGrid;
procedure ButtonlClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations )
end;
var
Form1:
TForm1 ;
implementation
{$R
*.DFM}
{ поиск в массиве перебором }
procedure
TForml.ButtonlClick(Sender: TObject);
const
SIZE=5;
var
a:
array[1..SIZE] of integer; //массив
obr:
integer; // образец для поиска
found:
boolean; // TRUE — совпадение образца с элементом
// массива
i:
integer; // индекс элемента массива
begin
//
ввод массива for i:=l to SIZE do
a[i]
:= StrToInt(StringGridl.Cells[i-1,0]);
// ввод образца для поиска
obr
:= StrToInt(edit2.text);
//
поиск
found
:= FALSE; // пусть нужного элемента в массиве нет
i:=
1;
repeat
if
a[i] = obr
then found := TRUE else i := i+1;
until
(i > SIZE) or (found = TRUE);
if
found
then
ShowMessage('Совпадение с элементом номер '
+IntToStr(i)+#13+'Поиск успешен.')
else ShowMessage('Совпадений с образцом нет.');
end;
end.
Очевидно, что чем больше
элементов в массиве и чем дальше расположен нужный элемент от начала массива,
тем дольше программа будет искать необходимый элемент.
Поскольку операции сравнения применимы как к числам, так и к строкам, данный алгоритм может использоваться для поиска как в числовых, так и в строковых массивах.
|
|
|
Понятие же "физического вакуума" в релятивистской квантовой теории поля подразумевает, что во-первых, он не имеет физической природы, в нем лишь виртуальные частицы у которых нет физической системы отсчета, это "фантомы", во-вторых, "физический вакуум" - это наинизшее состояние поля, "нуль-точка", что противоречит реальным фактам, так как, на самом деле, вся энергия материи содержится в эфире и нет иной энергии и иного носителя полей и вещества кроме самого эфира.
В отличие от лукавого понятия "физический вакуум", как бы совместимого с релятивизмом, понятие "эфир" подразумевает наличие базового уровня всей физической материи, имеющего как собственную систему отсчета (обнаруживаемую экспериментально, например, через фоновое космичекое излучение, - тепловое излучение самого эфира), так и являющимся носителем 100% энергии вселенной, а не "нуль-точкой" или "остаточными", "нулевыми колебаниями пространства". Подробнее читайте в FAQ по эфирной физике.
|
|
 |
