Размещено на http://www.allbest.ru/

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ

УЧРЕЖДЕНИЕ ОБРАЗОВАНИЯ

"МОГИЛЕВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ИМЕНИ А.А. КУЛЕШОВА"

СОЦИАЛЬНО-ГУМАНИТАРНЫЙ КОЛЛЕДЖ

Дневник-отчет

Индивидуальное задание на учебную практику по программированию

"Программное обеспечение информационных технологий"

учащегося группы 2 "А" СШ спец.2-400101

Федьковича Александра Александровича

Место практики: Социально-гуманитарный колледж

Руководитель практики от учреждения образования

Тюшкевич О.Л.

Практикант Федькович А.А.

Могилев 2011

Содержание

• Индивидуальное задание
• График выполнения индивидуального задания
• 1. Общая характеристика индивидуального задания
• 2. Проектирование программного модуля
• 3. Реализация программного модуля
• Заключение
• Список использованных источников
• Карточка учета обучения учащихся:
• Теоретические и практические знания, полученные путем изучения предмета, групповых занятий, индивидуальных консультаций по охране труда, противопожарной безопасности, ознакомление с правилами оформления документации.
• ФИО обучаемого:

Дата	Наименование предприятия, № и краткое содержание инструктажа, проводимого предмета по охране труда	Количество часов	ФИО инструктирующего преподавателя, руководителя практики, его должность	Оценка успеваемости	Подпись инструктирующего	Подпись учащегося
15.06.	1. Социально-гуманитарный колледж. Ознакомление с приказом о практике, правилами оформления документации и письменного отчета	1	Савицкая Ирина Викторовна	зачтено
15.06.	2. Социально-гуманитарный колледж. Проведение вводного инструктажа по охране труда, охране жизни и здоровья, противопожарной безопасности, энергобезопасности, правилам поведения в учебных лабораториях, правилами обращения с компьютерами, санитарными нормами и правилами, правилами внутреннего распорядка	1	Савицкая Ирина Викторовна	зачтено
15.06.	3. Социально-гуманитарный колледж. Ознакомление с режимом работы при прохождении учебной практики по программированию	1	Савицкая Ирина Викторовна	зачтено

Рабочий план практики

Содержание практики	Сроки выполнения
Ознакомление с целями, задачами, содержанием практики. Вводный инструктаж по технике безопасности и охране труда. Составление плана работы над индивидуальным заданием.	15.06.11
Базовые конструкции для написания структурированных программ. Пошаговая детализация алгоритма. Структуры данных: массивы, строки, записи. Размещение в памяти. Пользовательские типы данных. Модульное программирование. Организация личных библиотек. Решение задачи 1: В заданном предложении найти самое короткое и самое длинное слово и поменять их местами.	16-18.06.11
Рекурсивные алгоритмы. Сортировка и поиск. Методы внутренней сортировки. Статическое и динамическое распределение памяти. Динамические структуры данных. Алгоритмы с возвращением. Решение задачи 2: В целочисленном одномерном массиве упорядочить элементы, имеющие четные индексы по возрастанию. Найти максимальный элемент среди элементов с нечетными индексами. Вывести исходный массив и результаты обработки массива.	20-21.06.11
Организация файловой системы. Создание и обработка баз данных. Библиотечные модули системы программирования Паскаль: Crt, Dos, Graph. Методы построения магических квадратов. Комбинаторные алгоритмы. Элементы системного программирования на языке Паскаль. Решение задачи 3: Даны два числа. Верно ли, что в их записи нет одинаковых цифр? Например, 514 и 233 - верно, 1248 и 64141 - неверно.	22-23.06.11
Объектно-ориентированное программирование. Система программирования Delphi. Основы визуального программирования. Разработка простейших приложений с использованием компонентов страниц Standart, Additional. Разработка приложений с использованием компонентов страниц Win32 и System. Решение задачи 4: В текстовом файле содержатся: жанр, автор, название, книги, издательство, год издания. Осуществить выборку по году издания, отсортировать по автору, с указанием самого продуктивного и самого непродуктивного автора этого года.	24-25.06.11
Разработка приложений с использованием графических возможностей системы Delphi. Разработка приложений с использованием мультимедийных возможностей Delphi. Создание проекта в среде Delphi.	27-29.06.11
Работа с базами данных в Delphi. Оформление программной документации.	30.06.11, 1.07.11

Учет работы

Дата	№	Содержание работы	Отметка о выполнении, замечания	Подпись руководителя
15.06.	1	Вводное занятие. Ознакомление с целями, задачами, содержанием практики. Вводный инструктаж по технике безопасности и охране труда. Составление плана работы над индивидуальным заданием.
16.06.	2	Базовые конструкции для написания структурированных программ. Способы обращения неструктурированных программ в структурированные. Пошаговая детализация алгоритма.
17.06.	3	Пошаговая детализация алгоритма. Структуры данных: массивы, строки, записи. Размещение в памяти. Пользовательские типы данных. Модульное программирование. Организация личных библиотек. Выполнение индивидуального задания.
18.06.	4	Модульное программирование. Организация личных библиотек. Рекурсивные алгоритмы. Выполнение индивидуального задания.
20.06.	5	Рекурсивные алгоритмы. Сортировка и поиск. Методы внутренней сортировки. Выполнение индивидуального задания.
21.06.	6	Рекурсивные алгоритмы. Сортировка и поиск. Методы внутренней сортировки. Статическое и динамическое распределение памяти. Динамические структуры данных. Выполнение индивидуального задания.
22.06.	7	Статическое и динамическое распределение памяти. Динамические структуры данных. Алгоритмы с возвращением. Организация файловой системы. Создание и обработка баз данных. Выполнение индивидуального задания.
23.06.	8	Организация файловой системы. Создание и обработка баз данных. Библиотечные модули системы программирования Паскаль: Crt, Dos, Graph. Методы построения магических квадратов. Комбинаторные алгоритмы. Элементы системного программирования на языке Паскаль. Выполнение индивидуального задания.
24.06.	9	Элементы системного программирования на языке Паскаль. Объектно-ориентированное программирование. Система программирования Delphi. Основы визуального программирования. Разработка простейших приложений с использованием компонентов страниц Standard, Additional. Выполнение индивидуального задания.
25.06.	10	Система программирования Delphi. Основы визуального программирования. Разработка простейших приложений с использованием компонентов страниц Standard, Additional. Разработка приложений с использованием компонентов страниц Win32 и System. Выполнение индивидуального задания.
27.06.	11	Разработка приложений с использованием компонентов страниц Win32 и System. Разработка приложений с использованием графических возможностей системы Delphi. Выполнение индивидуального задания.
28.06.	12	Разработка приложений с использованием мультимедийных возможностей Delphi. Работа с базами данных в Delphi. Выполнение индивидуального задания.
29.06.	13	Разработка приложений с использованием мультимедийных возможностей Delphi. Работа с базами данных в Delphi. Выполнение индивидуального задания.
30.06.	14	Работа с базами данных в Delphi. Выполнение индивидуального задания.
1.07.	15	Защита индивидуального задания. Подведение итогов работы во время учебной практики.

Индивидуальное задание

Тема:

Вид задания: Создать проект в среде программирования Borland Delphi 7.0, позволяющий решать задачи по перечисленным темам.

План (структура) индивидуального задания:

Задача №1. В заданном предложении найти самое короткое и самое длинное слово и поменять их местами.

Задача №2. В целочисленном одномерном массиве упорядочить элементы, имеющие четные индексы по возрастанию. Найти максимальный элемент среди элементов с нечетными индексами. Вывести исходный массив и результаты обработки массива.

Задача №3 Даны два числа. Верно ли, что в их записи нет одинаковых цифр? Например, 514 и 233 - верно, 1248 и 64141 - неверно.

Задача №4. В текстовом файле содержатся: жанр, автор, название, книги, издательство, год издания. Осуществить выборку по году издания, отсортировать по автору, с указанием самого продуктивного и самого непродуктивного автора этого года.

График выполнения индивидуального задания

Содержание разделов	Срок выполнения
1. Знакомство с задачей (задачами).	15.06-16.06
2. Проектирование программного модуля.	17-18.06, 20.06
3. Реализация программного модуля.	21-24.06
4. Тестирование программного модуля.	25.06, 27.06
5. Разработка программной документации.	28-30.06, 1.07

Выполнение индивидуального задания

Индивидуальное задание по теме:
Выполнено в форме:	Проект в среде программирования Borland Delphi 7.0
Обсуждено (рекомендовано к применению):
Оценка качества выполнения индивидуального задания:
Подпись руководителя:
Дата "____" __________2011 г.

1. Общая характеристика индивидуального задания

Целью прохождения учебной практики по программированию является закрепление полученных в ходе обучения теоретических знаний и приобретение практических умений и навыков по программированию в среде Borland Delphi 7.0.

Результатом работы будет являться проект, созданный в среде Borland Delphi 7.0 и позволяющий решать задачи по следующим темам: "Массивы", "Символьные переменные и строки", "Работа с файлами", "Создание анимации".

Первая задача относится к теме "Символьные переменные и строки" и заключается в следующем: В заданном предложении найти самое короткое и самое длинное слово и поменять их местами.

Вторая задача относится к теме "Массивы" и заключается в следующем:

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

Третья задача относится к теме "Символьные переменные и строки" и заключается в следующем: Даны два числа. Верно ли, что в их записи нет одинаковых цифр? Например, 514 и 233 - верно, 1248 и 64141 - неверно.

Четвертая задача относится к теме "Работа с файлами" и заключается в следующем: В текстовом файле содержатся: жанр, автор, название, книги, издательство, год издания. Осуществить выборку по году издания, отсортировать по автору, с указанием самого продуктивного и самого непродуктивного автора этого года.

программный модуль borland delphi

2. Проектирование программного модуля

Схема алгоритма решения задачи №1 по теме "Символьные переменные и строки" представлена на рисунке 1.

Рисунок 1 - Схема алгоритма решения задачи №1

Схема алгоритма решения задачи №2 по теме "Массивы" представлена на рисунке 2.



Рисунок 2. Лист 2 - Схема алгоритма решения задачи №2

Схема алгоритма решения задачи №3 по теме "Символьные переменные и строки" представлена на рисунке 3.



Рисунок 3. Лист 6 - Схема алгоритма решения задачи №3

Схема алгоритма решения задачи №4 по теме "Работа с файлами" представлена на рисунке 4.

Рисунок 4 - Схема алгоритма решения задачи №4

3. Реализация программного модуля

Проект реализован в среде программирования Borland Delphi 7.0 и состоит из 4 программных частей, являющихся решением задач по следующим темам: "Массивы", "Символьные переменные и строки", "Работа с файлами", "Создание анимации".

Код программы задачи №1

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, Grids, jpeg, ExtCtrls, XPMan;

type

TForm2 = class (TForm)

btn1: TBitBtn;

strngrd1: TStringGrid;

btn2: TBitBtn;

btn3: TBitBtn;

lbl1: TLabel;

strngrd2: TStringGrid;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

btn4: TBitBtn;

xpmnfst1: TXPManifest;

img1: TImage;

procedure btn1Click (Sender: TObject);

procedure btn3Click (Sender: TObject);

procedure btn2Click (Sender: TObject);

procedure btn4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

k, i,x,w: Integer; a: array [1.10] of integer;

b: array [1.10] of Integer;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm2. btn1Click (Sender: TObject);

begin

Form1. Visible: =True;

form2. visible: =False;

end;

procedure TForm2. btn3Click (Sender: TObject);

begin

Randomize;

For i: =1 to 8 do begin

a [i]: =random (20);

Form2. strngrd1. Cells [i,0]: =IntToStr (a [i]);

end;

end;

procedure TForm2. btn2Click (Sender: TObject);

begin

for i: =1 to 8 do

b [i]: =a [i];

for k: =2 to 7 do begin

for i: =7 downto k do

if b [i-1] >b [i] then begin

w: =b [i];

b [i]: =b [i-1];

b [i-1]: =w;

end;

end;

for i: =1 to 8 do

Form2. strngrd2. Cells [i,0]: =IntToStr (b [i]);

end;

{ for k: =2 to 8 do begin

for i: =8 downto k do

if a [i-1] >a [i] then begin

w: =a [i];

a [i]: =a [i-1];

a [i-1]: =w;

end;

end;

for i: =1 to 8 do

Form2. strngrd2. Cells [i,0]: =IntToStr (a [i]);

end; }

procedure TForm2. btn4Click (Sender: TObject);

var s, i,z,s1: Integer; c: Real;

begin

s: =0;

for i: =1 to 7 do

begin

s: =s+a [i];

end;

c: =s/7;

Form2. lbl2. Caption: =FloatToStr (c);

s1: =0;

for i: =1 to 7 do

if a [i] <c then z: =i;

for i: =1 to z-1 do

s1: =s1+a [i];

Form2. lbl4. Caption: =intToStr (s1);

end;

end.

Код программы задачи №2

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, XPMan, jpeg, ExtCtrls;

type

TForm3 = class (TForm)

