Створення текстового редактора

Министерство енергетики РФ Уфимский Енергетичний Колледж Курсовая работа по Основ алгоритмізації і программирования на тему «Создание текстового редактора».

Выполнил: студент групи 2 — АС — 3 ____________ Тимофєєв Т.П.

Проверил: ____________ Ганиев А.Э.

Уфа — 2001 г.

Завдання … стор. 3

Описание програми … стор. 4.

Листинг … стор. 5.

Исходный текст програми … стор. 5.

Текст модуля … стр. 10.

Заключение

… стр. 18.

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

Задание.

Создать програму, обеспечивающую:

Cоздание файлов.

Переименование файлов.

Удаление файлов.

Копирование файла на другий файл.

Открытие файла для перегляду.

Программа мусить бути написана на Turbo Pascal в текстовому режимі з допомогою будь-яких модулів, що необхідні її реалізації (допускаються також модулі пользователя).

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

Timofeev Word v.1.0 — це програма до роботи з текстом. З її допомогою можна, видаляти, перейменовувати, відкривати, копіювати файли один одного. Звісно, усе це можна проробити й у MS-DOS, але перевагу цієї програми у цьому, всі ці команди старанно заховані під гарними чоловіками та дружнім інтерфейсом моєї программы.

Так як і програмі Timofeev Word v.1.0 багато процедур, я створив власний модуль Tim.tpu, куди їх (процедури) і отправил.

Процедуры:.

Table — малює оболонку программы.

Enter_Sandman — відбувається програвання музики на пісню групи Metallica — «Enter Sandman». Не почав робити те щоб при натисканні будь-якої клавіші вона припиняла грати, бо мене (не знаю як інших) це свято.

Menu — цю процедуру викликає меню, де міститься інформацію про програмі і матеріальнотехнічна допомога (якщо її так можна назвать).

Keys — процедура, считывающая код натиснутій клавиши.

В програмі, звісно багато недоробок, але сподіваюся, що з’являться доповнені версії 1.2, 1.3, 2.0,2.1,…, n.m.

Эта програма можна використовувати в о-о-о-о-о-очень маленьких офісах, які мають можливість придбати якісний ліцензійний продукт, приміром Microsoft Office'9x, '2000 (коли хтось тримає в приймете такий офіс, із задоволенням продам, за ціну, свій програмний продукт). Також програма можна використовувати на навчання дітей у дитсадках роботи персональні комп’ютери. І, нарешті, їй скористатися студенти I курсу для здавання її як Курсової роботи з наступному курсі.

Листинг.

Исходный текст программы.

Program Redaktor;

Uses Crt, Tim; {використовувати модулі Crt і Tim}.

Label b; {мітка}.

Var {тело}.

Programname, Cmdline: string;

nn, i, x, y: integer;

f1,f1_new:text;

Name, New_name:string[12];

txt, text: string;

ch:char;

begin.

i:=1;

textbackground (red);

clrscr;

textcolor (yellow);

gotoxy (22,10);

writeln («Текстовий процесор Timofeev Word »);

gotoxy (22,11);

writeln («Версія 1.0 (2001 рік) »);

gotoxy (40,15);

writeln («Становив Тимофєєв Тимур (2-АС-3) »);

textcolor (green);

gotoxy (40,16);

writeln («Усі права захищені. »);

gotoxy (40,17);

writeln («Незаконне копіювання »);

gotoxy (40,18);

writeln («чи підробка без згоди автора »);

gotoxy (40,19);

writeln («переслідується за поняттями !!! »);

delay (5000);

textcolor (yellow);

table;

gotoxy (2,21);

write («Запровадьте ім'я: »);

readln (name);

assign (f1,name);

rewrite (f1);

gotoxy (2,21);

write («Вводите текст !!! »);

gotoxy (1,2);

repeat.

write (chr (179), «:> «);

readln (txt);

writeln (f1,txt);

until txt= «» ;

close (f1);

gotoxy (2,21);

writeln («Введення закінчено, натиснімо чогось … »);

repeat.

readkey;

keys (nn);

case nn of {визначає натискання функціональних клавіш}.

59:menu; {F1}.

60:begin {F2}.

table;

gotoxy (2,21);

write (" «);

gotoxy (2,21);

write («Запровадьте ім'я: »);

readln (name);

assign (f1,name);

rewrite (f1);

gotoxy (2,21);

write («Вводите текст !!! »);

gotoxy (1,2);

repeat.

write (chr (179), «:> «);

readln (txt);

writeln (f1,txt);

until txt= «» ;

close (f1);

gotoxy (2,21);

writeln («Введення закінчено, натисніть чогось … »);

end;

61:begin {F3}.

gotoxy (2,21);

write («Запровадьте ім'я файла, куди копир-я файл », name, «-> «);

readln (new_name);

reset (f1);

assign (f1_new, new_name);

append (f1_new);

while not eof (f1) do.

begin.

readln (f1,txt);

writeln (f1_new, txt);

end;

close (f1);

close (f1_new);

gotoxy (2,21);

writeln («Файл », name, «скопійовано в », new_name, «натиснімо.

чего-нибудь … ");

end;

62:begin {F4}.

gotoxy (2,21);

write (" «);

gotoxy (2,21);

write («Запровадьте ім'я файла: »);

readln (new_name);

assign (f1,name);

rename (f1,new_name);

gotoxy (2,21);

writeln («Файл », name, «перименован в », new_name, «натиснімо.

чего-нибудь … ");

end;

63:begin {F5}.

erase (f1);

gotoxy (2,21);

writeln («Файл », name, «удалён з диска, натисніть чогось … »);

end;

64:begin {F6}.

{$I-}.

repeat.

gotoxy (2,21);

write («Запровадьте ім'я файла для зчитування тексту -> «);

readln (name);

assign (f1,name);

reset (f1);

if ioresult0 then.

begin.

gotoxy (2,21);

writeln («Файл не знайдено … »);

close (f1);

end;

until ioresult=0;

{$I+}.

table;

gotoxy (1,2);

while not eof (f1) do.

begin.

readln (f1,txt);

writeln (chr (179), txt);

end;

close (f1);

gotoxy (2,21);

write («Файл лічений, натиснімо чогось … »);

end;

68:goto b; {F10} {Відбувається вихід на метку}.

end;

until і.