МЕНЮ


Фестивали и конкурсы
Семинары
Издания
О МОДНТ
Приглашения
Поздравляем

НАУЧНЫЕ РАБОТЫ


  • Инновационный менеджмент
  • Инвестиции
  • ИГП
  • Земельное право
  • Журналистика
  • Жилищное право
  • Радиоэлектроника
  • Психология
  • Программирование и комп-ры
  • Предпринимательство
  • Право
  • Политология
  • Полиграфия
  • Педагогика
  • Оккультизм и уфология
  • Начертательная геометрия
  • Бухучет управленчучет
  • Биология
  • Бизнес-план
  • Безопасность жизнедеятельности
  • Банковское дело
  • АХД экпред финансы предприятий
  • Аудит
  • Ветеринария
  • Валютные отношения
  • Бухгалтерский учет и аудит
  • Ботаника и сельское хозяйство
  • Биржевое дело
  • Банковское дело
  • Астрономия
  • Архитектура
  • Арбитражный процесс
  • Безопасность жизнедеятельности
  • Административное право
  • Авиация и космонавтика
  • Кулинария
  • Наука и техника
  • Криминология
  • Криминалистика
  • Косметология
  • Коммуникации и связь
  • Кибернетика
  • Исторические личности
  • Информатика
  • Инвестиции
  • по Зоология
  • Журналистика
  • Карта сайта
  • Основы алгоритмизации и программирования (кр№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.


    Приглашения

    09.12.2013 - 16.12.2013

    Международный конкурс хореографического искусства в рамках Международного фестиваля искусств «РОЖДЕСТВЕНСКАЯ АНДОРРА»

    09.12.2013 - 16.12.2013

    Международный конкурс хорового искусства в АНДОРРЕ «РОЖДЕСТВЕНСКАЯ АНДОРРА»




    Copyright © 2012 г.
    При использовании материалов - ссылка на сайт обязательна.