Работа с табличным процессором Exce

17





ФЕДЕРАЛЬНОЕ АГЕНТСТВО  ПО  ОБРАЗОВАНИЮ РФ

Мценский  филиал образовательного  учреждения

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

«Орловский государственный  технический университет»



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









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

по информатике





Студент  группы                                         ЭК-1-57  									

							Болотин В.Ю.



Направление:                                             521600  " Экономика"



Руководитель:                                            Борисова Е. В.



Оценка  защиты					____________________

							

								«____»____________ 2010















2010





СОДЕРЖАНИЕ

Задание №1. Работа  с  табличным  процессором Excel	3

Задание №2. Работа  с  СУБД Access	3

ЗАДАНИЕ №3. ПРОГРАММИРОВАНИЕ НА АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ ПАСКАЛЬ	3

литература	3


Задание №1. Работа  с  табличным  процессором Excel

1.1 В среде Excel на  Листе  1 была создана    таблица :  ячейки A3:D22, E1:I2  заполнялись  вручную,  а ячейки F7:J28  с помощью     формул =ЕСЛИ(D3=$E$2;1;0) , =ЕСЛИ(D3=$F$2;1;0), =ЕСЛИ(D3=$G$2;1;0), =ЕСЛИ(D3=$H$2;1;0) и =ЕСЛИ(D3="н/я";1;0)

1.2  Используя встроенные  функции Excel, были  даны ответы на вопросы: 

 а)  в ячейки   A23:A29 было внесено текстовое пояснение;  в ячейку   B25 была  внесена формула СУММ(E3:E22), в ячейку B26 поместили формулу СУММ(F3:F22), в ячейку B27 – СУММ(G3:G22), в B28 формула СУММ(H3:H22),  а в ячейку B29 поместили формулу СУММ(I3:I22).

 б) в ячейку    B23 была  внесена формула СЧЁТ(A3:A22).

Лист 1 переименован в  Математика. Результат представлен на рисунке 1.



Рисунок 1 – Экзаменационная ведомость по математике

 На Листе 2 (Информатика)  подобным образом  была создана  таблица (рисунок 2).



Рисунок 2 – Экзаменационная ведомость по информатике

    Для  выполнения задания   1.4 и 1.5 был создан  лист Стипендия.

       Для  нахождения  среднего балла или  задолженности по предмету  в ячейку D2  занесена  формула: =ЕСЛИ(ИЛИ(математика!D3=2;информатика!D3=2;математика!D3="н/я";информатика!D3="н/я");"задолжник ";СРЗНАЧ(математика!D3;информатика!D3)) и скопирована в  ячейки D2:D21

Для начисления  стипендии была в ячейку E2  занесена формула:

=ЕСЛИ(И(D2>=4;D2<="задолжник");"начислено";"    ") и скопирована в  ячейки E2:Е21

	Для начисления  надбавки в ячейку F2  занесена  формула:  

  =ЕСЛИ(И(D2>4;D2<="   ");"+25%";"    ") и скопирована в  ячейки F2:F21. Результат представлен на рисунке 3.





Рисунок 3 – Итоговая стипендиальная ведомость

1.6 Для диаграммы динамики двух  оценок была  использована  таблица вида:  



Рисунок 4 – Результаты сдачи экзаменов по математике и информатике

Полученная  диаграмма имеет вид,  представленный на рисунке 5.



Рисунок 5 – Динамика  экзаменационных оценок по предметам








Задание №2. Работа  с  СУБД Access

Для  выполнения задания была  создана новая  база данных и для создания таблицы «Студенты групп»  был   произведен  импорт  внешних данных  из созданной  ранее электронной  таблицы  с  листа «Математика». Изменена структура  таблицы и  добавлены поля:

Группа – текстовый;

Год рождения – числовой.

Создана новая таблица «группы». Структура  таблицы имеет вид, представленный на  рисунке 6.



Рисунок 6 – Структура  «группы »  в  Конструкторе

Готовая  таблица  имеет вид, представленный на рисунке 7.



Рисунок 7 – Таблица «группы»

По  этим  таблицам  была  создана Схема  данных и построена  форма для ввода и  редактирования  данных «группы »  

Далее была создана таблица «данные  сессии». Структура представлена  на  рисунке 8.



Рисунок 8 - Структура  «данные  сессии»  в  Конструкторе



Готовая  таблица  имеет вид, представленный на рисунке 9.



Рисунок 9 – Таблица «Данные  сессии»

	Была  создана  новая  Схема данных, представленная  на  рисунке 10 и построена Общая форма ввода  и редактирования  данных

 

Рисунок 10 – Схема  данных



Далее  были  созданы  следующие  запросы:

Должники по каждому предмету (рисунок 11-13).



Рисунок 11 – Структура запроса Должники по математике



Рисунок 12 – Структура запроса Должники по информатике



Рисунок 13 – Структура запроса Должники по микроэкономике

Статистика по студентам хорошистам и отличникам (рисунок 14).



Рисунок 14 - Структура запроса Хорошисты и отличники



Рисунок 15 - Средний  балл по каждой  группе






ЗАДАНИЕ №3. ПРОГРАММИРОВАНИЕ НА АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ ПАСКАЛЬ

В заданной целочисленной матрице 6x6 вывести индексы всех ее седловых точек (элемент матрицы называется седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце, или наоборот, наибольшим в своей строке и наименьшим в своем столбце).





3.1 Программа на языке Паскаль

Исходный текст

program new;

const size = 6;

type point = record

     x:integer;

     y:integer;

     value:integer;

end;

var count:integer;

var arr:array[1..size] of array [1..size] of integer;

var arr1:array[1..size] of array [1..size] of integer;

var maxString: array[1..size] of point;

var minString: array[1..size] of point;

var maxCol   : array[1..size] of point;

var minCol   : array[1..size] of point;

var t:integer; i:integer;  j:integer;

var result:array[1..size*size] of point;

begin

count := 0;

for i:=1 to size do

begin

     for j:=1 to size do

     begin

          writeln('vvedite ',j,' element ',i,' stroki');

          readln(arr[i][j]);

     end;

end;

for i:=1 to size do

begin

     for j:=1 to size do

     begin

          write(arr[i][j]:5,' ')

     end;

     writeln;

end;

for i:=1 to size do

begin

     maxString[i].y := 1;

     maxString[i].value := arr[i][1];

     minString[i].y := 1;

     minString[i].value := arr[i][1];

     for j:=1 to size do

     begin

          maxCol[j].y := 1;

          maxCol[j].value := arr[1][j];

          minCol[j].y := 1;

          minCol[j].value := arr[1][j];

          if(arr[i][j]>maxString[i].value)

          then

          begin

               maxString[i].value := arr[i][j];

               maxString[i].y := j;

          end;

          if(arr[i][j]<minString[i].value)

          then

          begin

               minString[i].value := arr[i][j];

               minString[i].y := j;

          end;

     end;

end;

for j:=1 to size do

begin

     maxCol[j].y := 1;

     maxCol[j].value := arr[1][j];

     minCol[j].y := 1;

     minCol[j].value := arr[1][j];

     for i:=1 to size do

     begin

          if(arr[i][j]<minCol[j].value)

          then

          begin

               minCol[j].value := arr[i][j];

               minCol[j].y := i;

          end;



          if(arr[i][j]>maxCol[j].value)

          then

          begin

               maxCol[j].value := arr[i][j];

               maxCol[j].y := i;

          end;

     end;

end;



Программа разработана для ПЭВМ  типа IBM PC    и  отлажена  в среде Turbo-Pascal. 

Программа почти полностью соответствует приведенной ниже  блок-схеме.


3.2 Блок-схема программы









Начало

Ввод матрицы

Вывод 
результатов

i:=1..6

j:=1..6

 maxString[i].y := 1;

 maxString[i].value := arr[i][1];

 minString[i].y := 1;

 minString[i].value := arr[i][1];

arr[i][j]>maxString[i].value

maxString[i].value := arr[i][j];

maxString[i].y := j;

arr[i][j]<minString[i].value

minString[i].value := arr[i][j];

 minString[i].y := j;



j:=1..6

i:=1..6

     maxCol[j].y := 1;

     maxCol[j].value := arr[1][j];

     minCol[j].y := 1;

     minCol[j].value := arr[1][j];

arr[i][j]<minCol[j].value	

minCol[j].value := arr[i][j];

minCol[j].y := i;

arr[i][j]>maxCol[j].value

maxCol[j].value := arr[i][j];

maxCol[j].y := i;

maxString[i].value = minCol[maxString[i].y].value	

i:=1..6

count:=count+1;

result[count].x   := i;

result[count].y   := maxString[i].y;

 result[count].value := maxString[i].value;





minString[i].value = maxCol[minString[i].y].value	

i:=1..6

count:= count+1;

result[count].x   := i;

 result[count].y   := minString[i].y;

 result[count].value := minString[i].value;

Count>0

да

нет

Седловых точек не найдено

i:=1..6

	Седловая точка в result[i].x строке result[i].y столбце со значением  result[i].value

Конец

3.3 Результаты  расчета

 

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

Экран  работы программы  имеет вид: 





	

	










































литература



		Гладкий, А.А.  Excel. Трюки и эффекты [Текст]/ А.А. Гладкий. – СПб.: Питер, 2006. – 368 с.: ил. 

		Информатика и информационные технологии [Текст]:  учебное пособие/ под ред. Ю.Д. Романовой. – 3-е изд., перераб.  и доп. – М.: Эксмо, 2008. – 592 с.  

		Информатика: Практикум по технологии работы на компьютере [Текст]/ под ред. Н.В. Макаровой. - 3-е изд., перераб. - М.: Финансы и статистика, 2005. - 256 с.: ил.

		Немнюгин, С.А. Turbo Pascal. Программирование на языке высокого уровня [Текст]/ С.А. Немнюгин. - СПб.: Питер, 2003. - 544 с.

		Симонович, С.В. Информатика: Базовый курс [Текст]: учебник/ С.В.Симонович. – М.: АСТ, 2002. – 640 с.

		Соболь, Б.В.  Информатика [Текст]:  учебник/ Б.В. Соболь. - 3-е изд., доп. и перераб. - Ростов н/Д: Феникс, 2007. — 446 с.

		Степанов, А.Н. Информатика [Текст]:  учебник для вузов/ А.Н. Степанов. - 4-е изд. - СПб.: Питер, 2006. — 684 с.

		Угринович, Н.Д. Информатика и информационные технологии [Текст]: учебник для 10-11 классов/ Н.Д. Угринович. – М.: БИНОМ. Лаборатория знаний, 2003. – 512 с.: ил.