Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
-
Как продвинуть сайт на первые места?Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.Ускорение продвиженияЕсли вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги. Начать продвижение сайта
-
-
Сервис онлайн-записи на собственном 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, выполняется несколько раз для демонстрации
|
|