ЛАБОРАТОРНАЯ РАБОТА №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оставлена программа для нахождения среднего арифметического и среднего геометрического заданного массива натуральных чисел.