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

Министерство энергетики РФУфимский Энергетический КолледжКурсовая работапо Основам алгоритмизации и программированияна тему Созданиетекстового редактора Выполнил студент группы 2 АС 3 Тимофеев Т.П.Проверил Ганиев А.Э.Уфа 2001г.СодержаниеЗадание стр. 3Описание программы . стр. 4Листинг стр. 5Исходный текст программы стр.

5Текст модуля . стр.10Заключение стр.18Список использованнойлитературы стр.19Программа должна бытьнаписана на Turbo Pascal в текстовом режиме с использованием любых модулей,которые необходимы для е реализации допускаются также модули пользователя .

Описание программы.Timofeev Word v.1.0 это программа для работы с текстом. С е помощьюможно создавать, удалять, переименовывать, открывать, копировать файлы друг вдруга. Конечно, вс это можно проделать и в MS-DOS, но преимущество этойпрограммы в том, что все эти команды тщательно спрятаны под красивым и дружественныминтерфейсом моей программы.Так как в программе TimofeevWord 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 , gt 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 repeatwrite chr 179 , gt readln txt writeln f1,txt until txt close f1 gotoxy 2,21 writeln Ввод окончен, нажмитечего-нибудь end 61 begin F3 gotoxy 2,21 write Введите имя файла, вкоторый копир-я файл ,name gt 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- repeatgotoxy 2,21 write Введите имя файла длясчитывания текста - gt readln name assign f1,name reset f1 if ioresult lt gt 0 thenbegingotoxy 2,21 writeln

Файл не найден close f1 end until ioresult 0 I table gotoxy 1,2 while not eof f1 dobeginreadln f1,txt writeln chr 179 ,txt end close f1 gotoxy 2,21 write Файл считан, нажмитечего-нибудь end 68 goto b F10 Происходит выход на метку end until i lt 0 считывай функциональные клавиши покаi lt 0, а т.к. i 1 и не изменяется,то этот процесс бесконечен b end.Текст модуля.Unit Tim InterfaceUses Crt,Dos Procedure keys varn integer

Procedure table Procedure Enter sandman Procedure menu ImplementationProcedure keys varn integer процедура нажатия клавиши var c char begin if keypressed then begin c readkey if c 0 then c readkey n ord c end end Procedure Enter sandman музыка Const m array 1 6 ofinteger 165,330,392,233,220,330 t array 1 6 ofinteger 1100,600,600,600,1100,600 e array 1 7 ofinteger 165,165,165,165,165,165,170 r array 1 7 ofinteger 600,600,600,600,600,600,1100

w array 1 5 of integer 167,167,167,294,233 q array 1 5 ofinteger 1100,600,600,600,1100 o array 1 9 ofinteger 165,182,165,182,165,196,165,182,165 b array 1 9 ofinteger 600,1100,600,600,600,600,600,600,3000 var a,u,z,x integer i byte begin for a 1 to 4 do begin for i 1 to 6 do begin sound m i delay t i nosound end end for u 1 to 3 do begin for i 1 to 7 do begin sound e i delay r i nosound end end for z 1 to 3 do begin for i 1 to 5 do begin sound w i delay q i nosound end end for i 1 to 9 do begin sound o i delay b i nosound end end

Procedure table рисуеттаблицу var w,h integer c1,c2,c3,c4,c7,c5,c6,c8,c9,c10 char begin textbackground blue clrscr textcolor yellow w 1 h 1 c1 chr 218 c2 chr 196 c3 chr 191 c4 chr 179 c5 chr 192 c6 chr 217 c7 chr 195 c8 chr 180 c9 chr 193 c10 chr 194 for h 2 to 25 do begingotoxy w,h write c4 end gotoxy w,h write c5 for w 2 to 79 dobegingotoxy w,h write c2 end gotoxy w,h write c6 for h 24 downto 1 dobegingotoxy w,h write c4 end gotoxy w,h write c3 for w 78 downto 1 dobegingotoxy w,h write c2 end gotoxy w,h write

c1 gotoxy 1,20 write c7 for w 2 to 59 dobegingotoxy w,20 write c2 end gotoxy w,1 write c10 for h 2 to 24 dobegingotoxy w,h write chr 179 end gotoxy w,20 write c8 gotoxy 59,25 write c9 gotoxy 62,4 writeln F1-Помошь gotoxy 62,5 writeln F2-Новый gotoxy 62,6 writeln F3-Копировать gotoxy 62,7 writeln F4-Переименовать gotoxy 62,8 writeln F5-Удалить gotoxy 62,9 writeln F6-Просмотреть gotoxy 62,10 writeln

F10-Выход end Procedure menu Const NORM 17 цвет невыделеного пункта SEL 70 цвет выделенного пункта N 3 var menu array 1 N of string 12 названияпунктов меню punkt integer номер выделенного пункта ch char введенный символ x,y,i integer координаты первой строкименю Procedure punkt1 begin ClrScr writeln Выполнил студент гр. 2-АС-3Тимофеев

Т.П. 2001 г. writeln Курсовая работа-а-а-а-а-а-а-а readln end Procedure punkt2 begin ClrScr writeln Тута вс понятно даже реб нку. readln end Procedure MenuToScr выводменю на экран var i integer begin ClrScr for i 1 to N do begin GoToXY x,y i-1 write menu i end TextAttr SEL GoToXY x,y punkt-1 write menu punkt выделим строку меню

TextAttr NORM end begin menu 1 О программе menu 2 Помощь menu 3 Выход punkt 1 x 5 y 5 TextAttr NORM MenuToScr repeat ch ReadKey if ch char 0 then begin ch ReadKey case ch of chr 80 стрелка вниз if punkt lt N thenbegin GoToXY x,y punkt-1 write menu punkt punkt punkt 1 TextAttr SEl GoToXY x,y punkt-1 write menu punkt TextAttr

NORM end chr 72 стрелка вверх if punkt gt 1 thenbegin 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 нажата клавиша lt Enter gt 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 и др.Список использованнойлитературы.Попов В.Б. Turbo Pascal для школьников Учеб.пособие. 3-е доп. изд. М. Финансы и статистика,

2001г.Вирт Н. Алгоритмы и структуры данных Пер. с англ. М. Мир,1989г.Прайс Д. Программирование на языке Паскаль Практическоеруководство .Пер. с англ. М. Мир,1987г.