olga0520
13.09.2022 02:54

Створіть проект, під час виконання якого буде відкриватися вікно з такими значеннями властивостей: колір фону - червоний;

ширина - 500 пікселів;

висота - 350 пікселів;

відступ лівої межі - 300 пікселів;

відступ верхньої межі - 200 пікселів;

текст у рядку заголовка - Клас, Прізвище, Ім’я.

2. Збережіть проект з іменем Прізвище.

3. Додайте до проекту обробник події DblClick для вікна, виконання якого:

змінить колір фону вікна на зелений,

збільшить на 50 пікселів відступ верхньої межі вікна від верхньої межі екрана,

зменшить його ширину на 200 пікселів.

4. Додайте до проекту обробник події KeyPress для вікна, виконання якого:

встановить синій колір фону вікна,

встановить відступ верхньої межі вікна 400 пікселів від верхньої межі екрана,

збільшить його ширину на 50 пікселів,

зменшить на 50 пікселів відступ лівої межі вікна від лівої межі екрана,

відкриє вікно повідомлень з текстом у рядку заголовка «Прізвище» і текстом повідомлення «Я навчаюсь у 8 класі!».

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
dmitrosevchuk
13.04.2023 20:09
Var  a,b,p,n,x,i:integer;
begin
writeln('Сколько примеров будешь решать:');
readln(n);
for i:=1 to n do
  begin
  a:=random(10)+1;
  b:=random(10)+1;
  write('Сколько будет ',a,'+',b,'=');
  readln(x);
  if x=a+b then
    begin
    p:=p+1;
    writeln('Правильно');
    end
    else writeln('Неверно');
  end;
writeln('Число правильных ответов: ',p);
if p=n then writeln('Отлично, ты превосходно знаешь арифметику');
if (p<n) and (p/n>0.75) then writeln('Хорошо, ты неплохо знаешь арифметику');
if (p/n<=0.75) and (p/n>0.5) then writeln('Удовлетворительно, ты средне знаешь арифметику');
if (p/n<=0.5) and (p>0) then writeln('Плохо, ты не знаешь арифметику');
if p=0 then writeln('Отвратительно, ты абслютно не знаешь арифметику');
end.

Можно сделать, чтобы не только на сложение, а на все 4 действия.
0,0(0 оценок)
Ответ:
bumar2
15.05.2022 13:19
Для того чтобы посмотреть содержимое страницы, заблокированной в нашей стране, используйте сайт-прокси? Да Для каждого спецсимвола, будь то кавычки «ёлочкой» или длинное тире, существует цифровая комбинация, которую нужно запомнить? да Чтобы изменить разрешение экрана монитора на Windows нужно войти во вкладку управления экраном панели управления, выбрать новое разрешение и нажать ОК? Да отправить фотку или файл по скайпу Нужно нажать правой кнопкой на получателя, выбрать «отправить файл», затем найти фото на вашем компьютере и нажать «Открыть». Передача файла начнётся и принимающей стороне нужно будет подтвердить приём файла.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота