Практическая работа
1. Откройте Lazarus.
2. Выберите команду «Проект - Создать новый
проект»Приложение»
3. Установите следующие значения свойств формы:
Цвет фона — небесно голубой:
Ширина - 400 пикселей;
Высота - 400 пикселей:
• текст в строке заголовка — ваше имя и фамилия.
4. В папке «8 класс» создайте свою папку с названием «ПP10 ваша
фамилия».
5. Сохраните проект в созданной вами папке с именем (4б.)
6. Добавьте надпись на форму.
7. Установите для надписи следующие значения свойств:
• шрифт — Times New Roman, размер 16
• текст — «Зимой и летом одним цветом»
8. Добавьте три кнопки одинакового размера на форму. Разместите
ИХ В ОДИН ряд.
9. Установите для кнопок следующие значения свойств:
• шрифт — Times New Roman, размер 14
текст:
о Кнопка 1 — «Ёлка»
о Кнопка 2 – «Метёлка»
о Кнопка 3 — «Книга» (6б.)
10. Создайте обработчик события Click для кнопки 2, выполнение
которого установит:
• красный цвет фона окна;
• Вывод окна сообщения на экран с текстом «Не верно!»
11. Создайте обработчик события Click для кнопки 3, выполнение
которого установит:
• зелёный цвет фона окна:
• вывод окна сообщения на экран с текстом «Не верно!»
(9б.)
12. Создайте обработчик события MouseMove для кнопки 1. В
созданной процедуре запишите следующие операторы:
• Button1.Left:= 100 – Random(250);
• Button1.Top := 304 Random(250);
13. Сохраните проект.
14. Выполните проект и проверьте сто работу. (126.)
15. Сообщите учителю о завершении работы.

👇

Открыть все ответы

Ответ:

муркот11

30.01.2021

Объяснение:

Если после переустановки Windows 7 или 8.1, а также после их обновления до Windows 10 ваш компьютер не видит второй жесткий диск или второй логический раздел на диске (диск D, условно), в этой инструкции вы найдете два простых решения проблемы, а также видео руководство по ее устранению. Также описываемые должны если вы установили второй жесткий диск или SSD, он виден в БИОС (UEFI), но не виден в проводнике Windows.

В случае же если второй жесткий диск не показывается в БИОС, а произошло это после каких-либо действий внутри компьютера или просто после установки второго жесткого диска, то рекомендую в первую очередь проверить, а правильно ли все подключено:

4,6(79 оценок)

Ответ:

милана761

30.01.2021

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
var (n, k) := ReadInteger2('n,k->');
var p := ArrGen(n, t -> t + 1);
var m := new integer[k, n div k];
var sum := p.Sum div k;
for var i := 0 to k - 1 do
begin
var m_sum := sum;
m[i, 0] := p[0]; m_sum := m_sum - m[i, 0];
p := p[1:];
for var j := 1 to (n div k) - 1 do
begin
if m_sum - p.Last > 0 then begin m[i, j] := p.max; m_sum := m_sum - p.Max; p := p[:p.IndexMax]; end
else
begin
if p.Where(t -> t = m_sum).Count = 1 then m[i, j] := m_sum;
p := p.Where(t -> t <> m_sum).ToArray;
end;
end;
end;
var t := true;
for var i := 0 to m.RowCount - 2 do
if (m.Row(i).sum <> m.Row(i + 1).Sum) or (p.Length <> 0) then begin t := false; break; end;
if t then m.Println else 0.Println;
end.

Пример(1):
n,k-> 8 2
1 8 7 2
3 6 5 4

Пример(2):
n,k-> 6 3
1 6
2 5
3 4

4,5(81 оценок)

Это интересно:

Компьютеры-и-электроника

07.05.2022

Как запустить веб-сервер на компьютере: подробная инструкция для начинающих...

Здоровье

11.08.2021

Как преодолеть весовое плато при похудении...

Здоровье

02.11.2021

Как распознать разрушение зубной эмали...

Дом-и-сад