|
Создание текстового редактора в Turbo PascalСоздание текстового редактора в Turbo PascalМинистерство энергетики РФ Уфимский Энергетический Колледж Специальность 2202 Курсовая работа по Основам алгоритмизации и программирования на тему “Создание текстового редактора” Выполнил: студент группы 2 – АС – 3 ____________ Тимофеев Т.П. Проверил: ____________ Ганиев А.Э. Уфа – 2001г. Содержание 1. Задание ……………………………………………………… стр. 3 2. Описание программы ………………………………………. стр. 4 3. Листинг ……………………………………………………… стр. 5 1. Исходный текст программы .…………………………. стр. 5 2. Текст модуля ……………….………………………….. стр.10 4. Заключение ………………………………………………….. стр.18 5. Список использованной литературы ……………………… стр.19 Задание. Создать программу, обеспечивающую: 1. Cоздание файлов. 2. Переименование файлов. 3. Удаление файлов. 4. Копирование файла в другой файл. 5. Открытие файла для просмотра. Программа должна быть написана на Turbo Pascal в текстовом режиме с использованием любых модулей, которые необходимы для её реализации (допускаются также модули пользователя). Описание программы. Timofeev Word v.1.0 – это программа для работы с текстом. С её помощью можно создавать, удалять, переименовывать, открывать, копировать файлы друг в друга. Конечно, всё это можно проделать и в MS-DOS, но преимущество этой программы в том, что все эти команды тщательно спрятаны под красивым и дружественным интерфейсом моей программы. Так как в программе Timofeev Word v.1.0 много процедур, я создал собственный модуль Tim.tpu, куда их (процедуры) и отправил. Процедуры: 1. Table – рисует оболочку программы. 2. Enter_Sandman – происходит проигрывание музыки на песню группы Metallica - “Enter Sandman”. Я не стал делать так, чтобы при нажатии какой-либо клавиши она прекращала играть, потому что для меня (не знаю как для других) это свято. 3. Menu – эта процедура вызывает меню, где содержится информация о программе и помощь (если её так можно назвать). 4. 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 ioresult<>0 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 i1 then begin GoToXY(x,y+punkt-1); write(menu[punkt]); punkt:=punkt-1; TextAttr:=SEl; GoToXY(x,y+punkt-1); write(menu[punkt]); TextAttr:=NORM; end; end; end else if ch=chr(13) then begin { нажата клавиша } case punkt of 1:punkt1; 2:punkt2; 3:i:=2;{ выход } end; MenuToScr; end; until i=2; end; end. Заключение. В результате проделанной работы я написал прекрасную программу за 4 часа свободного от учёбы времени практически без помощи литературы и других источников. Программа основана на стандартных процедурах и функциях модуля Crt: Rename, Erase, Append, Rewrite, Reset, Assign и др. Список использованной литературы. 1. Попов В.Б. “Turbo Pascal для школьников”: Учеб.пособие. – 3-е доп. изд. – М.: Финансы и статистика, 2001г. 2. Вирт Н. “Алгоритмы и структуры данных”: Пер. с англ. – М.: Мир, 1989г. 3. Прайс Д. “Программирование на языке Паскаль: Практическое руководство”. Пер. с англ. – М.: Мир, 1987г. |
|
