рефераты
рефераты рефераты
 логин:   
 пароль:  Регистрация 

МЕНЮ
   Архитектура
География
Геодезия
Геология
Геополитика
Государство и право
Гражданское право и процесс
Делопроизводство
Детали машин
Дистанционное образование
Другое
Жилищное право
Журналистика
Компьютерные сети
Конституционное право зарубежныйх стран
Конституционное право России
Краткое содержание произведений
Криминалистика и криминология
Культурология
Литература языковедение
Маркетинг реклама и торговля
Математика
Медицина
Международные отношения и мировая экономика
Менеджмент и трудовые отношения
Музыка
Налоги
Начертательная геометрия
Оккультизм и уфология
Педагогика
Полиграфия
Политология
Право
Предпринимательство
Программирование и комп-ры
Психология - рефераты
Религия - рефераты
Социология - рефераты
Физика - рефераты
Философия - рефераты
Финансы деньги и налоги
Химия
Экология и охрана природы
Экономика и экономическая теория
Экономико-математическое моделирование
Этика и эстетика
Эргономика
Юриспруденция
Языковедение
Литература
Литература зарубежная
Литература русская
Юридпсихология
Историческая личность
Иностранные языки
Эргономика
Языковедение
Реклама
Цифровые устройства
История
Компьютерные науки
Управленческие науки
Психология педагогика
Промышленность производство
Краеведение и этнография
Религия и мифология
Сексология
Информатика программирование
Биология
Физкультура и спорт
Английский язык
Математика
Безопасность жизнедеятельности
Банковское дело
Биржевое дело
Бухгалтерский учет и аудит
Валютные отношения
Ветеринария
Делопроизводство
Кредитование



Главная > Программирование и комп-ры > Основы алгоритмизации и программирования (кр№1, вар1)

Программирование и комп-ры : Основы алгоритмизации и программирования (кр№1, вар1)

Основы алгоритмизации и программирования (кр№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.




Информационная Библиотека
для Вас!



 

 Поиск по порталу:
 

© ИНФОРМАЦИОННАЯ БИБЛИОТЕКА 2010 г.