informatika_laba_4 (1)
.docxФедеральное государственное бюджетное образовательное учреждение
высшего профессионального образования
«Нижегородский государственный архитектурно-строительный университет»
(ННГАСУ)
Лабораторная работа
По дисциплине: «Информатика»
По теме: «Одномерные массивы»
Выполнил:
Студентка группы № 1504 (ОТФ)
Федорова Е.А.
Научный руководитель:
Кандидат педагогических наук, доцент
кафедры Информационных систем и технологий
Суханова Надежда Тимофеевна
Г. Нижний Новгород 2015 г.
ЛАБОРАТОРНАЯ РАБОТА №4
Тема: Одномерные массивы.
Цель работы: приобретение навыков разработки алгоритмов и программ по
преобразованию одномерных массивов.
Задание (2 уровень)
1. Составить блок-схему алгоритма вычисления наибольшего и наименьшего
элементов в массиве Y, их порядковых номеров, а также суммы всех элементов
массива Y. Массив Y получить на основе элементов массива X, где: Y=f(X).
Функцию f(X) взять из таблицы 4.1 в соответствии со своим вариантом.
2. На основе блок-схемы, составленной в п.1 разработать программу. Массив X
взять из таблицы 4.1 в соответствии со своим вариантом.
3. Выполнить программу, записав полученные результаты в отчѐт.
Исходные данные:
x = {- 0.4; 0.7; -1.6; 2.6; - 2.2; 1.2; 2.1}
Блок-схема:
Программа:
Dim N, I As Integer
Console.WriteLine(“введите количество элементов массива”)
N=Val(Console.ReadLine())
Dim X() As Single = {-0.4, 0.7, -1.6, 2.6, -2.2, 1.2, 2.1}
Dim Y(N) As Single
N=Y.GetUpperBound(0)
For I=1 To N Step 1
If X(I) < -1 Then
Y(I) = Math.Log(-X(I))
ElseIf X(I) > 1 Then
Y(I) = Math.Log(X(I))
Else : Y(I) = -(Math. Sqrt( 1 – X(I) ^ 2 ))
End If
Console.WriteLine(“X({0})={1}, Y({0})={2}, I, X(I), Y(I))
Next I
SY = 0
YMAX = Y(1)
NYMAX = 1
YMIN = Y(1)
NYMIN = 1
-
For I = 1 To N Step 1
SY = SY + Y(I)
If Y(I) > YMAX Then
YMAX = Y(I)
NYMAX = I
ElseIf Y(I) < YMIN Then
YMIN = Y(I)
NYMIN = I
GoTo 1
Else
GoTo 1
End If
Next I
Console. WriteLine(“SY = {0}, YMAX = {1}, NYMAX = {2}, YMIN = {3}, NYMIN = {4}”, SY, YMAX, NYMAX, YMIN, NYMIN)
Console.ReadLine()
Результаты:
Введите количество элементов массива
7
X(I) = -0.4 Y(I) = -0.9165151
X(I) = 0.7 Y(I) = -0.7141429
X(I) = -1.6 Y(I) = 0.4700036
X(I) = 2.6 Y(I) = 0.9555114
X(I) = -2.2 Y(I) = 0.7884574
X(I) = 1.2 Y(I) = 0.1823216
X(I) = 2.1 Y(I) = 0.7419373
SY = 1,5075733 YMAX = 0.9555114 NYMAX = 4 YMIN = -0.9165151 NYMIN = 1