Міністерство енергетики РФ
Уфімський Енергетичний Коледж
Курсова робота
з Основ алгоритмізації та програмування
на тему "Створення текстового редактора"
Виконав: студент групи 2 - АС - 3 ____________ Тимофєєв Т.П.
Перевірив: ____________
Ганієв А.Е.
Уфа - 2001р.
Зміст
Завдання ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... стор 3
Опис програми ... ... ... ... ... ... ... ... ... ... ... ... ... ... .... стор 4
Лістинг ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... стор 5
Оригінальний текст програми. ... ... ... ... ... ... ... ... ... .... стор 5
Текст модуля ... ... ... ... ... .... ... ... ... ... ... ... ... ... ... ... .. стор.10
Висновок ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .. стор.18
Список використаної літератури ... ... ... ... ... ... ... ... ... стор.19
Завдання.
Створити програму, що забезпечує:
Створення файлів.
Перейменування файлів.
Видалення файлів.
Копіювання файлу в іншій файл.
Відкриття файлу для перегляду.
Програма повинна бути написана на 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 i
