Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






  • Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    Сам записывает клиентов и напоминает им о визите;
    Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    Увеличивает доходимость и помогает больше зарабатывать;
    Начать пользоваться сервисом
  • caseKey of






    VK_Enter: window.Close; //при нажатии Enter графическое окно закроется

    end;

    end;

    Begin

    window.maximize; //максимальная величина окна

    f: ='test.bmp'; //переменной f присваиваем значение test.bmp

    c: = new PictureABC (20, 80, f); //добавляем рисунок (значение переменной f)

    OnMouseDown: =MouseDown; //вызов процедуры нажатия кнопки мыши

    t: = 'Для завершения задания нажмите Enter'; //переменной t присваиваем значение

    a: = new TextABC (80, 830, 15, t, clBlue); //добавление подсказки (значение переменной t)

    OnKeyDown: =KeyDown; //вызов процедуры нажатия на клавишу клавиатуры

    end.

     


     

    Результат работы программы


     


    8) Информатика (методическая основа)

     

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

     

    program random_;

    uses GraphABC;

    Var

    x, y, i, n, r: integer;

    Begin

    window.Maximize; //максимальный размер графического окна

    Write ('Введите количество окружностей ');

    readln (n); //количество окружностей

    for i: = 1 to n do //цикл с параметром от 1 до введенного количества окружностей

    Begin

    SetBrushColor (clrandom); //случайным образом выбирается цвет

    x: =random(1000); //случайным образом выбирается координата цента х, задано максимальное значение 1000

    y: =random(600); //случайным образом выбирается координата цента y, задано максимальное значение 600

    r: =random(80); //случайным образом выбирается величина радиуса окружности, задано максимальное значение 80

    circle(x, y, r); //строим окружность по полученным параметрам

    end;

    end.

     

    Результат работы программы при n=5, выполняется несколько раз для демонстрации


     

     






    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.