Материалы сайта
Это интересно
Основы алгоритмизации и программирования (кр№1, вар1)
ТОМСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ СИСТЕМ УПРАВЛЕНИЯ И РАДИОЭЛЕКТРОНИКИ (ТУСУР) Заочный факультет (дистанционная форма обучения) Кафедра автоматизированных систем управления (АСУ) ПРОГРАММИРОВАНИЕ Контрольная работа №1 Дата выполнения работы: 04.08.2003 Дата проверки:_________ Оценка:_________ Преподаватель:__________________ Подпись преподавателя:___________ 2003 г. Контрольная работа № 1 № варианта – 1. Задание: Задан массив чисел X[1..15]. Определить значение переменной у. Исходные данные и результат напечатать с пояснительным текстом. [pic] у= 0,000135(А4, если А1(0. Где А1 – сумма элементов массива Х; А4 – сумма косинусов положительных элементов массива Х; М1 – количество элементов массива Х, значения которых меньше А1. 1. Для решения задачи составим структурную схему алгоритма. Для этого определиим используемые переменные и их тип. Х[1..15] – массив, состоящий из 15 элементов, каждый из которых записан в экспоненциальной форме и имеет вещественный тип данных; i – номер очередного элемента; n – номер конечного элемента массива; М1 - количество элементов массива, значения которых меньше суммы всех элементов массива. Переменные i, n, M1 имеют целочисленный тип данных; А1 – используется для подсчета суммы всех элементов массива Х; А4- используется для подсчета сумм косинусов положительных элементов массива Х; у - искомая по условию задачи переменная. Переменные А1, А4, у имеют вещественный тип данных. Алгоритм выполнения: Для генерации элементов массива используем процедуру Randomize; n:=15; i:=1; Генерируем элементы массива Х с помощью функции random и выводим их на экран while i<=n do begin writeln (i,'-й член массива',random:10); x[i]:=random; i:=i+1; end; Цикл будет повторятся n раз (в данном случае 15), генерируя новый элемент массива Х и заполняя таким образом массив данных. Задаем начальные вычисляемые значения и выводим их на экран. A1:=0; A4:=0; y:=0; M1:=0; Для вычисления суммы всех элементов массива Х и занесения этой суммы в переменную А1 используем цикл i:=1; while i<=n do begin A1:=A1+X[i]; i:=i+1; end; Определение на положительность каждого элемента массива. Если элемент положителен, определяем его косинус и суммируем его значение в переменную А4 i:=1; while i<=n do begin if X[i]>0 then A4:=A4+cos(X[i]); i:=i+1; end; Определяем, меньше ли значения каждого элемента массива Х[i] по сравнению с суммой всех элементов массива A1. Те элементы, значения которых меньше A1, суммируются количественно в переменную М1 i:=1; while i<=n do begin if X[i]0 then A4:=A4+cos(X[i]); i:=i+1; end; {определяем, меньше ли значения каждого элемента массива по сравнению с суммой всех элементов массива. Те элементы, значения которых меньше суммы всех элементов массива,суммируются количественно в переменную М1} i:=1; while i<=n do begin if X[i]