Структура Накопление
Автор: es-405-13 • Март 16, 2018 • Лабораторная работа • 347 Слов (2 Страниц) • 520 Просмотры
МИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение
высшего профессионального образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»
Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»
Дисциплина: «Информатика»
ОТЧЁТ
ПО ЛАБОРАТОРНОЙ РАБОТЕ
на тему:
«СТРУКТУРА НАКОПЛЕНИЕ»
Вариант 13
Выполнил студент
факультета ТЭС
группы В-409
___________Л.Б. Мавлютов
подпись, дата
№ 440913
/номер зачетной книжки /
Проверил ___________В.А. Журкин
подпись, дата
___________Н.А.Яковлева
подпись, дата
Санкт-Петербург
2014
Задание 1.
1.Постановка задачи.
1.1.Словесное описание.
Найти среднее геометрическое первых К элементов вектора M размерности N. Полученное значение ПРИСВОИТЬ K-МУ элементу вектора.
Проанализировать выполнение программы на примере К=4.
М={2; 3; 1; 10; 7; -2; 4}
1.2.Формализация входных и выходных данных.
Данные ввода: K, N – целые числа
M=[M(i)], i=1…N – массив вещественных чисел
Данные выхода: SG – вещественное число
2.Алгоритмизация
SG да нет нет да Начало 0 S = 1 6 Конец i = 1 2 iN i=i+1 iK i=i+1 S= S * Mi 10 i = 1 7 SG = S ^ (1/K) 3 5 9 11 12 4 1 13 8 K 14 N Mi K
3.Программирование
Private Sub Command1_Click()
Dim i As Integer, N As Integer, K As Integer
Dim S As Single, SG As Single
Dim M() As Single
N = InputBox("Введите
...