1. Информатика
  2. Разработайте алгоритм и

Разработайте алгоритм и программу решения для начисления торговой скидки. вводится сумма покупок, программа рассчитывает сумму к оплате с учетом того, что при покупке товара на сумму от 500 до 1000 руб. разработать алгоритм и программу на языке vba для решения по вариантам.

milimili95 milimili95    2   17.08.2019 12:50    2

Ответы
rit2239 rit2239  05.10.2020 00:45

1.     Private Sub CommandButton1_Click() 
Dim n, s As Single 
n = Val(TextBox1.Text) 
If (n < 500) Then s = n 
If ((n >= 500) And (n <= 1000)) Then s = n * 0.95 
If ((n > 1000) And (n <= 10000)) Then s = n * 0.93 
If (n > 10000) Then s = n * 0.91 
MsgBox (s) 
End Sub

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ник4430 ник4430  25.04.2021 18:33
Какая из данных логических формул является тождественно истинной? 1) А ^ (А→В) 2) А→ (А ^ В) 3) (А → В) V А 4) А V В → А...
GORDON228band GORDON228band  25.04.2021 18:39
(Python) Напишите программу, которая получает с клавиатуры два натуральных числа и находит их НОД с алгорит- ма Евклида. Программа должна подсчитать количество ша- гов цикла...
Доширак207 Доширак207  22.04.2021 21:23
Среди трёх чисел, введенных с клавиатуры, выбрать максимальное. И если среди чисел есть равные числа, то вывести сообщение ошибка . Если равных чисел нет, вывести максимальное....
Зайчуля2004 Зайчуля2004  22.04.2021 21:25
Ребят очень надо очень нужно пожайлуста Створити конспект матеріалу за планом. План 1. Сервіси Pocket та Streme. 2. Що таке синхронізація? 3. Дії, що виконуються для синхронізації....
Okama Okama  22.04.2021 21:25
Який оператор реалізує таку дію:змінній K логічного типу присвоїти значення True, якщо числа A, B, C упорядковані за зростанням, і False у протилежному випадку? * k = a if...
Alex171810 Alex171810  22.04.2021 21:25
Составьте блок-схему и соответствующую программу на языке Python для выполнения следующих действий: 1) печатается таблица умножения на 9; 2) печатаются квадраты чисел от 10...
asya13051 asya13051  06.02.2022 10:29
Виндоус 11 надо как удалить вот это клаву (рус[us])...
Valerykh123 Valerykh123  06.02.2022 10:45
Результат олімпіади можна буде знайти пiсля олімпіади за посиланням оi.in.ua Кеоня зі своїм класом прийшла на олімпіаду за 1 хвилин до початку олімптоди Через карантиннi обмеження,...
velkovavika15 velkovavika15  01.10.2019 05:40
Напишите программу, которая заполняет массив из n элементов случайными целыми числами в диапазоне [ a , b ] и определяет среднее арифметическое всех элементов этого массива,...
Chelovek987654321 Chelovek987654321  20.04.2020 14:54
Составте по составу. На пластмассе....

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