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