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