Информатика Лабы 1 семестр / Информатика Лаб. 6 Основные конструкции Виноградов

Министерство образования и науки Российской Федерации

Федеральное государственное бюджетное образовательное

Учреждение высшего профессионального образования

“Ивановская государственная текстильная академия”

(ИГТА)

Кафедра автоматики и радиоэлектроники

Отсчет о выполнении лабораторной работы №6

Вариант №2

Основные конструкции структурного программирования в среде VB-Net 2008.

Выполнил студент группы 1М6 б

Виноградов О.С.

Номер зачетной книжки: 123061

Дата выполнения работы 06.01.2013

Принял _______________________

Оценка ________________________

Дата защиты отчета __________

Иваново 2012

Цель работы: Изучение основных программных конструкций: альтернатива, ветвление, циклы и синтаксиса операторов; изучение понятия массива и возможностей класса массив; операторы обработки исключений при выполнении программы.

Блок-схема программы:

Текст программы:

Module Module1

Sub Main()

Dim a() As Integer

Dim i As Integer

Dim n As Integer

Dim count As Integer

Dim sumN As Integer

Dim temp As Integer

count = 0

sumN = 0

While n < 100

Console.Write("n = ")

n = CInt(Console.ReadLine())

sumN += n

End While

n = n / 2

ReDim a(n)

Randomize()

For i = 0 To n - 1

a(i) = Rnd() * n * 2

Console.WriteLine("a({0}) = {1}", i + 1, a(i))

Math.DivRem(a(i), 3, temp)

If temp = 0 Then

Math.DivRem(a(i), 2, temp)

If temp = 0 Then

count += 1

End If

End If

Next i

Console.WriteLine("Количество четных чисел, кратных 3 = {0}", count)

Console.WriteLine("Сумма чисел, введенных с клавиатуры равно: {0}", sumN)

End Sub

End Module

Результат выполнения программы: