Створення програми 'Файловий Менеджер'

Створення програми 'Файловий Менеджер'

ПРИВАТНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД ЕКОНОМІКО - ПРАВОВИЙ ТЕХНІКУМ при МАУП

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

З ДИСЦИПЛІНИ „Технологія створення програмних продуктів”

ТЕМА: „Створення програми “Файловий Менеджер”

Київ 2013

Вступ

Розробку програми здійснено за допомогою мови програмування Object Pascal в середовищі Delphi для операційної системи Windows.

Фа́йловий менеджер - комп'ютерна програма <https://uk.wikipedia.org/wiki/%D0%9F%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%B0>, що надає інтерфейс <https://uk.wikipedia.org/wiki/%D0%86%D0%BD%D1%82%D0%B5%D1%80%D1%84%D0%B5%D0%B9%D1%81> користувача <https://uk.wikipedia.org/wiki/%D0%9A%D0%BE%D1%80%D0%B8%D1%81%D1%82%D1%83%D0%B2%D0%B0%D1%87> для роботи з файловою системою <https://uk.wikipedia.org/wiki/%D0%A4%D0%B0%D0%B9%D0%BB%D0%BE%D0%B2%D0%B0_%D1%81%D0%B8%D1%81%D1%82%D0%B5%D0%BC%D0%B0> та файлами <https://uk.wikipedia.org/wiki/%D0%A4%D0%B0%D0%B9%D0%BB>. Дозволяє виконувати найчастіші операції з файлами: створення, відкриття,програвання,запуск,перегляд, редагування, переміщення, перейменування, копіювання, вилучення, зміну атрибутів <https://uk.wikipedia.org/wiki/%D0%90%D1%82%D1%80%D0%B8%D0%B1%D1%83%D1%82> та властивостей, пошук файлів та призначення прав. Моїм завданням було створити Файловий менеджер з простим інтерфейсом та мінімум функцій. В ньому повинні бути присутні приблизно такі функції. Копіювання, перенесення, видалення, створення нового каталогу та вихід з програми.

Розділ 1. Теоретичні відомості

.1 Поняття Файловий менеджер

Файловий менеджер призначений

Група програм призначення для полегшення основних дій з елементами файлової системи(дисками) І потім вони поступово розвивались але згодом він устарів і дуже рідко ним користувались

Файлові менеджери беруть початок з програм типа Norton Commander, котрий застосовувалися ще в часи MS - DOS, для того, щоб хоч якось спростити роботу з файлами і каталогами, адже в ті часи не було графічного інтерфейсу, як в Windows, і всі команди мали текстовий формат. Та і сьогодні переважна частина файлових менеджерів, принаймні їх інтерфейс, створюється на основі раніше популярного Norton Commander, наприклад, DOS Navigator або FAR. Після установки операційної системи Windows для використання стали доступні два файлові менеджери - Провідник і Мій комп'ютер. Вони володіють практично однаковими можливостями, хоча є і частина корінних відмінностей. Провідник є зручнішим засобом навігації, ніж Мій комп'ютер, оскільки він складається з двох вікон. Ліве відображує ієрархічне дерево дисків і каталогів, а в правому вікні відображується вміст дисків і каталогів. Сьогодні мають велику популярність і такі файлові менеджери, як Total Commander і FAR. Перший зручний тим, що має віконний інтерфейс, такий же, як і у всіх останніх програм Windows. Якщо ж говорити про FAR, то він володіє тим же синьо-білим інтерфейсом, що і Norton Commander.

1.2 Середовище розробки програми

У курсовій роботі для розробки програми я використовував середовище програмування Borland Delphi 7.- це середовище швидкої розробки, в якій в якості мови програмування використовується мова Delphi. Мова Delphi - строго типізований об'єктно-орієнтована мова, в основі якого лежить добре знайомий програмістам Object Pascal.

В даний час програмістам стала доступна чергова версія пакету Delphi - Borland Delphi 7 Studio. Як і попередні версії, Borland Delphi 7 Studio дозволяє створювати самі різні програми: від простих одновіконних застосувань до програм управління розподіленими базами. До складу пакету включені різноманітні утиліти, що забезпечують роботу з базами даних, XML-документами, створення довідкової системи, вирішення інших завдань. Відмінною особливістю сьомої версії є підтримка технології. NET.Delphi 7 Studio може працювати в середовищі операційних систем від Windows 98 до Windows XP. Особливих вимог, по сучасних мірках, до ресурсів комп'ютера пакет не пред'являє: процесор має бути типу Pentium або Celeron з тактовою частотою не нижче 166 МГц (рекомендується Pentium II 400 МГц), оперативної пам'яті - 128 Мбайт (рекомендується 256 Мбайт), достатня кількість вільного дискового простору (для повної установки версії Enterprise необхідно приблизно 475 Мбайт).

1.3 Програмування в Delphi

Програмування в Delphi складається з двох основних етапів:

Візуальна побудова програми на основі об’єктних компонентів і настроювання їх властивостей, в результаті чого можна швидко сформувати користувальницький інтерфейс і забезпечити значну частину функціональності додатка.

Написання програмного коду мовою Object Pascal для забезпечення особливої функціональності додатка, яку неможливо досягти використанням візуальної побудови.

Розділ 2. Розробка програми

.1 Загальний опис програми

В моїй курсовій роботі представлений «Файловий Менеджер». Він забезпечує такі функції, як копіювання, а також вона має можливість створювати Нові каталоги. Переміщувати та видаляти файли. В моїй програмі можливий перегляд та редагування файлів

2.2 Технічне завдання

Введення

.1 Найменування програми.

Найменування програми «Файловий менеджер».

.2 Підстави для розробки.

Написання мною курсової роботи та використання в ній най простіших функцій стало підставою створення цієї самої програми.

.3 Призначення розробки.

Програма призначена для роботи з файлами.

Вимоги до програми.

Програма повинна забезпечувати можливість виконання перерахованих нижче функцій:

Можливість як відкривати папки, так і створювати нові.

Видаляти та редагувати данні.

Можливість переносити файли з одного місця в інше.

Відмови через некоректні дії користувача.

Відмови через некоректні дії користувача при взаємодії з програмою через інтерфейс користувача недопустимі.

Вимоги експлуатації.

Кліматичні вимоги до експлуатації, при яких забезпечується робота програми повинні відповідати кліматичним умовам експлуатації наявних технічних засобів.

Мінімальна кількість персоналу, необхідного для роботи програми, може складати одну штатну одиницю - кінцевого користувача програми - адміністратора.

Для виконання ролі технічного засобу необхідна наявність комп’ютера, що відповідає таким вимогам: Процесор Intel Pentium 2 або вище; Оперативна пам’ять 64 Мб або вище; 2 Мб вільного місця на жорсткому диску.

2.3 Програма та методика тестування

Програмою відкривалися вже існуючі бази файли також створювалися нові каталоги з подальшим їх зберіганням. При всіх вище перечислених маніпуляціях - програма вела себе коректно.

2.4 Інструкція користувача

В даному програмному продукті існує лише один вид користувача - оператор, котрий має всі права. Саме тому інструкція розроблена для операторів даного програмного продукту.

Файловий Менеджер (Total comander) - комп'ютерна програма <https://uk.wikipedia.org/wiki/%D0%9F%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%B0>, що надає інтерфейс <https://uk.wikipedia.org/wiki/%D0%86%D0%BD%D1%82%D0%B5%D1%80%D1%84%D0%B5%D0%B9%D1%81> користувача <https://uk.wikipedia.org/wiki/%D0%9A%D0%BE%D1%80%D0%B8%D1%81%D1%82%D1%83%D0%B2%D0%B0%D1%87> для роботи з файловою системою <https://uk.wikipedia.org/wiki/%D0%A4%D0%B0%D0%B9%D0%BB%D0%BE%D0%B2%D0%B0_%D1%81%D0%B8%D1%81%D1%82%D0%B5%D0%BC%D0%B0> та файлами <https://uk.wikipedia.org/wiki/%D0%A4%D0%B0%D0%B9%D0%BB>.. Дозволяє виконувати найчастіші операції з файлами: створення, відкриття/програвання/запуск/перегляд, редагування, переміщення, перейменування, копіювання, вилучення, зміну атрибутів <https://uk.wikipedia.org/wiki/%D0%90%D1%82%D1%80%D0%B8%D0%B1%D1%83%D1%82> та властивостей, пошук файлів та призначення прав.

Мал. 1 - Головне вікно програми

файловий менеджер програма лістинг

Для перенесення файлів потрібно вибрати файл лівою кнопкою миші та вибрати команду для дій. Щоб створити новий каталог - Клацнути мишею на меню Нов. Каталог та слідувати інструкціям які будуть показані на екрані.

Для видалення виберіть потрібний Вам запис та натисніть кнопку Видалити .

Для створення нового каталогу, перейдіть на вкладку «Нов. каталог» (Мал.2)

Та в полі «Нов. каталог» введіть потрібну вам назву каталогу та натисніть OK.

Мал. 2 - Вкладка створення каталогу

Запуск програми здійснюється наступним чином: необхідно відкрити папку, яка містить дану програму, і знайти виконуваний файл Project1.(Мал.3). На цьому файлі слід виконати подвійне клацання лівою кнопкою миші.

Мал. 3 - Коренева папка

Опис процедур

Кнопка копіювати:

TForm1.Button1Click(Sender: TObject);;;

Вибір диску:

TForm1.DriveComboBox1Change(Sender: TObject);:=drivecombobox1.Drive+'://*.*';;.Caption:=way;;

Кнопка перенести:

TForm1.N6Click(Sender: TObject);;;

Інформація про програму:

TForm1.N9Click(Sender: TObject);.ShowModal;

Закрити програму:

TForm1.N4Click(Sender: TObject);.Close;

Завданням моєї курсової роботи було створити програму в Delphi за темою «Файловий менеджер». На даний момент програма успішно виконує намічені завдання і придатна для використання в навчальних закладах.

Основна перевага моєї програма, це простий та зручний у використанні інтерфейс, також вона займає мало місця на жорсткому диску. Програму може успішно використовувати простий вчитель, так як вона є дуже зрозумілою користувачу.

До недоліків можна віднести неможливість зробити програму на все вікно. Також недоліком є те, що програма володіє не всіма функціями як в оригіналі.

Список використаної літератури

1. Рей Е. Вивчаємо XML. Пер. з англ. - СПб: Символ - Плюс, 2001. - 408с.

2.      XML. Довідник. Пер. з англ. - СПб: Символ - Плюс, 2002. - 576с.

.        Delphi 4.0, Дарахвелідзе П.Г., Марков Е. П. 1998, 816 с.

.        Хелен Боррі. FireBird: Керівництво по створенню баз даних

.        Євгеній Марков, Володимир Нікіфоров. Delphi 2005 для .NET

.        Михайло Фленов. Delphi жартома та всерйоз.

.        Фаронов В.В. Програмування баз даних в Delphi 7.

.        Ю. Ревич. Нестандартні прийоми програмування баз даних в Delphi.

Додаток 1

Лістинг програми

Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, FileCtrl, ComCtrls, ImgList, Menus, ExtCtrls,unit2,, shellapi;= class(TForm): TImageList;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TListView;: TListView;: TDriveComboBox;: TDriveComboBox;: TLabel;: TLabel;: TStatusBar;: TStatusBar;: TButton;: TButton;: TButton;: TButton;: TButton;ListView2DblClick(Sender: TObject);DriveComboBox2Change(Sender: TObject);dbclicksecondtime2;dbclickfirstime2;AddNewFile2(f:TSearchRec);NewList2;Copy;FormCreate(Sender: TObject);AddNewFile(f:TSearchRec);NewList;dbclickfirstime;dbclicksecondtime;DriveComboBox1Change(Sender: TObject);ListView1DblClick(Sender: TObject);ListView1Compare(sender:TObject;Item1,Item2:TListItem;:integer;var Compare:integer);N4Click(Sender: TObject);Button5Click(Sender: TObject);Button1Click(Sender: TObject);N5Click(Sender: TObject);MyRemoveDir(sDir: String):boolean;mydelete;Button3Click(Sender: TObject);N7Click(Sender: TObject);ListView1Click(Sender: TObject);ListView2Click(Sender: TObject);aftercopy1;aftercopy2;dbclickthirdtime2;dbclickthirdtime;Button2Click(Sender: TObject);N6Click(Sender: TObject);newdirectory;N8Click(Sender: TObject);changeplace;N10Click(Sender: TObject);Button4Click(Sender: TObject);N9Click(Sender: TObject);ListView1StartDrag(Sender: TObject;DragObject: TDragObject);ListView2DragDrop(Sender, Source: TObject; X, Y: Integer);ListView2DragOver(Sender, Source: TObject; X, Y: Integer;: TDragState; var Accept: Boolean);ListView1EndDrag(Sender, Target: TObject; X, Y: Integer);ListView2StartDrag(Sender: TObject;DragObject: TDragObject);ListView1DragOver(Sender, Source: TObject; X, Y: Integer;: TDragState; var Accept: Boolean);ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);ListView2EndDrag(Sender, Target: TObject; X, Y: Integer);ListView1KeyPress(Sender: TObject; var Key: Char);ListView2KeyPress(Sender: TObject; var Key: Char);ListView1Editing(Sender: TObject; Item: TListItem;AllowEdit: Boolean);ListView1Edited(Sender: TObject; Item: TListItem;S: String);ListView2Editing(Sender: TObject; Item: TListItem;AllowEdit: Boolean);ListView2Edited(Sender: TObject; Item: TListItem;S: String);

{ Private declarations }

{ Public declarations };: TForm1;,way2:string;,lv2:boolean;:string;

{$R *.dfm}tform1.MyRemoveDir(sDir : String) : Boolean;: Integer;: TSearchRec;: String;:= False;:= sDir + '\*.*';:= FindFirst(sDir, faAnyFile, SearchRec);iIndex = 0 do begin:= ExtractFileDir(sDir)+'\'+SearchRec.Name;SearchRec.Attr = faDirectory then begin(SearchRec.Name <> '' ) and

(SearchRec.Name <> '.') and

(SearchRec.Name <> '..') then(sFileName);else beginSearchRec.Attr <> faArchive then(sFileName, faArchive);NOT DeleteFile(sFileName) then('Не могу удалить ' + sFileName);;:= FindNext(SearchRec);;(SearchRec);(ExtractFileDir(sDir));:=True;;TForm1.FormCreate(Sender: TObject);: TListColumn;:integer;:=false;:=false;:=drivecombobox2.drive+'://*.*';.Caption:=way2;:=drivecombobox1.drive+'://*.*';.Caption:=way;ListView1 do:=vsReport;:=columns.Add;.Caption:='Имя';:=columns.Add;.Caption:='Розмір, байт';:=columns.Add;.Caption:='Дата створення';:=columns.Add;.Caption:='Прихований';:=columns.Add;.Caption:='Системний';i:=0 to 4 do[i].Width:=100;ListView2 do:=vsReport;:=columns.Add;.Caption:='Имя';:=columns.Add;.Caption:='Розмір, байт';:=columns.Add;.Caption:='Дата створення';:=columns.Add;.Caption:='Прихований';:=columns.Add;.Caption:='Системний';i:=0 to 4 do[i].Width:=100;;TForm1.ListView1Compare(sender:TObject;Item1,Item2:TListItem;:integer;var Compare:integer);Item1.ImageIndex=Item2.ImageIndex then compare:=0 elseitem1.imageindex<item2.imageindex then compare:=-1compare:=1;TForm1.NewList;: TSearchRec;:string;.Clear;FindFirst(way,faAnyFile,f)<>0 then exit else(f);findnext(f)=0 do(f);(f);.AlphaSort;length(way)=7 then(listview1.Items.Count,number);.SimpleText:=' Елементів '+numberbegin(listview1.Items.Count-2,number);.SimpleText:=' Елементів '+number;;TForm1.AddNewFile(f:TSearchRec);ListView1.Items.Add, f do:=name;(Attr and faDirectory)<>0:=0;.Add('DIR');.Add(DatetimetoStr((filedatetodatetime(time))));:=1;.Add(inttostr(size));.Add(DatetimetoStr((filedatetodatetime(time))));;(Attr and faHidden)<>0SubItems.Add('так')SubItems.Add('ні');(Attr and faSysFile)<>0SubItems.Add('так')SubItems.Add('ні');;;TForm1.dbclickfirstime;,listsize:integer;:string;:=way;(way1,length(way1)-2,3);:=way1+listview1.items.item[listview1.itemindex].caption+'/*.*',linesize,listsize:integer;:string;:=way2;(way1,length(way1)-3,4);:=length(way1);linesize>0 doway1[linesize]<>'/' then(way1,linesize,1) else break;:=linesize-1;;:=way1+'*.*';length(way2)=7 then;.caption:=way2;;ListView2.Items.insert(0) do begin:='[..]';:=2;;:=listview2.Items.Count-1;:=0;i<=listsize dolistview2.Items.Item[i] do begin(Caption='.') or (Caption='..');:=listsize-1;:=i-1;;;:=i+1;;.Caption:=way2;;;TForm1.dbclickthirdtime2;,fname:string;:tstartupinfo;:tprocessinformation;(startinfo,sizeof(startinfo),#0);.cb:=sizeof(startinfo);:=way2;(way1,length(way1)-2,3);:=way1+listview2.items.item[listview2.itemindex].caption;(application.MainForm.Handle,nil,pchar(fname),'',pchar(way1),sw_show);;TForm1.DriveComboBox2Change(Sender: TObject);:=drivecombobox2.Drive+'://*.*';;.Caption:=way2;;TForm1.ListView2DblClick(Sender: TObject);listview2.Items.item[listview2.itemindex].ImageIndex of

: dbclickfirstime2;

: dbclickthirdtime2;

: dbclicksecondtime2exit;;;;TForm1.Copy;,way3:string;:=way;:=way2;(way1,length(way1)-2,3);(way3,length(way3)-2,3);(lv1=true) and (lv2=false) thenfileexists(way3+listview1.Items.item[listview1.itemindex].Caption) thenMessageBox(0,'Копіювати файл?','Підтвердіть',_YESNO+MB_ICONINFORMATION)=idyes thenCopyFile(Pchar(way1+listview1.Items.item[listview1.itemindex].Caption),(way3+listview1.Items.item[listview1.itemindex].Caption),false) then('Файл вдало копійований!');length(way2)=7 then newlist2 else aftercopy1;ShowMessage('Не вдалось копіювоти файл!');;MessageBox(0,'Копіювати файл?','Підтвердіть',_YESNO+MB_ICONINFORMATION)=idyes thenCopyFile(Pchar(way1+listview1.Items.item[listview1.itemindex].Caption),(way3+listview1.Items.item[listview1.itemindex].Caption),true) then('Файл вдало скопійований!');length(way2)=7 then newlist2 else aftercopy1;ShowMessage('Не вдалось копіювати файл!');;;;(lv1=false)and (lv2=true) thenfileexists(way1+listview2.Items.item[listview2.itemindex].Caption)=true thenMessageBox(0,'Копіювати файл?','Підтвердіть',_YESNO+MB_ICONINFORMATION)=idyes thenCopyFile(Pchar(way3+listview2.Items.item[listview2.itemindex].Caption),(way1+listview2.Items.item[listview2.itemindex].Caption),false) then('Файл вдало скопійований!');length(way)=7 then newlist else aftercopy2ShowMessage('Не вдалось копіювати файл!');MessageBox(0,'Копіювати файл?','Підтвердіть',_YESNO+MB_ICONINFORMATION)=idyes thenCopyFile(Pchar(way3+listview2.Items.item[listview2.itemindex].Caption),(way1+listview2.Items.item[listview2.itemindex].Caption),true) then('Файл вдало скопійований!');length(way)=7 then newlist else aftercopy2ShowMessage('Не вдалось копіювати файл!');;;exit;;TForm1.N4Click(Sender: TObject);.Close;TForm1.Button5Click(Sender: TObject);.Close;TForm1.Button1Click(Sender: TObject);;;TForm1.N5Click(Sender: TObject);;;TForm1.mydelete;,way3:string;:=way;:=way2;(way1,length(way1)-2,3);(way3,length(way3)-2,3);(lv1=true) and (lv2=false) thenlistview1.items.item[listview1.itemindex].imageindex=0 thenMessageBox(0,'Видалити директорію?','Підтвердить',_YESNO+MB_ICONQUESTION)=idyes thenmyremovedir(way1+listview1.items.item[listview1.itemindex].caption) then('Каталог вдало видалений!');(length(way2)=7) and (length(way)=7) then begin;;;(length(way2)=7) and (length(way)>7) then begin;;;(length(way2)>7) and (length(way)=7) then begin;;;;(length(way2)>7) and (length(way)>7) then begin;;;;ShowMessage('Не вдалося видалити!');;;listview1.items.item[listview1.itemindex].imageindex=1 then;(length(way2)=7) and (length(way)>7) then begin;;;(length(way2)>7) and (length(way)=7) then begin;;;;(length(way2)>7) and (length(way)>7) then begin;;;;ShowMessage('Не вдалося видалити!');;;listview2.items.item[listview2.itemindex].imageindex=1 thenMessageBox(0,'Видалити файл? ',' Підтвердіть',_YESNO+MB_ICONQUESTION)=idyes thendeletefile(way3+listview2.items.item[listview2.itemindex].caption) then('Файл успішно видалений!');(length(way2)=7) and (length(way)=7) then begin;;;(length(way2)=7) and (length(way)>7) then begin;;;(length(way2)>7) and (length(way)=7) then begin;;;;(length(way2)>7) and (length(way)>7) then begin;;(length(way2)>7) and (length(way)>7) then begin;;;;showmessage('Не вдається створити каталог');;;TForm1.N8Click(Sender: TObject);;;TForm1.changeplace;,way3:string;:=way;:=way2;(way1,length(way1)-2,3);(way3,length(way3)-2,3);;;;ShowMessage('Не вдалося перенести файл!');;;;(lv1=false)and (lv2=true) thenfileexists(way1+listview2.Items.item[listview2.itemindex].Caption)=true thenMessageBox(0,'Перенести файл? ',' Підтвердіть',_YESNO+MB_ICONINFORMATION)=idyes thenCopyFile(Pchar(way3+listview2.Items.item[listview2.itemindex].Caption),(way1+listview2.Items.item[listview2.itemindex].Caption),false) then(way3+listview2.Items.item[listview2.itemindex].Caption);('Файл успішно перенесений!');(length(way2)=7) and (length(way)=7) then begin;;;(length(way2)=7) and (length(way)>7) then begin;;;(length(way2)>7) and (length(way)=7) then begin;;;;(length(way2)>7) and (length(way)>7) then begin;;;;ShowMessage('Не вдалося перенести файл!');MessageBox(0,'Перенести файл? ',' Підтвердіть',_YESNO+MB_ICONINFORMATION)=idyes thenCopyFile(Pchar(way3+listview2.Items.item[listview2.itemindex].Caption),(way1+listview2.Items.item[listview2.itemindex].Caption),true) then(way3+listview2.Items.item[listview2.itemindex].Caption);('Файл успішно перенесений!');(length(way2)=7) and (length(way)=7) then begin;;;(length(way2)=7) and (length(way)>7) then begin;;;(length(way2)>7) and (length(way)=7) then begin;;;TForm1.ListView2KeyPress(Sender: TObject; var Key: Char);key of(13): begin try case listview2.Items.item[listview2.Itemindex].ImageIndex of

: dbclickfirstime2;

: dbclickthirdtime2;

: dbclicksecondtime2exit;exit;;;;;TForm1.ListView1Editing(Sender: TObject; Item: TListItem;AllowEdit: Boolean);:=listview1.items.item[listview1.itemindex].caption;;TForm1.ListView1Edited(Sender: TObject; Item: TListItem;S: String);oldway,newway,way1,way3:string;:=way;:=way;(way1,length(way1)-2,3);(way3,length(way3)-2,3);:=way1+oldname;:=way3+s;(oldway,newway);;TForm1.ListView2Editing(Sender: TObject; Item: TListItem;AllowEdit: Boolean);:=listview2.items.item[listview2.itemindex].caption;;TForm1.ListView2Edited(Sender: TObject; Item: TListItem;S: String);oldway,newway,way1,way3:string;:=way2;:=way2;(way1,length(way1)-2,3);(way3,length(way3)-2,3);:=way1+oldname;:=way3+s;(oldway,newway);;.

Додаток 2

Блок-схема

Додаток 3

UML-діаграма