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

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

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

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

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

(ИГТА)

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

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

Вариант №2

Процедуры и функции в среде VB-Net 2008.

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

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

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

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

Принял _______________________

Оценка ________________________

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

Иваново 2012

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

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

Module Module1

Private Sub Input(ByVal A As String, ByRef B As Double)

System.Console.Write(A)

B = System.Console.ReadLine()

End Sub

Sub Main()

Dim Y As Double

Dim temp As Double

Dim a(10) As Double

Y = 0

For i = 0 To 9

Input("x=", temp)

While temp < 1 Or temp > 99

Input("Введите значение от 1 до 99! x=", temp)

End While

a(i) = temp

Next

For i = 0 To 9

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

Next

For i = 0 To 5

Y += a(i) / (a(i) + a(i + 1) + a(i + 2) + a(i + 3))

Next

System.Console.WriteLine("Y = {0:f}", Y)

End Sub

End Module

Результаты работы программы: