Курсовая работа - Perl - файл n39.doc

Курсовая работа - Perl
скачать (667.3 kb.)
Доступные файлы (72):
n1.cfg
n2.dof
n3.dpr
n4.dproj
Project1.dproj.2007
Project1.dproj.local
n7.exe
n8.identcache
n9.res
n10.~dpr
n11.txt3kb.18.12.2010 02:16скачать
n12.dcu
n13.ddp
n14.dfm
n15.pas
n16.~ddp
n17.~dfm
n18.~pas
n19.dcu
n20.ddp
n21.dfm
n22.pas
n23.~ddp
n24.~dfm
n25.~pas
n26.dcu
n27.ddp
n28.dfm
n29.pas
n30.~ddp
n31.~dfm
n32.~pas
n33.dcu
n34.dfm
n35.pas
n36.~dfm
n37.~pas
perl_image.jpg28kb.17.12.2010 18:13скачать
n39.doc149kb.26.12.2010 18:23скачать
n40.docскачать
n41.docскачать
n42.vsd
n43.txt3kb.17.12.2010 00:14скачать
n44.txt8kb.18.12.2010 00:34скачать
n45.txt1kb.18.12.2010 00:40скачать
n46.txt30kb.18.12.2010 00:48скачать
n47.txt1kb.18.12.2010 00:58скачать
n48.txt29kb.18.12.2010 01:08скачать
n49.txt1kb.18.12.2010 01:20скачать
n50.txt7kb.18.12.2010 01:31скачать
n51.txt1kb.18.12.2010 01:39скачать
n52.txt4kb.17.12.2010 17:00скачать
n53.txt1kb.18.12.2010 00:08скачать
n54.txt4kb.18.12.2010 01:41скачать
n55.txt1kb.18.12.2010 00:41скачать
n56.txt5kb.17.12.2010 02:07скачать
n57.txt1kb.18.12.2010 00:41скачать
n58.txt3kb.17.12.2010 08:53скачать
n59.txt1kb.17.12.2010 23:06скачать
n60.txt3kb.18.12.2010 00:16скачать
n61.txt1kb.18.12.2010 00:30скачать
n62.txt7kb.17.12.2010 15:42скачать
n63.txt1kb.18.12.2010 01:24скачать
n64.txt7kb.17.12.2010 16:28скачать
n65.txt1kb.17.12.2010 18:05скачать
n66.txt14kb.17.12.2010 18:11скачать
n67.txt1kb.17.12.2010 23:16скачать
n68.txt13kb.17.12.2010 17:18скачать
n69.txt1kb.17.12.2010 23:35скачать
n70.txt22kb.17.12.2010 17:29скачать
n71.txt1kb.18.12.2010 00:02скачать
n72.docскачать

n39.doc

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

РОССИЙСКОЙ ФЕДЕРАЦИИ

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

Кафедра программного обеспечения и администрирования

информационных систем

Курсовая работа
Обучающая программа по языку программирования Perl


Работу принял: Работу выполнил:

К.т.н., доцент кафедры ПОиАИС ст. 23 гр. МОиАИС.

Белова Т.М. Павлов Я. Ю.

Тарасова К. Н.

Лубнина Н. Ю.

Калуцкая Ю. С.


__________________________

(оценка)

Подпись:__________________ Подпись:_____ _____

_____ _____

Дата:_____________________ Дата:______________
Курск 2010
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ

РОССИЙСКОЙ ФЕДЕРАЦИИ

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

Кафедра программного обеспечения и администрирования

информационных систем


УТВЕРЖДАЮ: Зав. кафедрой ПОиАИС

______________ Жмакин А. П.

ЗАДАНИЕ

на курсовой проект (работу)

по дисциплине «Программирование»
Студенты __________ Павлов Я. Ю.

____________________ Тарасова К. Н.

____________________ Лубнина Н. Ю.

____________________ Калуцкая Ю. С.

подпись и расшифровка подписи

Шифр
Факультет ИВТ

Специальность МОиАИС.

Группа 23

Руководитель __________

подпись и расшифровка подписи

Тема курсового проекта (работы):

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

Состав и этапы работы: (составляется преподавателем)

1. Ознакомиться с рекомендуемой литературой. Дать аналитический обзор проблемы.

2. Теоретический материал
3. Исходные данные

_______________________________________________________________

Среда разработки Borland Delphi7.

4. Цель работы

________________________________________________________________

________________________________________________________________

________________________________________________________________
5. Рекомендуемая литература
6. Отчетный материал курсового проекта (работы)

  1. Техническое задание

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

7. Контрольные этапы и даты:

Этап

1

2

3

Дата










Подпись руководителя











Задание получено: «____» _______________ 2010г.

Студенты____________________________ _____________________________________

_____________________________________

_____________________________________
подпись и расшифровка подписей

Руководитель _________________________

подпись и расшифровка подписи

Отзыв руководителя

________________________________________________________________

________________________________________________________________

________________________________________________________________

________________________________________________________________


Оценка: «_____»

Руководитель _________________________

Дата ________________

подпись и расшифровка подписи__________ »


Содержание
1 Техническое задание ……………………………………………………….6

1.2 Основания для разработки…………………………………………………6 1.3 Функциональное и эксплуатационное назначение изделия……..………6 1.4 Методические ограничения …………………………………………....6

1.4.1 Стандарты …………………………………………………...7

1.4.2 Программная совместимость ……………………………... 8

1.4.3 Требования к составу и параметрам технических

средств …………………………………………………………….8

1.4.4 Входные данные ……………………………………………8

1.4.5 Выходные данные …………………………………………..8

1.4.6 Безопасность и секретность ………………………………..9

1.4.7 Мобильность ………………………………………………..7

1.5 Стадии и этапы разработки ……………………………………….. 8

    1. Технико-экономические показатели разработки ………………...10

    2. Порядок приемки и контроля..........................................................10

    3. Тестирование.....................................................................................10

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

2.1 Функциональные и эксплуатационные характеристики ………...11

2.2 Удобство эксплуатации …………………………………………….11

2.3 Описание программы ……………………………………………….11

2.3.1 Функциональное описание ………………………………….11

2.3.3 Эскиз программы……………………………………………12

2.3.2 Схема основного блока …………………………………….13

Список литературы ……………………………………………………………15

Приложение 1: текст программы с комментариями…………………………...16

Приложение 2: блок-схема……………………………………………………….24


1 ТЕХНИЧЕСКОЕ ЗАДАНИЕ

1.1 Введение


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

Perl — высокоуровневый интерпретируемый динамический язык программирования общего назначения, созданный Ларри Уоллом , лингвистом по образованию. Название языка представляет собой аббревиатуру, которая расшифровывается как Practical Extraction and Report Language «практический язык для извлечения данных и составления отчётов». Первоначально аббревиатура состояла из пяти символов и в таком виде в точности совпадала с английским словом pearl, жемчужина. Но затем стало известно, что такой язык существует и букву «а» убрали. Талисманом языка Perl является верблюд — не слишком красивое, но очень выносливое животное, способное выполнять тяжёлую работу.

Если вы новичок в программировании или пока не знаете среды Perl, этот самоучитель- то, с чего вам нужно начать, потому что она простая и краткая.

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

Чтобы потом, если потребуется, суметь самостоятельно найти необходимую информацию и разобраться в ней.

Прочитав данный самоучитель, вы научитесь пользоваться Perl для создания Web- приложений, так как он представляет широчайшие возможности по обработке текстовой информации.

1.2 Основания для разработки
Основанием для разработки программы является задание к курсовому проекту по предмету «Программирование».

1.3 Функциональное и эксплуатационное назначение изделия

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


Программа должна обеспечивать:


1.4 Методические ограничения
1.4.1 Стандарты
Разработка программной документации и программы должна производиться согласно ЕСПД, ГОСТ 19.701-90, ГОСТ 2.304-88.


1.4.2 Программная совместимость

Программа работает под управлением операционной систем Windows 98/NT/XP/Vista.

Указания по установке программного продукта описаны в приложении 2.
1.4.3 Требования к составу и параметрам технических средств

Для работы программы желательно иметь персональный компьютер со следующей характеристикой:



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



Входными данными программы являются текстовые документы, содержащие в себе понятную информацию.

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



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

1.4.6 Безопасность и секретность



Программа не требует защиты и может свободно распространяться.

1.4.7 Мобильность
Для копирования программы с диска или flash-USB на компьютер необходимо:

1. Cкопировать .exe файл, расположенный на диске (flash-USB), в какую-либо папку на жёстком диске компьютера.

2. Запустить программу.

В приложении к документу должен быть приведен листинг исходных текстов программы, блок – схемы.

1.5 Стадии и этапы разработки



Выполнение разработки должно включать две стадии:

1 Техническое задание

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

На стадии "Техническое задание" проводится постановка задачи, разработка требований к программному изделию, изучение литературы по задаче и оформление документа "Техническое задание".

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

1.6 Технико-экономические показатели разработки

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

1.8 Тестирование

При открытии exe-файла с электронного носителя, перед нами появится приветственное окно. Затем авторы программы разместили список глав самоучителя. Переход к данным главам осуществляется нажатием кнопки мыши на необходимом названии главы. После изучения программы у нас имеется возможность проверить свои знания, пройдя тест для самоконтроля. В конце теста учащийся, нажав кнопку «проверить» получает правильные варианты ответов.

2 ПОЯСНИТЕЛЬНАЯ ЗАПИСКА
2.1 Функциональные и эксплуатационные характеристики
Программа обладает следующими характеристиками:


2.2 Удобство эксплуатации
В программе реализован простой и интуитивно понятный интерфейс, позволяющий избежать многих лишних и ненужных действий, которые необходимо выполнять в программах такого класса.
2.3 Описание программы
2.3.1 Функциональное описание
Form1

Играет роль заставки в программе.

По истечении времени таймера форма 1 переходит на форму 2.

Form2

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

Form2 показана на рисунке 1.

Form3

Раздел тестирования.

Включает в себя вопросы самоконтроля и две кнопки «проверить» и «выход». Form3 показана на рисунке 2.
Эскиз программы.
Рис 1. Form 2
Рис.2 Form 3
2.3.2 Схема основного блока

Схема взаимодействия модулей показана на рис.3.


Рис 3.
Состав модулей:

Procedure FormShow (Sender:TObject);

Procedure ListBox1Click (Sender:TObject);

по открытию программа показывает Form2. Form1 скрыта. Выходными данными является таймер. Когда заканчивается отсчет Form1 становится невидимой

Procedure BitBtn1Click (Sender:TObject);

Procedure BitBtn1Click (Sender:TObject);

Кнопки перехода по содержанию текста «вперед» и «назад». Смори приложение 2.(рис.4 и рис.5)

Procedure FormCreate (Sender:TObject);

Процедура по созданию формы

Procedure N6Click (Sender:TObject);

Procedure N8Click (Sender:TObject);

Procedure N7Click (Sender:TObject);

Procedure N9Click (Sender:TObject);

Компоненты основного меню формы

Procedure FormActive (Sender:TObject);

Procedure N4Click (Sender:TObject);

Когда форма активирована

Список использованной литературы

  1. Бобровский С.И. Технологии Delphi. Разработка приложений для бизнеса. Учебный курс. [Текст]/ С.И Бобровский. СПб.: Питер, 2007. 720с.

  2. Т. Кристиансен, Н. Торкингтон. PERL: библиотека программиста

  3. Прохоренок Н. Разработка Web- сайтов с помощью Perl и MySQL

СПб.:БХВ-Петербург, 2009. 560с.

  1. Т. Кристиансен, Н. Торкингтон. Perl. Сборник рецептов. Для профессионалов. 2-е издание. СПб.: Питер, 2004. 928с

  2. Л. Уолл, Т. Кристиансен, Дж.Орвант. программирование на Perl.

СПб.: Символ-плюс, 2004. 1152с

Приложение 1.

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

unit Unit1;
interface
uses

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

Dialogs, StdCtrls, Buttons, Menus, jpeg, ExtCtrls, Printers, ComCtrls;
type

TForm1 = class(TForm)

Memo1: TMemo;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

ListBox1: TListBox;

Label1: TLabel;

Image1: TImage;

Image2: TImage;

RichEdit1: TRichEdit;

N9: TMenuItem;

FontDialog1: TFontDialog;

procedure FormShow(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

f,t:TStrings;

i,b,p:integer;

Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}


procedure TForm1.FormShow(Sender: TObject);

begin

Form1.AlphaBlend:=true;

Form1.AlphaBlendValue:=0;

Form2.Show;

end;
procedure TForm1.ListBox1Click(Sender: TObject);

begin

if ListBox1.Selected[0] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\1.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\1t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

if ListBox1.Selected[1] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\2.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\2t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

if ListBox1.Selected[2] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\3.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\3t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

if ListBox1.Selected[3] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\4.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\4t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

if ListBox1.Selected[4] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\5.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\5t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

if ListBox1.Selected[5] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\6.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\6t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

if ListBox1.Selected[6] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\7.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\7t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

if ListBox1.Selected[7] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\8.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\8t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

if ListBox1.Selected[8] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\9.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\9t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

if ListBox1.Selected[9] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\10.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\10t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

if ListBox1.Selected[10] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\11.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\11t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

if ListBox1.Selected[11] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\12.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\12t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

if ListBox1.Selected[12] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\13.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\13t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

if ListBox1.Selected[13] then

begin

f.free;

t.Free;

Memo1.Lines.Clear;

f:=TStringList.Create();

t:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\14.txt');

t.LoadFromFile('C:\Program Files\Perlbook\info\14t.txt');

i:=0;

Memo1.SelText:=f[i];

end;

end;
procedure TForm1.BitBtn2Click(Sender: TObject);

begin

if i
i:=i+1

else ShowMessage('Глава закончена') ;

Memo1.Lines.Clear;

Memo1.SelText:=f[i];

end;
procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if i>0 then

begin

i:=i-1;

Memo1.Lines.Clear;

Memo1.SelText:=f[i];

end;

end;
procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Lines.Clear;

f:=TStringList.Create();

f.LoadFromFile('C:\Program Files\Perlbook\info\info.txt');

Memo1.Lines:=f;

end;
procedure TForm1.N6Click(Sender: TObject);

begin

f.Free;

close;
end;
procedure TForm1.N8Click(Sender: TObject);

begin

RichEdit1.Lines:=Memo1.Lines;

RichEdit1.Print('Print of our RichEdit1');

RichEdit1.Clear;

end;
procedure TForm1.N7Click(Sender: TObject);

begin

RichEdit1.Lines:=f;

RichEdit1.Print('Print of our RichEdit1');

RichEdit1.Clear;

end;
procedure TForm1.N9Click(Sender: TObject);

begin

FontDialog1.Execute;

RichEdit1.Font:=FontDialog1.Font;

end;
procedure TForm1.FormActivate(Sender: TObject);

begin

p:=100;

if (Screen.Width=1280) and (Screen.Height=960)

then

p:=95;

if (Screen.Width=1280) and (Screen.Height=800)

then

p:=92;

if (Screen.Width=1024) and (Screen.Height=768)

then

begin

p:=70;

Image1.Visible:=False;

end;

if (Screen.Width=800) and (Screen.Height=600)

then

begin

p:=50;

Image1.Visible:=False;

end;

if (Screen.Width=1280) and (Screen.Height=1024)

then

p:=100;

ChangeScale(p, 100);
end;
procedure TForm1.N4Click(Sender: TObject);

begin

Form3.Show;

Form3.Label1.Caption:=t[0];

Form3.Label2.Caption:=t[1];

Form3.Label3.Caption:=t[2];

Form3.Label4.Caption:=t[3];

Form3.Label5.Caption:=t[4];

Form3.Label6.Caption:=t[6];

Form3.Label7.Caption:=t[7];

Form3.Label8.Caption:=t[8];

Form3.Label9.Caption:=t[9];

Form3.Label10.Caption:=t[10];

Form3.Label11.Caption:='Ответ ='+t[5];

Form3.Label12.Caption:='Ответ ='+t[11];

end;
end.
unit Unit3;
interface
uses

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

Dialogs, StdCtrls;
type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);

begin

Label11.Visible:=True;

Label12.Visible:=True;
end;
procedure TForm3.Button2Click(Sender: TObject);

begin

Label11.Visible:=False;

Label12.Visible:=False;

Form3.Close;

end;
end.


Приложение 2.

Блок-схема.

Рис 4.
Рис 5.





Учебный материал
© nashaucheba.ru
При копировании укажите ссылку.
обратиться к администрации