Решение задач с помощью компьютера
Курсовая работа, 25 Сентября 2013, автор: пользователь скрыл имя
Краткое описание
Для создания курсовой работы также было использовано приложение MS Excel. В нем непосредственно были решены задачи, были использованы многие команды.
Пояснительная записка к курсовому проекту оформлена с помощью приложения MS Word.
Любая программа, выполняемая на ЭВМ, обрабатывает данные с целью получения требуемого результата. В современных языках программирования (Pascal, C, Modula-2, Ada) имеются базовые типы данных и средств построения структурных типов данных из базовых; они облегчают составление программ для решения сложных задач, однако не избавляют программиста от проблем разработки алгоритмов и выбора подходящей структуры данных.
Содержание
Введение 5
1. Составление алгоритма и программы на языке Паскаль 6
2. Разработка рабочей книги Excel 8
2.1 Лист презентации 8
2.2 Лист Меню 9
2.3 Лист решения нелинейного уравнения 10
2.4 Лист решения системы линейных уравнений 12
2.5 Лист решения оптимизационной задачи 13
2.6 Лист решения экономической задачи 14
Заключение 15
Список литературы 16
Вложенные файлы: 1 файл
пояснительная записка.doc
— 957.50 Кб (Скачать файл)
Список литературы
- Алексеев, Е.Р. Турбо Паскаль 7.0 / Е.Р. Алексеев, О.В. Чеснокова, В.Н. Павлыш, Л.В.Славинская. – М.: НТ Пресс, 2007.- 270, [2] с.: ил.
- Алексеев, Е.Р. Турбо Паскаль 7.0 / Е.Р. Алексеев, О.В. Чеснокова – М.: НТ пресс, 2005. – 314, [6] с.: ил. – (Шаг за шагом).
- Гарнаев А.Ю. Excel, VBA, Internet в экономике и финансах. – СПб.: БХВ - Петербург, 2002. – 816с.: ил.
Приложения
Приложение А
Алгоритм программы 1
Текст программы 1 на языке Паскаль
program zadacha1;
uses crt;
const
n=4;
m=4;
var
A:array[1..m,1..n] of integer;
i,j:integer;
max,min,maximum:integer;
jmax,jmin:integer;
begin
clrscr;
writeln('vvedite elementy matricy ',m,' * ',n,' v stroky');
for i:=1 to m do
begin
for j:=1 to n do
read(A[i,j]);
end;
readln;
maximum:=0;
jmax:=1;
jmin:=1;
for i:=1 to m do
begin
max:=A[i,1];
for j:=2 to n do
if A[i,j]>max then begin
min:=A[i,1];
for j:=2 to n do
if A[i,j]<min then begin
end;
if (jmax<jmin) and (max>maximum) then maximum:=max;
end;
if maximum<>0 then writeln('maximum=',maximum)
else writeln('net podxodyacix strok');
readkey;
end.
Рис. - Отладка программы
Рис. - Отладка программы
Алгоритм программы 2
Текст программы 2 на языке Паскаль
program zadacha2;
uses crt;
const
n=4;
m=4;
var
A:array[1..m,1..n] of integer;
i,j:integer;
k,l:integer;
begin
clrscr;
writeln('vvedite elementy matricy ',m,' * ',n,' v stroky');
for i:=1 to m do
begin
for j:=1 to n do
read(A[i,j]);
end;
readln;
writeln('vvedite nomer
stroki');
readln(k);
writeln('vvedite nomer
stolbca');
readln(l);
for i:=1 to m do
A[i,l]:=-1*A[i,l];
for j:=1 to n do
A[k,j]:=-1*A[k,j];
A[k,l]:=-1*A[k,l];
writeln('polychennaya matrica:');
for i:=1 to m do
begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
readkey;
end.
Рис. - Отладка программы
Приложение В
Листы рабочей книги Excel
- лист презентации
- лист меню
- лист решения нелинейного уравн
ения
- лист решения системы линейных уравнений
- лист решения задачи оптимизации
- лист решения экономической зад
ачи