Sub maxZn()'заполнение массива Dim mas(20) S = "" Randomize For i = 1 To 20 mas(i) = Round(Rnd(100) * 100) S = S + Str(mas(i)) + "," Next i'поиск максимального числа и количества его повторений qty = 1 max = mas(1) 'предполагаем, что максимальное число в первом элементе массива For i = 2 To 20 If mas(i) = max Then qty = qty + 1 End If If mas(i) > max Then max = mas(i) qty = 1 End If Next i MsgBox "последовательность чисел " + S MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty) End Sub Sub test() Call maxZnEnd Sub
Выходными данными компьютера является чек и сдача(если она требуется). Арифметические действия: из количество денег, что дал покупатель нужно отнять сумму всех купленных товаров и таким образом найти нужную сдачу. Например: входные данные: кол-во введенных денег = 100 руб. сумма цены товаров = (10 руб. + 21 руб + 37.21 руб.) 100 руб. - (10 руб. + 21 руб + 37.21 руб.) = 100 руб. - 68,21 руб. = 31,79. В данном случае в чеке будет указана введенное количество денег и сумма всех купленных товаров. Сдача в этом примере будет = 31,79.
*кол-во это количество.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
