Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
-
-
Сервис онлайн-записи на собственном Telegram-ботеТот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно. Чат-бот для мастеров и специалистов, который упрощает ведение записей: — Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать; Начать пользоваться сервисом -
Как продвинуть сайт на первые места?Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.Ускорение продвиженияЕсли вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги. Начать продвижение сайта
List1.AddItem x
|
|
Loop While x < > 0
txtSr.Text = s / (k - 1)
4. Проверьте работу программы 2 часть
Постановка задачи: Известна процентная ставка банка. Ввести сумму нач. вклада и число, определяющее во сколько раз Вы хотите увеличить сумму вклада. Определить через сколько лет произойдет увеличение вклада и какое значение он примет
5. Добавьте на форму следующие объекты и измените для них свойства
| Объект | Свойство | Значение | |||
| Командная кнопка | Name | Cmd2 | |||
| Caption | Вычислить | ||||
| Текстовые окна | Name | TxtProzent | |||
| Name | TxtSumma0 | ||||
| Name | TxtN | ||||
| Name | TxtYear | ||||
| Name | TxtItog | ||||
Метки |
6. Приведите свою форму в соответствие с образцом
7. В окне кода процедуры обработки события Click для объекта Cmd2 набрать
proz = Val(TxtProzent.Text) / 100 + 1
s0 = Val(TxtSumma0.Text)
n = Val(TxtN.Text)
summa = s0: y = 0
Do While summa < s0 * n
y = y + 1
summa = summa * proz
Loop
TxtItog.Text = summa
TxtYear.Text = y
8. Проверьте работу программы 3 часть
Постановка задачи: Дано год, численность в этом году и ежегодный прирост населения. Ввести число, определяющее во сколько раз увеличиться численность населения. Создать список, содержащий данные о численности для каждого следующего года.
9. Добавьте на форму объекты и измените им свойства:
| Объект | Свойство | Значение |
| Командная кнопка | Name | Cmd3 |
| Caption | Определить | |
| Текстовые окна | Name | TxtGod |
| Name | TxtPrirost | |
| Name | TxtK | |
| Name | TxtMan0 | |
| Список | Name | List2 |
| Метки |
10. Приведите свою форму в соответствие с образцом
 |
11. В окне кода процедуры обработки события Click для объекта Cmd3 набрать
x = Val(TxtMan0.Text)
y = Val(TxtGod.Text)
d = Val(TxtPrirost.Text) / 100 + 1
k = Val(TxtK.Text)
summa = x
Do Until summa > = x * k
y = y + 1
summa = summa * d
List2.AddItem Str(y) + " год " + Str(summa)
Loop
12. Проверьте работу программы
|
|