пример курсовой работы 2012

Министерство образования и науки Российской Федерации ФГАОУ «Уральский федеральный университет имени первого Президента России Б.Н. Ельцина» Кафедра городского строительства

Курсовая работа

Обработка информации с помощью табличного процессора MS Excel.

Решение задач на языке программирования Turbo Pascal.

Дисциплина «Информатика»

Руководитель
ст.преп.	М.М. Карманова
Студент
гр. С-250106	Е.В. Кислов

Екатеринбург 2012

1

Содержание

Введение ..............................................................................................................................................................	3
Задание №1 .........................................................................................................................................................	4
Блок-схема к заданию №1 ..................................................................................................................................	5
Задание №2 .........................................................................................................................................................	6
Блок-схема к заданию №2 ..................................................................................................................................	8
Задание №3 .......................................................................................................................................................	10
Блок-схема к заданию №3 ................................................................................................................................	11
Задание №4 .......................................................................................................................................................	13
Задание №5 .......................................................................................................................................................	19
Контрольные вопросы ......................................................................................................................................	20

2

Введение

В данной курсовой работе выполнены задания с помощью табличного процессора MS Excel и языка программирования Turbo Pascal.

Программное обеспечение, которое использовалось для выполнения работы:

MS Word 2007 (для оформления работы и создания блок-схем),

MS Excel 2007 (для выполнения вычислений и построения диаграмм),

система программирования Turbo Pascal 7.0

Для выполнения задания использовались следующие источники литературы:

Робин Чарльз Эффективная работа с MS Word – СПб: ПИТЕР, 2000.

Культин Н.Б. Turbo Pascal в задачах и примерах. – СПб.: БХВ-Петербург,

2002.

Куртис Ф. Microsoft Excel 2003. Русская версия. Практическое пособие.

Серия "Шаг за шагом" // М.: СП ЭКОМ, 2005.

интернет-источники:

http://www.intuit.ru/department/office/workexcelxp/

http://pascalbook.ru/ http://tp7.info/

3

Задание №1

Написать программу и составить блок-схему и для обработки двумерного массива.

Условие задачи: Сформировать и вывести на экран заданный двумерный массив (для заполнения массива использовать формулу).

Вариант 24

Листинг программы:

program one; var

M:array[1..5,1..5] of real; a,b: byte;

Begin

{------- Заполнение массива ----}

For a:=1 to 5 do For b:=1 to 5 do

Begin

M[a,b]:=2*a-b/2;

If b mod 2=0 then M[a,b]:=(-1)*M[a,b];

End;

{------- Вывод массива ----}

For a:=1 to 5 do Begin

For b:=1 to 5 do Begin

Write(M[a,b]:6:1,' ');

End;

Writeln;

End;

{--------------------------------}

Readln;

End.

4

Блок-схема к заданию №1

начало

M, a, b

-

5 ≥ a ≥ 1

-

Заполнение

массива

+

+

5 ≥ b ≥ 1

M[a,b]:=2*a-b/2

-	b mod 2 = 0	+
		M[a,b]:=(-1)*M[a,b]

-	5 ≥ a ≥ 1	+
				Вывод массива
	-	5 ≥ b ≥ 1	+
конец			Write(M[a,b]:6:1,'	')

5

Задание №2

Составить блок-схему и написать программу для обработки двумерного

массива.

Дан двумерный массив А размерностью 7х7, элементы массива - случайные

целые числа из диапазона -30..30. Необходимо сформировать из элементов массива А одномерный массив В, в который поместить все элементы

удовлетворяющие заданному условию. Вывести на экран и записать в текстовый

файл исходный массив А (в виде таблицы) и полученный В (в виде строки).

вариант 24 отрицательные элементы, находящиеся на четных местах

program matrica; uses crt;

var

a:array1..7,1..7] of integer; b:array[1..49] of integer; i, j, k:integer;

f:ifile;

begin

Assign(f,’C:\matrica.txt’); randomize;

clrscr;

{------- Заполнение массива A ----}

for i:=1 to 7 do for j:=1 to 7 do

a[ i, j ]:=-30+random(61);

{------- Вывод массива A на экран и в текстовый файл ----}

Rewrite(f);

Writeln(‘Массив А’); Writeln(f, ‘Массив А’); for i:=1 to 7 do

begin

for j:=1 to 7 do begin

write(a[i, j]:4,’ ’); write(f, a[i, j]:4,’ ’); end;

writeln; writeln (f); end;

6

{------- Формирование массива В ----} k:=0;

for i:=1 to 7 do begin

for j:=1 to 7 do begin

if ((i mod 2=0) and (j mod 2=0)) and (a[i, j]<0) then begin

b[k]:=a[i,j];

k:=k+1;

end;

end;

end;

{------- Вывод массива В на экран и в текстовый файл ----}

Writeln;

Writeln(f); Writeln(‘Массив B’); Writeln(f, ‘Массив B’);

for i:=0 to k-1 do write(b[i]:4,’ ’);

Close(f);

readln;

end.

7

Блок-схема к заданию №2

начало

a,b – массивы,

i, j, k- целые числа, f - файл

Assign(f,’C:\matrica.txt’)

Randomize (Подключение генератора случайных чисел)

-	7 ≥ i ≥ 1	+
	-	+
		7 ≥ j ≥ 1
		a[ i, j ]:=-30+random(61)
Rewrite(f)
Массив А

-	+
	7 ≥ i ≥ 1

-	+
	7 ≥ j ≥ 1
Вывод пустой строки
	Вывод элемента
	a[i, j] на экран и в файл

М

8

	М
	k=0
-	7 ≥ i ≥ 1	+
	-	7 ≥ j ≥ 1	+
	-		Элемент находится на четном	+
			месте и отрицательный?
				b[k]=a[i,j]
				k=k+1
	Массив B

-	+
	k-1 ≥ i ≥ 0
	Вывод b[i]

Close(f)

конец

9

Задание №3

10