Практическая работа
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. Сообщите учителю о завершении работы.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

ОСЕНЬ2019

12.02.2021 09:55

В6б учатся 25 учеников. на сегодня работу по сделали 10 человек. по - 8 человек. из всех учеников только 6 человек сделали и по , и по естествознанию, но не по . 7 человек...

chardonayyyyyoyl8au

12.02.2021 09:55

Почему гибкий диск получил такое название...

Aituar2007

04.06.2021 12:37

Давайте проверим ваши знания на компьютерную технику, одному мальчику купили видеокарту gtx 1080 а другому мальчику купили gtx 720 какого мальчика видеокарта мощнее?...

ddasha681

04.06.2021 12:37

Впалитре 256 цветов определите глубину цвета для этого изображения...

taykinamatilda

15.07.2021 18:18

- Почему в среде программирования Scratch мы используем разные виды алгоритмов? - Почему для создания скриптов ставится условие? - Почему возникает необходимость повторять...

Znanijaetosila1

20.10.2021 12:58

ответьте на во Как вы думаете, на что нужно обратить внимание при выборе компонентов?2)На что нужно обратить внимание при построении теста задачи и тестировании? 3)Какие...

marinapizdec

10.02.2021 07:01

Определите порядок этапов решения задач на компьютере...

тай4

23.11.2021 15:56

Напишите конспект об авторском праве и плагиате...

06060601

21.06.2021 16:40

1. Алгоритмы, характеризующиеся многократным выполнением определенных действий, называют * a)условнымиb)циклическимиc)неполнымиd)полнымиe)разветвляющиеся2. Укажи оператор...

akabakova56gmailcom

19.08.2020 10:47

задан моссив D(1..25). Найти произведение элементво с нечётными значениями массива и вывести на экран номера этих элементов и произведенеия...

Ответ:

miratarnovskaya

01.07.2021 00:41

Задача №1

var a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(19-(-10)+1)+-10;
write (a[i],' ');
end;
end.

Задача №2

var a:array [1..20] of integer;
i:integer;
begin
writeln('Введите числа в интервале [-20;29]');
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if (a[i]>-29) and (a[i]<20) then write(a[i],' ');
end.

Задача №3

var a:array [1..20] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 20 do
begin
a[i]:=random(19-(-10)+1)+-10;
write (a[i],' ');
if a[i]>0 then sum:=sum+1;
end;
writeln('Количество положительных элементов массива = ', sum);
end.

Задача №4

var a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(19-(-10)+1)+-10;
if a[i]<0 then a[i]:=0;
write (a[i],' ');
end;
end.

Задача №5

var a:array [1..20] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 20 do
begin
a[i]:=random(19-(-10)+1)+-10;
write (a[i],' ');
if a[i]>0 then sum:=sum+a[i];
end;
writeln('Сумма положительных элементов массива = ', sum);
end.

0,0(0 оценок)

Ответ:

УмничкаХороша

01.07.2021 00:41

// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(20,-10,19);
a.Println(','); // 1
var b:=ReadArrInteger('Введите 10 целых чисел',10); // 2
Writeln('Количество положительных элементов ',
    a.Where(x->x>0).Count); // 3
for var i:=0 to 19 do
    if a[i]<0 then a[i]:=0;
Writeln('Массив А после замены отрицательных'); a.Println(','); //4
Writeln('Сумма положительных элементов ',
    a.Where(x->x>0).Sum) // 5
end.

Тестовое решение:
14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8
Введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1
Количество положительных элементов 13
Массив А после замены отрицательных
14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0
Сумма положительных элементов 112

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку