Торговый склад производит уценку хранящейся продукции. Если
продукция хранится на складе дольше 10 месяцев, то она уценивается в 2 раза, а
если срок хранения превышает 6 месяцев, но не достигает 10 месяцев, то в 1,5
раза. Получить ведомость уценки товара, которая должна включать следующую
информацию: наименование товара, срок хранения, цена товара до уценки, цена
товара после уценки.
Решение
1. Данные столбцов: наименование товара, срок хранения, цена товара до
уценки заполняем самостоятельно или ввести те же данные что и в таб.1.
2. В ячейке D2 вводим следующую формулу
=ЕСЛИ(B2>10;C2/2;ЕСЛИ(И(B2>6;B2<10);C2/3*2;C2)).
3. Далее копируем формулу до ячейки D12.
После подсчета всех данных ведомость должна выглядеть следующим
образом (таб.1):
Const width = 10
Sub Ìàêðîñ1()
Dim Sum(heigth - 1, width - 1)
Dim Product(heigth - 1, width - 1)
For i = 0 To heigth - 1
For j = 0 To width - 1
Sum(i, j) = i + j
Product(i, j) = i * j
Next j
Next i
Call Show(Sum, 0, 0)
Call Show(Product, 0, 12)
End Sub
Sub Show(ByRef m, dx, dy)
For i = 0 To heigth - 1
For j = 0 To width - 1
ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
Next j
Next i
End Sub
Ваша программа:
mas = [3,5,67,-65,34,21] # задаем список
print(mas)
point=3 # задаем искомое значение
l = len(mas) # вычисляем длину списка (количество элементов)
for i in range( l ):
if mas [i]==point:
print("Содержит")
break
else:
print ("Не содержит")
Можно ещё так записать:
mas = [3,5,67,-65,34,21] # задаем список
print(mas)
point=3 # задаем искомое значение
for i in mas: #смотрим каждый элемент в массиве
if i == point:
print("Содержит")
break
else:
print ("Не содержит")
Можно написать так, что более понятно:
mas = [3,5,67,-65,34,21] # задаем список
print(mas)
point=3 # задаем искомое значение
if point in mas:
print("Содержит")
else:
print ("Не содержит")