Реферат

Реферат Решение задач с помощью компьютера

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

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

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 23.11.2024





Министерство образования и науки Российской Федерации

РОССИЙСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ИННОВАЦИОННЫХ ТЕХНОЛОГИЙ И ПРЕДПРИНИМАТЕЛЬСТВА

ПЕНЗЕНСКИЙ ФИЛИАЛ

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

Пояснительная записка

К курсовой работе

Курс: «Информатика и программирование»

Тема: «Решение задач с помощью компьютера»

Выполнил: ст. гр. 06И1 В.В. Задорожный.

Проверила: преподаватель Т.Ю Горюнова.

Пенза, 2007 г.


Оглавление

1.     Введение                                                                                                  3

2.     Основная часть                                                                                       4

2.1.          Часть 1. Составление алгоритма и программы на языке Паскаль. 4

2.1.1.   Условие задачи                                                                         4

2.1.2.   Алгоритм решения                                                                    4

2.1.3.   Блок-схема                                                                                5

2.1.4.   Исходный текст программы                                                     8

2.2.          Часть 2. Разработка рабочей книги Excel                                     9

2.2.1.   Лист презентации                                                                     10

2.2.2.   Лист меню                                                                                 11

2.2.3.   Лист решения нелинейного уравнения                                    12

2.2.4.   Лист решения системы уравнений                                           14

2.2.5.   Лист решения задачи оптимизации                                          15

3.     Заключение                                                                                              16

4.     Приложения                                                                                            17


Введение

         В этой курсовой работе рассмотрены такие средства решения задач с помощью компьютера, как язык Паскаль и электронные таблицы Excel.

         Цель работы: показать свои знания Microsoft Excel,Pascal, MathCAD, Microsoft Word и умение применять их для решения различных задач.


Часть 1. Составление алгоритма и программы на языке Паскаль

Условие задачи

         Латинским квадратом порядка n называется квадратная таблица размером n
x n, каждая строка и каждый столбец которой содержат все числа от 1 до n. Проверить, является ли заданная матрица латинским квадратом.
Алгоритм решения


Подпрограмма «Testing»:


1.     Проверить, есть ли число p в строке (или столбце, в зависимости от параметров процедуры).

2.     Если числа p в строке нет, присвоить переменной результата процедуры 0 и передать управление основной программе.

3.     Повторить шаги 1-2 для p от 1 до n.

4.     Повторить шаги 1-3 для всех строк(столбцов).

5.     Присвоить переменной результата единицу и передать управление основной программе.
Основная программа:

1.     Очистить экран.

2.     Получить с клавиатуры количество элементов массива n.

3.     Получить с клавиатуры значения элементов матрицы A[n,n].

4.     Очистить экран.

5.     Вывести массив на экран.

6.     Вызвать подпрограмму Testing, для проверки строк.

7.     Вызвать подпрограмму Testing, для проверки столбцов.

8.     Вывести на экран результат: если процедура два раза возвратила единицу, матрица является латинским квадратом, в противном случае - нет.


Блок-схема

Procedure Testing (X: array [1..50, 1..50] of integer; m, l, k :integer; var S :integer)








Основная программа









Блок-схема: типовой процесс: Testing(A,n,0,1,R1)        

Блок-схема: ссылка на другую страницу: 1





Исходный текст программы

Program LatSq;

Uses Crt;

Type

Sq= array [1..50,1..50] of integer;

Var A:Sq;

n,i,j,R1,R2: integer;
Procedure Testing (X:Sq; m,l,k:integer; var S:integer);

label Result;

Var i,j,l1,k1,p:integer;

Begin

k1:=l;

l1:=k;

i:=1;

j:=1;
Repeat
For p:=1 to m do

begin

If l=1 then i:=1;

If k=1 then j:=1;

S:=0;
Repeat

If X[i,j]=p then S:=1;
i:=i+l;

j:=j+k;

Until (i=m+1) or (j=m+1);
If S=0 then goto Result;

End;
i:=i+l1;

j:=j+k1;
Until (i=m+1) or (j=m+1);

S:=1;

Result:
End;
Begin

clrscr;

Writeln ('введите порядок квадрата (не больше 50)');

Readln (n);
For i:=1 to n do

Begin

Writeln ('введите по очереди элементы строки N ',i);

For j:=1 to n do Readln (A[i,j]);

End;
clrscr;
For i:=1 to n do

Begin

For j:=1 to n do

Write ('|',A[i,j]:7);

Writeln ('|');

End;

Testing (A,n,0,1,R1);

Testing (A,n,1,0,R2);
If (R1=1) and (R2=1) then Writeln ('Матрица - латинский квадрат')

Else Writeln ('Матрица не является латинским квадратом');
Readln;

End.


Рисунок 1. Ввод данных.


