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 символов.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(5*a.ColCount*'-');
a.Cols.Select(x->Format('{0,4}',x.Where(y->y>0).Count)).Print('');
Println(' - положительных');
a.Cols.Select(x->Format('{0,4}',x.Where(y->y<0).Count)).Print('');
Println(' - отрицательных');
end.
Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 8
*** Исходный массив [5,8] ***
32 83 -68 -33 -63 43 0 30
81 46 -52 56 49 10 -31 9
-41 -56 -80 70 -95 94 -53 56
0 -87 -24 23 -54 24 -84 -3
22 74 54 -98 42 94 -68 59
3 3 1 3 2 5 0 4 - положительных
1 2 4 2 3 0 4 1 - отрицательных