Студопедия

КАТЕГОРИИ:


Архитектура-(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

 

ФИО___________________________________________________________________________

 

Исходные данные:

Во время практики по профилю специальности необходимо выполнить задания теоретические и практические по следующим разделам:
Раздел 1. Разработка и эксплуатация информационных систем. 1. Теоретические вопросы. 1.1.Основы построения информационных систем. Жизненный цикл информационных систем. 1.2.Программное обеспечение для создания информационных систем. 1.3.Архитектура информационных систем 2. Практические задания. 2.1.Проанализировать программное обеспечение предприятия. 2.2.Описать архитектуру информационных систем на предприятии. Раздел 2. Техническое обеспечение автоматизированного рабочего места. 1. Теоретические вопросы. 1.1.Понятие, цели и задачитехническое обеспечение автоматизированного рабочего места. 1.2.Автоматизированная обработка информации. 2. Практические задания. 2.1.Анализ технического обеспечения автоматизированного рабочего места предприятия. 2.2.Выяснить схему автоматизации обработки, передачи информации на предприятии. Раздел 3. Программное обеспечение автоматизированного рабочего места. 1. Теоретические вопросы. 1.1.Понятие, цели и задачи программного обеспечения автоматизированного рабочего места. 1.2.Виды и специфика программного обеспечения автоматизированного рабочего места. 2. Практические задания. 2.1.Проанализируйте программное обеспечение автоматизированного рабочего места нескольких сотрудников предприятия. 2.2.Смоделируйте автоматизированное рабочее место техника - программиста. Раздел 4. Распределенные системы обработки информации 1. Теоретические вопросы. 1.1.Определение и задачи распределенной системы. 1.2.Концепции аппаратных решений. 1.3.Концепции программных решений 2. Практические задания. 2.1.Проанализировать системы обработки информации на предприятии. 2.2.Описать модель распределенных систем обработки информации на предприятии. Раздел 5.. Компьютерные сети. 1. Теоретические вопросы. 1.1.Установка локальной сети и сетевого программного обеспечения. 1.2.Схема распределения персональных компьютеров и прокладки сети. 2. Практические задания. 2.1.Анализ локальной сети предприятия. 2.2.Выяснить схему распределения персональных компьютеров и методику прокладки сети.   Раздел 6. Защита информации 1. Теоретические вопросы. 1.1.Значение информации и ее защиты. 1.2.Основы криптографии. 1.3.Комплексные меры по защите информации 2. Практические задания. 2.1.Проанализируйте соответствие защиты информации данного предприятия критериям безопасности. 2.2.Смоделируйте свою систему защиты информации на данном предприятии.

 

Дата выдачи: 26 апреля 2012

Срок окончания 02 июля 2012

Начальник ЭО_________________

Преподаватель ___________________

 

Практические задания к теме 3

Задача №1

В ст. 5 Федерального закона РФ от 21 ноября 2003 г. № 162-ФЗ «О внесении изменений и дополнений в Уголовный кодекс РФ» было предусмотрено, что за рядом изъятий он вступает в силу со дня его официального опубликования. Этот Закон был опубликован в «Парламентской газете» 11 декабря 2003 г. (№ 231), «Российской газете» 16 декабря 2003 г. (№ 252) и «Собрании законодательства РФ» 15 декабря 2003 г. (№ 50. Ст. 4848).




Поделиться с друзьями:


Дата добавления: 2017-02-01; Просмотров: 90; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.01 сек.