Рисунок 2. Результат выполнения программы.


Часть 2. Разработка рабочей книги
Excel



Лист презентации

         Лист презентации работы был создан средствами MS PowerPoint.

Ø     Фон: Формат - Лист - Подложка…, в диалоговом окне выбрать файл-рисунок для фона.

Ø     Скрыть сетку с помощью кнопки Сетка панели Формы.

Ø     Добавить презентацию с помощью пункта меню Вставка - Объект.

Ø     Выбрать пункт контекстного меню Объект Презентация - Изменить

Ø     Добавить надписи, изменить фон, задать эффекты анимации

Ø     Щелкнуть по ячейке таблицы для выхода из режима редактирования.


Рисунок 3. Лист презентации работы.


Лист меню

Ø     Нарисовать автофигуру: прямоугольник со скругленными краями (с помощью кнопки на панели инструментов Рисование)

Ø     Изменить цвет линий, заливки, добавить прозрачность с помощью пункта контекстного меню Формат автофигуры.

Ø     Создать четыре кнопки для перехода на разные листы рабочей книги с помощью панели инструментов Элементы управления.

Ø     К кнопкам присоединить макросы, содержащие команды перехода на листы:
Sub Нелинейное_уравнение()
    Sheets("Нелинейное уравнение").Select
End Sub


Рисунок 4. Лист меню.
Ø     На остальных листах создать кнопки вызова меню


Лист решения нелинейного уравнения


Задание: найти корни полинома






Решение с помощью команды Подбор параметра:
Ø     Внести в ячейку таблицы формулу.

Ø     Вызвать команду Подбор параметра

Ø     Указать ячейку с формулой, необходимое значение выражения, ячейку для результата.

Ø     Нажать Ок

Рисунок 5. Подбор решения нелинейного уравнения.


Графическое решение

Ø     Заполнить столбец таблицы значениями аргумента x от -6 до 6

Ø     Во второй столбец вставить формулу, по которой вычисляется значение полинома.

Ø     Вызвать Мастер диаграмм (Вставка - Диаграмма)

Ø     Выбрать тип диаграммы График

Ø     В поле Диапазон данных указать массив ячеек, содержащий формулу.

Ø     В поле Подписи оси x - диапазон ячеек, содержащих значения аргумента.


Рисунок 6. Диаграмма графического решения.
Ø     Разместить диаграмму на том же листе, изменить ее размер.

Ø     Координата x точки пересечения графиком оси x - корень полинома. Ее значение совпадает с данными, полученными путем подбора параметра.


Лист решения системы линейных уравнений

Задание: решить систему уравнений





где N - номер варианта. (N=4)

Решение:

Ø     ввести в диапазон ячеек таблицы матрицу коэффициентов и вектор свободных членов.

Ø     построить обратную матрицу с помощью функции МОБР (вызвав функцию и указав диапазон ячеек, необходимо завершить ввод формулы нажатием клавиш Shift
+
Ctrl
+
Enter
)

Ø     Умножить обратную матрицу на вектор свободных членов, с помощью функции МУМНОЖ.

Ø     В результате получается вектор - решение уравнения.


Рисунок 7. Решение системы уравнений матричным способом.


Лист решения задачи оптимизации

Задание: Найти такие x1, x2, x3, x4, которые обращали бы в ноль целевую функцию F(x) и удовлетворяли бы заданной системе ограничений.





где N - номер варианта. (N=4)

Решение:

Ø     Ввести в ячейки таблицы целевую функцию, функции ограничений и их необходимые значения

Ø     Вызвать команду Поиск решения

Ø     Указать целевую ячейку (содержащую целевую функцию)

Ø     Указать диапазон ячеек для хранения результата

Ø     Добавить ограничения и нажать Выполнить.


Рисунок 8. Поиск решения.


Заключение

   В результате выполнения курсовой работы были продемонстрированы и закреплены знания Microsoft Excel,Pascal, MathCAD, Microsoft Word, а также умение применять их для решения различных задач.




Приложения

1.     Исходный текст программы на языке Паскаль

2.     Программа

3.     Рабочая книга Excel

1. Реферат Основания прекращения трудового договора
2. Курсовая на тему Информационная безопасность 2 2
3. Реферат Бухгалтерский баланс как информационная модель оценки финансового положения организации
4. Реферат Психолого педагогические основы развития словаря у детей дошкольного возраста
5. Реферат Мотивация персонала в условиях кризиса
6. Курсовая на тему Значение коммуникаций для эффективного управления организацией
7. Контрольная работа Контрольная работа по Философии 4
8. Реферат Моделирование процесса электростимуляции методом передаточной функции
9. Реферат Фінансово-правові норми та фінансово-правові відносини їх особливості та види
10. Курсовая Управление конфликтами на примере туристического агентства Стар-Тревел