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.
Объяснение:
Очевидно, что чем больше элементов в массиве и чем дальше расположен нужный элемент от начала массива, тем дольше программа будет искать необходимый элемент.
Поскольку операции сравнения применимы как к числам, так и к строкам, данный алгоритм может использоваться для поиска как в числовых, так и в строковых массивах.
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.
Объяснение:
Очевидно, что чем больше элементов в массиве и чем дальше расположен нужный элемент от начала массива, тем дольше программа будет искать необходимый элемент.
Поскольку операции сравнения применимы как к числам, так и к строкам, данный алгоритм может использоваться для поиска как в числовых, так и в строковых массивах.
1. Браузер - прикладное программное обеспечение для просмотра страниц, содержания веб-документов, компьютерных файлов и их каталогов.
2. Он нужен для для просмотра страниц, содержания веб-документов, компьютерных файлов и т.д
3. При установлении операционной систему, по умолчанию устанавливается браузер. Пример: Windows - Enternet Explorer
1) Заходим в браузер который установлен по умолчанию.
2) Пишем в поисковую строку название браузера который хотите установить.
3) Заходим на официальный сайт разработчика браузера.
4) Скачиваем сам браузер и устанавливаем его. Все браузер установился.
4. Пароль должен содержать заглавные и строчные буквы, цифры, пробелы и специальные символы. А также пароль должен быть больше 8 символов.