Решение инженерных задач с помощью Turbo Pascal и пакета MS Office

Федеральное агентство  по образованию

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

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

 

«СибирскИЙ федеральнЫЙ университет»

в г. Усть-Илимске

 

 

Кафедра естественнонаучных и технических  дисциплин

 

 

 

 

 

  КУРСОВАЯ РАБОТА

                                

По «Информатика и программирование»

 

«Решение инженерных задач с  помощью Turbo Pascal и пакета MS Office»

 

 

 

 

 

Проверил: стар. преподаватель
Выполнил: студент гр. ПИЭ-09
учебный шифр	0906663

 

 

 

 

 

 

 

 

 

 

2010  год

СОДЕРЖАНИЕ

 

1. Основные понятия информатики. Структура информатики. Информатика как фундаментальная наука, как прикладная наука.......... 3
2. Построение графика функции в Excel........................................................ 7
3. Решение системы уравнений с помощью Excel.........................................8
4. Работа с базой данных в Excel.....................................................................9
5. Создание презентации................................................................................12
6. Обработка табличных данных с помощью средств Pascal......................13

ЗАКЛЮЧЕНИЕ................................................................................................16

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ.......................................17

 

1 Основные понятия информатики.  Структура информатики. Информатика  как фундаментальная наука, как прикладная наука

 

Информатика – область человеческой деятельности, связанная с процессами преобразования информации с помощью компьютеров и других средств вычислительной техники. С информатикой часто связывают одно из следующих понятий: это либо совокупность определенных средств преобразования информации, либо фундаментальная наука, либо отрасль производства, либо прикладная дисциплина.

Информатика как совокупность средств  преобразования информации включает технические  средства (hardware), программные продукты (software), математические методы, модели и типовые алгоритмы (brainware). В  состав технических средств входят компьютеры и связанные с ними периферийные устройства (мониторы, клавиатуры, принтеры и плоттеры, модемы и т.д.), линии связи, средства оргтехники и т.п., т.е. те материальные ресурсы, которые обеспечивают преобразование информации, причем главенствующую роль в этом списке играет компьютер. По своей специфике компьютер нацелен на решение очень широкого круга задач по преобразованию информации, при этом выбор конкретной задачи при использовании компьютера определяется программным средством, под управлением которого функционирует компьютер. К программным продуктам относятся операционные системы и их интегрированные оболочки, системы программирования и проектирования программных продуктов, различные прикладные пакеты, такие, как текстовые и графические редакторы, бухгалтерские и издательские системы и т.д. Конкретное применение каждого программного продукта специфично и служит для решения определенного круга задач прикладного или системного характера. Математические методы, модели и типовые алгоритмы являются тем базисом, который положен в основу проектирования и изготовления программного, технического средства или другого объекта в силу исключительной сложности последнего и, как следствие, невозможности умозрительного подхода к созданию.

Перечисленные выше три ресурсных компонента информатики играют разную роль в процессе информатизации общества. Так, совокупность программных и технических средств, имеющихся в том или ином обществе, и позволяет сделать его информационным, когда каждый член общества имеет возможность получить практически любую (исключая, естественно, секретную) интересующую его информацию (такие потребители информации называются конечными пользователями). В то же время, сложность технических и программных систем заставляет использовать имеющиеся технические и программные продукты, а также нужные методы, модели и алгоритмы для проектирования и производства новых и совершенствования старых технических и программных систем. В этом случае можно сказать, что средства преобразования информации используются для производства себе подобных. Тогда их пользователем является специалист в области информатики, а не конечный пользователь.

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

Информатика как отрасль производства практически использует результаты исследований фундаментальной науки информатики. В самом деле, широко известны западные фирмы по производству программных продуктов, такие как Microsoft, Lotus, Borland, и технических средств – IBM, Apple, Intel, Hewlett Packard и другие. Помимо производства самих технических и программных средств разрабатываются также и технологии преобразования информации.

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

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

 

Таблица 1 – Структура информатики

 

Теоретическая информатика				Философские основы информатики Теория информации. Методы измерения информации Математические основы информатики Информационное моделирование Теория алгоритмов Представление знаний и интеллектуально-информационные системы
ССредства информатизации	Технические	Хранения и обработки данных		Персональные компьютеры Рабочие станции Вычислительные системы Устройства ввода/вывода информации Накопители (магнитные, оптические, смешанные)
		Передачи данных		Сети ЭВМ Комплексы Цифровые технические средства связи Телекоммуникационные системы передачи аудио, видео и мультимедийной информации
	Программные	Системное ПО и системы программирования		Операционные системы и среды Сервисные оболочки Утилиты Системы и языки программирования
		Реализации технологий	Универсальных	Текстовые и графические редакторы Системы управления базами данных Табличные процессоры Средства моделирования объектов, процессов и систем
			Профессионально-ориентированных	Издательские системы Профессионально-ориентированные системы автоматизации расчетов Системы  автоматизации проектирования, научных исследований и пр.
Информационные технологии				Ввода/вывода, сбора, хранения, передачи данных Подготовки текстовых и графических документов, технической документации ГИС-технологии Программирования, проектирования, моделирования, обучения, диагностики, управления
Социальная информатика				Информационные ресурсы общества Информационное общество – закономерности и проблемы Информационная культура, развитие личности Информационная безопасность

 

 

2 Построение графика функции в  Excel 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Формула в ячейке А3: =A3+0,1.

