Задания. По дисциплине «Информатика» по теме «Одномерные массивы.»

ЛАБОРАТОРНАЯ РАБОТА №4

По дисциплине «Информатика»
по теме «Одномерные массивы.»

Выполнил:

Студент 1 курса гр. _____

________________________ Липчук А.И.
^{(подпись)}

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

________________________
^{(подпись)}

Н.Новгород
2012

ЛАБОРАТОРНАЯ РАБОТА №4

Тема: Одномерные массивы.

Цель работы: приобретение навыков разработки алгоритмов и программ по преобразованию одномерных массивов.

Вариант №1

Задания

Дан массив А из N натуральных чисел. Постройте алгоритм для определения среднего арифметического и среднего геометрического данных чисел.

Входные данные:

=5

Выходные данные: SrArf, SrGeom

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

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

Dim n, i As Integer

Console.WriteLine("Введите количество элементов массива")

n = Val(Console.ReadLine())

Dim a(n), y(n) As Single

Dim b(n) As Long

Dim k, SrArf, SrGeom, j As Double

k = 0: j = 1

For i = 1 To n

1: Console.WriteLine("x{0}=", i)

a(i) = Val(Console.ReadLine())

b(i) = a(i)

If a(i) = b(i) And b(i) > 0 Then GoTo 2 Else Console.WriteLine("Число {0} не является натуральным, введите другое число", a(i)): GoTo 1

2: Next i

For i = 1 To n

k = k + a(i)

j = j * a(i)

Next i

SrArf = k / n

SrGeom = j ^ (1 / n)

Console.WriteLine("Среднее арифметическое={0}, среднее геометрическое={1}", SrArf, SrGeom)

Console.ReadLine()

Результат:

Вывод: Cоставлена программа для нахождения среднего арифметического и среднего геометрического заданного массива натуральных чисел.