btn1: TBitBtn;

mmo1: TMemo;

btn2: TBitBtn;

mmo2: TMemo;

img1: TImage;

xpmnfst1: TXPManifest;

lbl1: TLabel;

lbl2: TLabel;

procedure btn1Click (Sender: TObject);

procedure btn2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm3. btn1Click (Sender: TObject);

begin

Form1. Visible: =True;

form3. visible: =False;

end;

procedure TForm3. btn2Click (Sender: TObject);

var e,f: TextFile;

s,slovo: string;

r,k,q, i: Integer;

begin

AssignFile (f,'1. txt');

AssignFile (e,'2. txt');

Rewrite (f);

CloseFile (f);

mmo1. Lines. SaveToFile ('1. txt');

Reset (f);

rewrite (e);

closefile (e);

Append (e);

while not eof (f) do begin

readln (f,s);

for i: =1 to Length (s) do begin

r: =Pos (' ',s);

slovo: =Copy (s,1,r-1);

Delete (s,1,r);

k: =pos (slovo,s);

if k=0 then write (e,' ',slovo);

repeat begin

k: =pos (slovo,s);

Delete (s,k,r);

end;

until k=0;

end;

slovo: =Copy (s,1,Length (s));

write (e,slovo,' ');

end;

CloseFile (f);

CloseFile (e);

Reset (e);

Readln (e,s);

Form3. mmo2. Text: =s;

CloseFile (e);

Erase (e);

end;

end.

Код программы задачи №3

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, Grids, jpeg, ExtCtrls, XPMan;

type

TForm4 = class (TForm)

btn1: TBitBtn;

strngrd1: TStringGrid;

btn2: TBitBtn;

xpmnfst1: TXPManifest;

img1: TImage;

procedure btn1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure btn2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm4. btn1Click (Sender: TObject);

begin

Form4. Visible: =False;

form1. visible: =True;

end;

procedure TForm4. FormCreate (Sender: TObject);

var e: textfile;

j: Integer;

s1,s2,s3: string;

begin

strngrd1. Cells [0,0]: ='Фамилия';

strngrd1. Cells [1,0]: ='Имя';

strngrd1. Cells [2,0]: ='Количество очков';

assignfile (e,'Input. txt');

reset (e);

j: =1;

while not eof (e) do begin

readln (e,s1);

readln (e,s2);

readln (e,s3);

Strngrd1. RowCount: =Strngrd1. RowCount+1;

strngrd1. Cells [0,j]: =s1;

strngrd1. Cells [1,j]: =s2;

strngrd1. Cells [2,j]: =s3;

inc (j);

end;

closefile (e);

end;

procedure TForm4. btn2Click (Sender: TObject);

Type ychastnik=record

Fam: string;

imya: string;

ochki: Integer;

end;

var f,e: Textfile;

a: array [1.21] of ychastnik;

q: ychastnik;

nom: Integer;

i,k,n,max,w,v: Integer;

s1,s2,s3,s,c: string;

begin

Assignfile (e,'Input. txt');

reset (e);

Assignfile (f,'Output. txt');

Rewrite (f);

i: =1;

while not eof (e) do begin

readln (e,s1);

readln (e,s2);

readln (e,s3);

a [i]. Fam: =s1;

a [i]. imya: =s2;

a [i]. ochki: =StrToInt (s3);

i: =i+1;

end;

// n: =Strngrd1. RowCount-1;

n: =i-1;

for k: =2 to n do

For i: =n downto k do

if a [i-1]. ochki<a [i]. ochki then begin

q: =a [i];

a [i]: =a [i-1];

a [i-1]: =q;

end;

writeln (f,'СОРЕВНОВАНИЯ');

writeln (f,'Количество участников - ',Strngrd1. RowCount-1);

writeln (f,'Места распределились следующим образом: ');

max: =a [1]. ochki;

for i: =1 to n do begin

if max=a [i]. ochki then begin

max: =a [i]. ochki; nom: =i;

for w: =1 to Length (a [nom]. imya) do

c: =a [nom]. imya [1];

s: =s+' '+a [nom]. fam+' '+c+'. '+'; ';

a [i]. ochki: =-1;

end;

end;

writeln (f,'1 место: ',s);

// ShowMessage (s);

s: ='';

v: =nom+1;

max: =a [v]. ochki;

for i: =1 to n do begin

if max=a [i]. ochki then begin

max: =a [i]. ochki; nom: =i;

for w: =1 to Length (a [i]. imya) do

c: =a [i]. imya [1];

s: =s+' '+a [nom]. fam+' '+c+'. '+'; ';

a [i]. ochki: =-1;

end;

end;

// ShowMessage (s);

writeln (f,'2 место: ',s);

s: ='';

v: =nom+1;

max: =a [v]. ochki;

for i: =1 to n do begin

if max=a [i]. ochki then begin

max: =a [i]. ochki; nom: =i;

for w: =1 to Length (a [i]. imya) do

c: =a [i]. imya [1];

s: =s+' '+a [nom]. fam+' '+c+'. '+'; ';

a [i]. ochki: =-1;

end;

end;

writeln (f,'3 место: ',s);

// ShowMessage (s);

closefile (e);

closefile (f);

End;

end.

Код программы задачи №4

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm5 = class (TForm)

btn1: TBitBtn;

tmr1: TTimer;

tmr2: TTimer;

procedure btn1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure FormPaint (Sender: TObject);

procedure tmr1Timer (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

x1,x2,x3,x4,y1,y2,y3,y4: Integer;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm5. btn1Click (Sender: TObject);

begin

Form5. Visible: =False;

form1. visible: =True;

end;

procedure TForm5. FormCreate (Sender: TObject);

begin

x1: =0; x2: =0; x3: =0; x4: =0;

y1: =0; y2: =0; y3: =0; y4: =0;

end;

procedure TForm5. FormPaint (Sender: TObject);

begin

with form5. Canvas do begin

tmr1. enabled: =True;

Pen. Color: =32768;

Brush. Color: =clGreen;

rectangle (0,300, 2000,3000);

Pen. Color: =clskyblue;

Brush. Color: =clskyblue;

rectangle (0,0, 2000,300);

Pen. Color: =clDkGray;

Brush. Color: =clDkGray;

rectangle (0,500, 2000,350);

end;

end;

procedure TForm5. tmr1Timer (Sender: TObject);

begin

with form5. Canvas do begin

Pen. Color: =clDkGray;

Brush. Color: =clDkGray;

rectangle (100+x1,392,210+x1,420);

Brush. Color: =clYellow;

rectangle (50+x1,420,280+x1,450);

Brush. Color: =clYellow;

Ellipse (100+x1,435,125+x1,460);

Ellipse (200+x1,435,225+x1,460);

Inc (x1);

Brush. Color: =clWhite;

rectangle (100+x1,392,210+x1,420);

Brush. Color: =clYellow;

rectangle (50+x1,420,280+x1,450);

Brush. Color: =clBlack;

Ellipse (100+x1,435,125+x1,460);

Ellipse (200+x1,435,225+x1,460);

if x1=900 then tmr1. Enabled: =False;

end;

end;

end.

Заключение

В результате прохождения учебной практики по программированию был создан проект в среде программирования Borland Delphi 7.0. Данный проект позволяет решить задачи по темам "Массивы", "Символьные переменные", "Работа с файлами" и "Создание анимации". По теме "Массивы" проект позволяет сортировать элементы массива по возрастанию, находить среднее значение всех элементов, а также осуществляет вычисление суммы элементов по определенному критерию. По теме "Символьные переменные и строки" программа позволяет удалить все повторяющиеся слова в тексте. По теме "Работа с файлами" задача позволяет составить отчет по соревнованиям, который будет включать: общее количество участников, фамилии победителей. По теме "Создание анимации" данная работа также может иллюстрировать созданную анимацию. Программный продукт может быть использован в качестве учебного пособия по решению задач на темы: "Массивы", "Символьные переменные и строки", "Работа с файлами", "Создание анимации".

Список использованных источников

1. Сухарев М.В. Основы Delphi. Проффесиональный подход/ - СПБ.: БХВ - Петербург, 2004

2. Культин Н.Б. Основы программирования в Delphi7. - СПБ.: БХВ - Петербург, 2003

3. Гофман В.Э., Хомоненко А.Д. Delphi Быстрый старт. - СПБ.: БХВ - Петербург, 2003

4. Андреев А. и др. Новые технологии Windows 2000. - СПб.: БХВ, 2002, 592 с.

5. Дарахвелидзе П. и др. Программирование на Delphi 5. - СПб.: БХВ, 2002, 784 с.

6. Культин Н. Программирование на Object Pascal в Delphi 5. - СПб.: БХВ, 2002, 464 с.

Размещено на Allbest.ru