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

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

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

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

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

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

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

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

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

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

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

 
 
 
 
 
Пенза, 2007 г.

 

     Оглавление

1. Введение  3
2. Основная часть  4
1. Часть 1. Составление алгоритма и программы на языке Паскаль. 4
1. Условие задачи  4
2. Алгоритм решения  4
3. Блок-схема  5
4. Исходный текст программы  8
2. Часть 2. Разработка рабочей книги Excel  9
1. Лист презентации 10
2. Лист меню 11
3. Лист решения нелинейного уравнения 12
4. Лист решения системы уравнений 14
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)

 
 

 

 
 

 

 

 
 

 

 

 

 
 

 

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

 

 
 
 

 
 
 
 
 

 
 
 
 

 
 
 

 

 
 

  

 

 
 
 

 
 
 

 

 
 
 
 
 
 
 

 

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

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)
• Умножить обратную матрицу на вектор свободных членов, с помощью функции МУМНОЖ.
• В результате получается вектор - решение уравнения.