Решение экономической задачи
На данном листе решается экономическая задача «Расчёт ежемесячных платежей по кредиту в банке». Необходимо ввести сумму кредита, срок кредита и количество процентов за использование кредита, а затем рассчитать ежемесячные платежи по кредиту. Результат решения представлен в Приложении № 2(рисунок № 2.7.1).
Заключение
Анализ выполненных заданий позволяет судить о том, что использование программных средств для решения разнообразных задач весьма эффективно, будь то задача математического или экономического содержания. Единожды написанная программа осуществляет расчеты в зависимости от введенных данных, которые можно изменять.
Таким образом, появляется возможность:
- анализировать данные и выбирать наиболее оптимальные решения
- автоматизировать выполнение частых и трудоемких операций
- повысить наглядность представляемых данных.
Эти возможности являются весьма весомым аргументом в пользу применения компьютера для решения широкого круга задач, а круг этот постоянно растёт.
В процессе выполнения данного курсового проекта была изучена литература на заданную тему. Далее составлен алгоритм, по которому и написана данная программа и разработана книга, содержащая математические и экономические расчеты. Затем осуществлялась отладка и тестирование программ. В результате выполнения были получены оптимальные результаты.
Использованная литература.
1. Власов В.К., Королёв Л.Н., Сотников А.Н. Элементы информатики. М., 1999.-320 с.
2. Кирьянов Д.В. Самоучитель MathCad 2001. – СПб.: БХВ-Петербург, 2001. – 544 с.: ил.
3. Ларионова В.Н. Информатика и вычислительная техника. М.,1998.-287 с.
4. Леонтьев В.П. Новейшая энциклопедия персонального компьютера 2003. – М.: ОЛМА-ПРЕСС, 2003. – 920 с.: ил.
5. Фаронов В. В. Turbo Pascal, М.: ”Нолидж”, 2001. – 420 с.
6. Фаронов В. В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. Издание 7-е, переработанное. – М.: Издательство ООО ОМД «Групп», 2002. – 576 с., ил.
7. Фигурнов В.Э. IBM PC для пользователя. Изд. 6-е, перераб. и доп. – М. ИНФРА – М, 1996. – 432 с.: ил.
Приложение№ 1
Var
A:array [1..10,1..10] of integer;
i,j,k,n:integer;
q:boolean;
Begin
For i:=1 to 5 do
For j:=1 to 5 do
Begin
writeln('Press enter A[',i,',',j,']');
readln(A[i,j]);
end;
writeln;
For i:=1 to 5 do
Begin
For j:=1 to 5 do
write(A[i,j]);
writeln;
end;
k:=0;
For j:=1 to 5 do
For i:=2 to 5 do
Begin
q:=true;
For n:=1 to i-1 do
If A[i,j] <= A[n,j] then
Begin
q:=false;
break;
end;
If q=true then
k:=k+1;
end;
writeln('Kol-vo elementov=',k);
readln;
end.
Приложение№ 2
рисунок № 2.1.1 Лист презентации
рисунок№ 2.2.1 Лист меню
рисунок№ 2.3.1 Решение нелинейного уравнения
рисунок№ 2.4.1 Решение системы линейных уравнений
рисунок№ 2.5.1 Решение линейных уравнений(MathCAD)
рисунок№ 2.6.1 Решение задачи оптимизации
рисунок №2.7.1 Решение экономической задачи
Приложение№ 3
рисунок№ 2.2.2 Макросы книги Exel