КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Задачи к темам
Г Председатель комиссии Дан целочисленный массив размера N. Удалить из массива все одинаковые элементы, оставив их первые вхождения. (Array). Решение. Для этой задачи нам не обходимо будет 3 переменных и один массив: i (вспомогательная переменная, с помощью которой можно будет менять размерность массива), n (для размерности массива), j (ещё одна вспомогательная переменная, при помощи которой мы сможем заменять i, корда это будет необходимо) и а (отвечающая за массив в целом). Итак, введём переменные и введём наши данные:
Private Sub CommandButton_Click()
Dim i, j, n, k As Integer Dim a(50) As Integer
n = CDbl(InputBox("Введите размерность массива N ")) For i = 1 To n a(i) = CDbl(InputBox("Введите " & i & "-й элемент массива")) Next i
Далее с помощью оператора For вводим следующие условия:
For i = 1 To n - 1 For j = i + 1 To n If a(i) = a(j) Then a(j) = 0 (Здесь программа начнёт заменять одинаковые элементы) Next j Next i For i = 1 To n
После того, как все условия выполнены – надо вывести ответ на экран:
MsgBox ("Элемент А (" & i & ") равен " & a(i)) Next i (переходим к следующему числу, цикл повторяется) End Sub
Задача решена. СмотримJ
14.1. Вводим размерность массива
14.2. Вводим элемент массива
14.3. Выводим ответ на экран.
Председатель___________ Задание для практики по профилю специальности
Студенту (ке) студента экономического отделения курса III группы ПОВ-391
ФИО___________________________________________________________________________
Исходные данные:
Дата выдачи: 26 апреля 2012 Срок окончания 02 июля 2012 Начальник ЭО_________________ Преподаватель ___________________
Практические задания к теме 3 Задача №1 В ст. 5 Федерального закона РФ от 21 ноября 2003 г. № 162-ФЗ «О внесении изменений и дополнений в Уголовный кодекс РФ» было предусмотрено, что за рядом изъятий он вступает в силу со дня его официального опубликования. Этот Закон был опубликован в «Парламентской газете» 11 декабря 2003 г. (№ 231), «Российской газете» 16 декабря 2003 г. (№ 252) и «Собрании законодательства РФ» 15 декабря 2003 г. (№ 50. Ст. 4848).
Дата добавления: 2017-02-01; Просмотров: 90; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |