М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Trusters2007
Trusters2007
26.05.2020 23:59 •  Информатика

Проект <покраска забора>. По заданной картинке данного проекта определите какие компоненты использовались и их свойства

👇
Открыть все ответы
Ответ:
ebusuruna
ebusuruna
26.05.2020

PDF-документы давно стали необходимой составляющей офисной работы. В этом формате хранятся цифровые архивы, юристы согласуют договоры, дизайнеры верстают брошюры, издательства публикуют электронные книги. До недавнего времени главным достоинством и одновременно с этим недостатком PDF-документов было отсутствие возможности редактировать текст в них. Благодаря развитию технологий эту и другие задачи научилась решать программа ABBYY FineReader, которая стала многофункциональным редактором любых документов. «Хайтек» вместе с ABBYY рассказывает, как технологически устроено редактирование PDF-документов в новой версии FineReader 15, каким образом программа сравнивает версии документов и как работает распознавание иероглифов с нейросетей.

4,8(53 оценок)
Ответ:
MAK222222
MAK222222
26.05.2020

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.

Объяснение:

Очевидно, что чем больше элементов в массиве и чем дальше расположен нужный элемент от начала массива, тем дольше программа будет искать необходимый элемент.

Поскольку операции сравнения применимы как к числам, так и к строкам, данный алгоритм может использоваться для поиска как в числовых, так и в строковых массивах.

4,5(81 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