Министерство энергетики РФ Уфимский Энергетический Колледж Курсовая работа по Основам алгоритмизации и программирования на тему "Создание текстового редактора" Выполнил: студент группы 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,' нажмите чего-нибудь ... ............