Формула в ячейке В2: =ЕСЛИ(A2<=-1;1+ABS(A2)/СТЕПЕНЬ(1+A2+СТЕПЕНЬ(A2;2);1/3);ЕСЛИ(И(A2>=-1;A2<=0);2*LN(1+СТЕПЕНЬ(A2;2))+(1+СТЕПЕНЬ(COS(A2);4))/2+A2;СТЕПЕНЬ(1+A2;3/5))).

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3 Решение системы уравнений с помощью Excel

 

Задание: решить систему линейных уравнений методом по правилу Крамера.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Формулы в ячейках:

Е1: =МОПРЕД(A1:C3);

Е5: =МОПРЕД(A5:C7);

Е9: =МОПРЕД(A9:C11);

Е13: =МОПРЕД(A13:C15);

G1: =E5/E1;

G2: =E9/E1;

G3: =E13/E1.

 

4 Работа с базой данных в Excel

 

Задание: Для заранее подготовленных данных (база данных, состоящая из 20 строк и N столбцов) выполнить сортировку, автофильтр и расширенный фильтр данных. Построить диаграмму для данных.

1. Сортировка:

а) по нескольким полям: фамилия, имя, отчество.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

б) в особом порядке: отдел.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2. Автофильтр: Получить информацию о сотрудниках двух конкретных Отделов, родившихся в период [Дата1; Дата2].

 

 

 

 

 

 

 

 

Информация о сотрудниках, родившихся в период с 24.12.1985 до 01.09.1992, работающих в отделах: обслуживания, технический.

 

3. Расширенный фильтр: найти работников отделов Отдел1 и Отдел2 с фамилиями, начинающимися на буквы Буква1 и Буква2, и окладами выше среднего оклада на предприятии.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Найдены работники отделов: технический, обслуживания; с фамилиями, начинающимися  на буквы: «п», «к»; окладами выше среднего оклада на предприятии.

4. Анализ базы данных: подсчитать средний оклад мужчин старше 20 лет.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Формула в ячейке D32: =СУММ(E27:E30)/4.

 

5 Создание презентации

 

1-й слайд.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2-й слайд.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

6 Обработка табличных данных  с помощью средств Pascal

 

Задание: известен план выпуска компьютеров и количество выпущенных компьютеров тремя фирмами за шесть месяцев. Определить для каждой фирмы, был ли выполнен план по итогам шести месяцев.

Описание входных и выходных данных.

Исходные данные:

n – количество строк  матрицы

m – количество столбцов  матрицы

a:array[1…n,1…m] of integer – начальная матрица, подлежащая  обработке.

c:array[1..n] of integer – одномерный массив результатов вычислений.

i – значение элемента строки матрицы.

j – значение элемента столбца матрицы.

Выходные данные:

s– сумма элементов строк матрицы.

p – план выпуска.

 

Текст программы:

uses crt;

const n=3;m=6;

Var a:array[1..n,1..m] of integer;

c:array[1..n] of integer;

i,j,s,p:integer;

begin

clrscr;

writeln('Задание: Известен план  выпуска компьютеров и количество  выпущенных компьютеров тремя  фирмами за шесть месяцев. Определить  для каждой фирмы, был ли выполнен план по итогам шести месяцев');

writeln;

writeln('Количество выпущенных компьютеров  тремя фирмами за 6 месяцев:');

writeln;

textcolor(5);

write(' ':8);

for j:=1 to m do

write('Месяц ',j,' ');

writeln;

randomize;

textcolor(9);

for i:=1 to n do begin

write(i,' фирма');

for j:=1 to m do begin

a[i,j]:=random(1000);

write(a[i,j]:8);

end;

writeln;

end;

writeln;

textcolor(4);

for i:=1 to 3 do begin

s:=0;

for j:=1 to 6 do

s:=s+a[i,j];

c[i]:=s;

writeln(i,'-я фирма произвела ',s:3,' компьютеров');

end;

writeln;

p:=random(3000);

textcolor(2);

writeln('План выпуска: ',p,' компьютеров');

writeln;

textcolor(8);

for i:=1 to n do

if c[i]>=p then writeln(i,'-я фирма выполнила  план.') else writeln(i,'-я фирма не выполнила  план.');

end.

 

Результат выполнения программы:

 
ЗАКЛЮЧЕНИЕ

 

Представить современную жизнь без современной техники просто невозможно. Ни одна фирма не обходится без помощи компьютеров. Хранение данных, написание документов, составление графиков, таблиц, расписаний, создание презентаций - во всем в этом нам успешно помогает компьютер.

Данная курсовая работа помогла  мне научиться использовать Turbo Pascal и пакет MS Office в решении задач из повседневной жизни.

 

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

 

1. Основы программирования: Учебник/ И.Г. Семакин, А.П. Шестаков. - М.: Мастерство, 2001. - 432 с.
2. Учимся программировать. PASCAL 7.0: Задачи и методы их решения/ А.И. Гусева. - 2-е изд., перераб. и доп.. - М.: ДИАЛОГ-МИФИ, 1999. - 256 с
3. PASCAL 7.0. практическое программирование. Решение типовых задач/ Л.М. Климова. - М.: КУДИЦ-ОБРАЗ, 2000. - 496 с
4. Программирование на языке Pascal/ Г.Г. Рапаков, С.Ю. Ржеуцкая. - СПб.: БХВ - Санкт-Петербург, 2004. - 480 с.
5. Информатика: Базовый курс/ Ред. С.В. Симонович. - СПб.: Питер, 2003. - 640 с.
6. http://www.metod-kopilka.ru/page-2-2-1.html.