ulpan041
03.06.2020 14:24

Необходимо реализовать это на delphi. на форму поместить во всю клиентскую область компонент ttabbednotebook, содержащий две страницы. на первой странице поместить компоненты timage, tbitbtn и topenpicturedialog. компонент tbitbtn должен иметь кроме текста пиктограмму для каждого состояния кнопки. при нажатии на кнопку tbitbtn нужно запускать диалог открытия файла с рисунком и поместить его содержимое в компонент timage, при этом на дисплее должно появляться сообщение об открытии файла с типового диалога showmessage. на второй странице компонента ttabbednotebook поместить компоненты ttimer, tgauge и tcolordrid. компонент ttimer должен изменением движка в компоненте tgauge, который должен представлять собой панель спидометра с текстом процентного заполнения этой области. с компонента tcolorgrid предусмотреть изменение цвета фона и заполнения в компоненте tgauge. все визуальные компоненты должны иметь всплывающие подсказки (hint).

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Larisa150301
15.10.2022 04:59

1. компьютерная сеть, покрывающая обычно относительно небольшую территорию или небольшую группу зданий (дом, офис, фирму, институт).

2. ПК, Веб-камера , Концентратор, Коммуникатор, Локальный принтер, Сетевой принтер, Сканер , Сервер.

3. В условиях реальных объектов самый правильный подход – сочетать разные среды передачи в зависимости от зон применения, расстояний и требований приложений к пропускной Выбор производится так, чтобы максимально использовать преимущества соответствующих сред и минимизировать влияние их недостатков для каждого конкретного объекта.

Объяснение:

0,0(0 оценок)
Ответ:
florzy
30.01.2023 13:32
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers;
  a.Println;
  var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
    .Select(x->x.Item2).ToArray;
  if b.Count<>2 then
    Writeln('Количество отрицательных элементов не равно двум')
  else begin
    a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
      .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
    a.Println
    end
end.

Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0

Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота