ФБГОУ ВО «Чувашский Государственный университет им. И.Н. Ульянова» факультет энергетики и электротехники Кафедра электроснабжения и интеллектуальных электроэнергетическихсистемИмени А.А.ФедороваОтчет по лабораторной работе №16Часть 3Вариант №9Выполнил:студент гр. ЭЭ-41-22Прусаков МатвейПроверил: ст. преподавательАфанасьева М.Н.Чебоксары 2022Цель работы: изучение методов работы с переменными типа одномерный массив.Основные сведенияПод массивом понимается совокупность конечного числа данных одного типа , объединенных под общим именем и отличающихся друг от друга порядковыми номерами(индексами) . имена массивов образуются также , как и имена простых переменных .Для программирования операций с массивами удобно использовать циклы с параметром , где параметр играет роль индекса элементов массива.Пример. Дан одномерный массив А , число элементов которого не превышает 10 . вычислить суммы отрицательных элементов этого массива.Program Summa; Uses Crt;Const N=10Var A: Array[1..N] of Real;M,I:1..N: S:Real;BeginClrScr;{Сумма отрицательных элементов}Write('Введите число элементов массива Writeln('Введите элементы массива"); <=10');Readln(M):Begin Write('[A',1:2,']='); Readln(A[1]);End;For I:=1 to M doWriteln('Контрольный вывод массива");For I:=1 to M do Writeln('[A',1:2,']=',A[l]:4:2);S:=0; For I:=1 to M doIf A[i}<0 Then S:=S+A[I]; Writeln('Сумма отрицательных элементов=',S:4:2);End. Индивидуально задание : вычислить среднее арифметическое положительных элементов массива. Программа:program srar;uses crt;const n=10;var a: array[1..n] of integer; i,sum,cnt: integer;sarif:real;beginsum:=0;sarif:=0;cnt:=0 ;writeln('vvedite massif');for i: 1 ton dobeginwrite('vvedite A[',i,' 1:7); readln(a[i]);if a[i]>0 thenbegincnt:=cnt+1;sum:=sum+a[i];end;end;sarif:=sum/cnt;writeln('sr aref=',sarif:4:2); end.блок схема Вывод: я ознакомился со структурой программы , записанной на языке turbo pascal и приобрел практические навыки в составлении программ одномерных массивов0>

---

Смотрите также файлы

• В какой момент становления психологии, наука смогла выделиться в самостоятельную область.docx

• С. П. Королева (Самарский университет) Юридический институт Кафедра гражданского и предпринимательского права отчет по научноисследовательской работе получение первичных навыков научноисследовательской работы) Упр.pdf

• Что такое конкурентная фирма.docx

• "Жизненный цикл проекта фазы, стадии, этапы (на примере магазина "Дикси").pdf

• Задача На ул. Немецкой П. жестоко избил В. за то, что последний не дал закурить. Экспертиза не установила признаков причинения вреда здоровью В. Квалифицируйте деяние П.docx