Основы алгоритмизации и программирования (кр№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 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<=n do
begin
if X[i]
then M1:=M1+1;
i:=i+1;
end;
{проверка условия задачи и определение искомого значения у
Вывод на экран результатов вычислений}
if A1<0 then
y:=(A4*2.8E-03+A1)/(M1*A1+3E-01)
else
y:=A4*1.35E-04;
writeln;
writeln;
writeln ('A1: ',A1:10);
writeln ('A4: ',A4:10);
writeln ('M1: ',M1);
writeln ('y: ',y:10);
readln;
end.
|
