Государственное образовательное учреждение

высшего профессионального образования

Самарский Государственный Аэрокосмический Университет

им. академика С. П. Королева

Кафедра информатики

Курсовая работа

Тема: Cоставить программу на языке программирования

высокого уровня Turbo Pascal.

Выполнил:

Проверил: Михайлов В.Г.

Самара 20

Содержание

Задание: ……………………………………………………………………………….3

Описание программы и процедур …………………………………………….…4-9

Блок-схема программы ……………………………………………………….. 10-14

Блок-схема процедуры Animaciya …………………………………………...15-22

Листинг программы: …………………………………………………………... 22-31

Заключение…………………………………………………………………………. 31

Список используемой литературы………………………………………………. 32

Задание:

1. Составить программу вычисления функции l*(1-n/Exp(abs(x)))*cos(m*x).

2. В программе вычисления функции l*(1-n/Exp(abs(x)))*cos(m*x) создать меню из 8 пунктов, которые включают:

1. Выбор цвета фона, цвета таблицы и цвета символов, которые затем присутствуют в остальных пунктах меню.

2. Вывод таблицы табуляции функции из 320 элементов, с выводом каждого 20 значения, с возможностью выбора цвета фона, цвета таблицы, цвета символов.

3. Вывод таблицы максимального и минимального значения функции l*(1-n/Exp(abs(x)))*cos(m*x), с возможностью выбора цвета фона, цвета таблицы, цвета символов.

4. Построение графика функции l*(1-n/Exp(abs(x)))*cos(m*x).

5. Вывод на экран логотипа, созданного отдельно от программы, с последующим обращением к нему.

6. Вывод площадки с тенью, с надписью на ней об авторе программы.

7. Индивидуальное задание: составить программу, а затем вставить ее в главную программу как процедуру, в которой по внешнему радиусу окружности катится один шарик с большим радиусом и меньшей скоростью, а по внутреннему – другой с меньшим радиусом и большей скоростью.

8. Выход из меню.

Описание программы и процедур:

1. Procedure Animaciya создает движение одного шарика с большим радиусом и меньшей скоростью по внешнему радиусу окружности и другого с меньшим радиусом и большей скоростью по внутреннему.

2. Procedure Graphic_funkcii производит построение графика функции l*(1-n/Exp(abs(x)))*cos(m*x).

3. Procedure Zastavka производит вывод на экран заставки, созданной отдельно от главной программы в формате .txt

4. Procedure tabulaciya производит расчет функции l*(1-n/Exp(abs(x)))*cos(m*x) от начального до конечного значения, заданного пользователем.

5. Procedure Vibor_cveta позволяет задать цвет фона, цвет таблицы и цвет символов.

6. Procedure print_tab: производит вывод таблицы каждого 20 значения функции в интервале, заданным пользователем, цвет фона, цвет таблицы и цвет символов также выбирается пользователем.

7. Procedure extremum производит расчет максимального и минимального значения функции l*(1-n/Exp(abs(x)))*cos(m*x) в интервале заданным пользователем.

8. Procedure Print_extremum производит Вывод на экран максимального и минимального значения функции l*(1-n/Exp(abs(x)))*cos(m*x) в интервале заданным пользователем, цвет фона, цвет таблицы и цвет символов также выбирается пользователем.

9. Procedure vivod_imeni выводит на красном фоне площадку красного цвета с тенью и надписью об авторе программы.

Вся программа при запуске представляет собой меню из 8 пунктов:

Пункты меню выбираются клавишами ↑ ↓ и последующим нажатием клавиши Enter.

При выборе первого пункта меню выводится таблица с кодами цветов, из которых пользователь выбирает цвет фона, цвет таблицы и цвет символов:

После этого, при нажатии клавиши Enter, вновь появляется меню программы.

Далее программа будет выполняться с заданными цветом фона, цветом таблицы и цветом символов.

Если первый пункт меню не выбран, то есть пользователь не захотел менять цвета, то программа работает с заданными цветами по умолчанию.

При выборе второго пункта меню, пользователь вводит значение переменных l,m,n (коэффициенты в функции l*(1-n/Exp(abs(x)))*cos(m*x)),

X начальное и X конечное:

Затем на экран выводиться таблица из 16 значений функции в интервале, заданном пользователем. Выводится каждое 20 значение:

После этого, при нажатии клавиши Enter, вновь появляется меню программы.

При выборе третьего пункта меню пользователь вводит значение переменных l,m,n (коэффициенты в функции l*(1-n/Exp(abs(x)))*cos(m*x)),

X начальное и X конечное:

затем на экране выводится таблица с максимальным и минимальным значением функции l*(1-n/Exp(abs(x)))*cos(m*x) в интервале, заданном пользователем:

После этого, при нажатии клавиши Enter, вновь появляется меню программы.

При выборе четвертого пункта меню пользователь вновь вводит значение переменных l,m,n, X начальное и X конечное и на экране строится график функции l*(1-n/Exp(abs(x)))*cos(m*x):

При выборе пятого пункта меню на экране появляется рисунок:

При выборе шестого пункта меню выводиться площадка с тенью, с надписью на ней об авторе программы:

При выборе седьмого пункта меню на экране по внешнему радиусу окружности катится один шарик с большим радиусом и меньшей скоростью, а по внутреннему – другой с меньшим радиусом и большей скоростью:

При выборе восьмого пункта меню происходит выход из программы.

Блок-схема программы:

В блок-схеме программы представлены не конкретные операторы, а процедуры, рассмотрим одну из них procedure Animaciya: