Отчёт по лабораторной работе №4 по дисциплине «Информационные технологии» - файл

скачать (17.9 kb.)

---

Смотрите также:
• Отчет по лабораторной работе №3-1 по дисциплине «Телекоммуникационные технологии и системы» (Документ)
• Отчет по лабораторной работе №4 по дисциплине «Компьютерные технологии в научных исследованиях» (Документ)
• Отчет По лабораторной работе №3 По дисциплине «Корпоративные информационные системы» (Документ)
• Отчет по лабораторной работе №2 по дисциплине «Интегрированные информационные системы» (Документ)
• Отчет по лабораторной работе №5 «методика извлечения предметно-ориентированных знаний в форме слабоструктурированного контента на примере локальной wiki» (Документ)
• Отчет по лабораторной работе №2 по дисциплине (Документ)
• Отчет по лабораторной работе №1 По дисциплине (Документ)
• Отчет по лабораторной работе №7 По дисциплине : технологии программирования (Документ)
• Специальные компьютерные технологии Отчёт По лабораторной работе №1 (Документ)
• Отчет по лабораторной работе по дисциплине: «Аналитическая химия» (Документ)
• Отчет по лабораторной работе №4 по дисциплине: «Технология программирования» (Документ)
• Отчет по лабораторной работе №2 по дисциплине: «Электротехника» по теме (Документ)

МИНОБРНАУКИ РОССИИ

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

высшего образования

«Чувашский государственный университет им. И.Н. Ульянова»

Строительный факультет

ОТЧЁТ

по лабораторной работе № 4

по дисциплине «Информационные технологии»
Вариант № 5
Выполнил:

студент гр. С-11-21

Зотов Никита Андреевич

Проверил:

канд. физ.-мат. наук

доцент Семкин Д.Н.

Чебоксары

2021

Задание №5

Определить количество положительных элементов массива

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

Sub zotov()

Dim n, i As Integer

Dim s As Double

Dim a(100) As Double

n = Cells(1, 2)

For i = 1 To n

a(i) = Cells(i, 1)

Next i

s = 0

For i = 1 To n

If a(i) > 0 Then s = s + 1

Next i

Cells(1, 3) = s

End Sub

Исходные данные: n=3 (1,2,-1)

Выходные данные: s=2

Описание программы:

Dim - оператор описания данных

Double - числовые вещественные двоичной точности

n = Cells(1,2) - переменной n присваивается значение содержимого ячейки из среды Excel 1-й строки 2-го столбца

Cells(1,3) = s - значение переменной s присваивается ячейке в Excel в 1-ю строку 3-го столбца

For i = 1 To n - начало цикла

i – счётчик цикла

Ввод массива- For i=1 to n

a(i)=Cells(i,1)

Next i

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

---