Програма "текстовий редактор"

Пояснювальна записка до курсової роботи з дисципліни "Основи алгоритмізації і програмування"

Виконав: студент гр. 96-ВВ3 Курапов А.В.

Пензенський державний технічний університет, кафедра "Обчислювальна техніка"

Пенза 1997

Вступ

З моменту появи перших зразків персональних комп'ютерів пройшло не так вже й багато часу, але зараз без них вже немислимо величезна кількість областей людської діяльності - економіка, управління, наука, інженерна справа, видавнича справа, освіта, культура і т.д.

Інтерес до персональних комп'ютерів постійно росте, а коло їх користувачів безперервно расшіряется.В число користувачів ПЕОМ залучаються як новачки в комп'ютерному справі, так і фахівці з інших класів ЕОМ.

Мова С + + - універсальна мова загального призначення, область додатків якого - програмування систем в самому широкому сенсі. Крім цього, С + + успішно використовується як у багатьох додатках, так і в потужних операційних системах. Реалізація С + + здійснена для машин в діапазоні від найпростіших персональних комп'ютерів до найпотужніших суперкомп'ютерів і для всіх операційних систем.

1 Постановка завдання

Завдання курсової роботи полягає в розробки на мові програмування С + + програми текстового редактора, яка повинна здійснювати наступні функції:

1) Введення початкового тексту в заданий файл;

2) Висновок вмісту файлу на екран;

3) Обробка файлу: форматування тексту по заданому зразку методом центрування.

Парамерти для форматування:

а) лівий відступ;

b) кількість символів у рядку;

c) новий рядок.

4) Пошук заданої в тексті введеної підрядка, після пошуку видати запит: "продовжити або закінчити".

5) Збереження результатів обробки даних.

Імена фсех файлів задаються користувачем у діалоговому режимі.

2 Метод вирішення завдання

Аналізуючи постановку завдання стає зрозуміло, що для її рішення необхідно застосувати метод багатофункціонального програмування -- цей метод заснований на розбивання програми на окремі функціональні модулі, які викликаються з основної програми в процесі її роботи.

В основі розробки такої програми лежить нізходящее програмування - тобто спочатку розробляється основна програма - в даному випадку програма введення тексту на екран, обробки функціональних клавіш і меню , За допомогою вибору пунктів якого буде надалі організовуватися її робота. При виборі того чи іншого пункту меню або натискання функціональної клавіші буде викликатися один або кілька підпрограм, але на початковому етапі розробки програми методом спадного програмування замість цих підпрограм ставить "заглушки" - порожні підпрограми, які в процесі розробки будуть замінюватися програмами, які виконують певну функцію.

3 Опис логічного подання даних

Вхідними даними в програмі є:

Вже існуючий текстовий файл - зберігається на диску, може бути під будь-яким ім'ям, під час запуску назва файлу запитується програмою в діалоговому режимі, при завантаженні назва файлу записується в локальну змінну типу char - fname (25 символів), уаказатель на початок тексту записується в змінну * text, а довжина тексту в змінну len типу int;

Параметри тексту (відступ зліва, кількість символів в рядку) - можна змінити в процесі роботи програми, початкові значення при завантаження: відступ зліва = 0, кількість символів = 60; Дані зберігаються в змінних основної програми - left, right (int).

Текст, що вводиться з клавіатури зберігається у змінній text типу char, яка наприкінці роботи може бути збережена у файлі, ім'я якого задається користувачем у діалоговому режимі, назва файлу записується в локальну змінну типу char - fname (25 символів).

Шаблон для пошуку, який вводиться користувачем з клавіатури зберігається в меременной типу char - mascs довжиною в 40 символів

Вихідними даними в програмі є:

Текст, що вводиться з клавіатури зберігається у змінній text типу char, яка зберігається у файлі, ім'я якого задається користувачем з клавіатури в діалоговому режимі, назва файлу записується в локальну змінну типу char - fname (25 символів).

Результат пошуку за шаблоном - координати курсору x, y (int) записуються як координати першого символу знайденого за шаблоном слова, якщо слово не знайдено, то x = 0, y = 0.

6 Специфікація на функціональні модулі

6.1 Функція output        

Рядок виклику:         

output (scrs, x, y);             

Призначення:         

Здійснює виведення на екран   тексту і рядки підказки й курсору             

Функції:         

Виведення тексту, покажчик на   якого передається в рядку параметрів, виведення нижнього рядка підказки,   обчислення координат курсору на екрані і висновок курсору на екран.             

Логіка   

змінні:         

* a (char) - покажчик на   початок верхнього рядка   

x, ky (int) - позиція   курсора в тексті             

Внутрішні   

змінні:         

np (int) - Кількість   недрукованих символів   

rx (int) - Реальна   координата курсору на екрані   

y (int) - Координата Y   виводу   

* ot (char) - Тимчасовий   покажчик   

n (int) - Тимчасова   змінна, необхідна для виведення рядка             

Викликає функції:         

немає             

Викликається з:         

основної програми.     

6.2 Функція sinput        

Рядок виклику:         

SInput (fname, 20,21,25); --   Викликається з load   

SInput (fname, 20,21,25); --   Викликається з save   

SInput (masks, 40,30,25); --   Викликається з основної програми             

Призначення:         

Здійснює введення рядка.             

Функції:         

Висновок порожнього рядка,   установка координат, висновок рядка запиту, зчитування рядка посимвольний з   клавіатури, вихід, якщо натиснута клавіша Enter або Esc, якщо натиснута Esc то   рядок не записується.             

Логіка   

змінні:         

* s (char) - покажчик на   рядок   

lng (int) - максимальна   довжина   

x, y - координати введення             

Внутрішні   

змінні:         

rs [100] (char) - Тимчасова   рядок   

n (int) - Лічильник   

c (char) - Введений з   клавіатури символ             

Викликає функції:         

немає             

Викликається з:         

load, save, основною   програми.     

6.3 Функція load        

Рядок виклику:         

load (text); - Викликається з   основної програми             

Призначення:         

Здійснює завантаження   тексту з файлу.             

Функції:         

Запит імені файлу,   відкриття файлу з даними ім'ям, читання в змінну, покажчик якої   передається в рядку параметрів, закриття файлу.             

Логіка   

змінні:         

* p (char) - покажчик на   текст             

Внутрішні   

змінні:         

fname [25] (char) - Ім'я   файлу   

* f (file) - покажчик на   файл             

Викликає функції:         

sinput             

Викликається з:         

основної програми.     

6.4 Функція save        

Рядок виклику:         

save (text); - Викликається з   основної програми             

Призначення:         

Здійснює запис тексту   у файл.             

Функції:         

Запит імені файла,   відкриття файлу з даними ім'ям, запис тексту, покажчик которго передається   в рядку параметрів, у файл, закриття файлу.             

Логіка   

змінні:         

* p (char) - покажчик на   текст             

Внутрішні   

змінні:         

fname [25] (char) - Ім'я   файлу   

* f (file) - покажчик на   файл   

* pr (char) - тимчасовий   покажчик             

Викликає функції:         

sinput             

Викликається з:         

основної програми.     

6.5 Функція reset        

Рядок виклику:         

reset (text, 32767); --   Викликається з основної програми             

Призначення:         

Здійснює знищення   інформації.             

Функції:         

Заповнення кодом переклад   рядки змінної, вказаної в Сторк параметрів, на довжину, зазначену в   рядку параметрів.             

Логіка   

змінні:         

* a (char) - покажчик на   текст   

n (int) - кількість   символів у тексті             

Внутрішні   

змінні:         

m (int) - лічильник             

Викликає функції:         

немає             

Викликається з:         

основної програми.     

6.6 Функція up        

Рядок виклику:         

else scrs = up (text, scrs); --   Викликається з основної програми             

Призначення:         

Здійснює пересування   вказівника на один рядок вгору.             

Функції:         

Повертає вказівник на   рядок, що вище на одну позицію, ніж початкова.             

Логіка   

змінні:         

* a (char) - покажчик на   текст   

* b (char) - покажчик на   поточний рядок             

Внутрішні   

змінні:         

немає             

Викликає функції:         

немає             

Викликається з:         

основної програми.     

6.7 Функція down        

Рядок виклику:         

else scrs = down (text, scrs);   - Викликається з основної програми             

Призначення:         

Здійснює пересування   вказівника на один рядок вниз.             

Функції:         

Повертає вказівник на   рядок, що нижче на одну позицію, ніж початкова.             

Логіка   

змінні:         

* a (char) - покажчик на   текст   

* b (char) - покажчик на   поточний рядок             

Внутрішні   

змінні:         

немає             

Викликає функції:         

немає             

Викликається з:         

основної програми.     

6.8 Функція menu        

Рядок виклику:         

switch (menu (30,5, "   Зберегти файл "   

"Вважати   файл "   

"Введення   шаблону "   

"   Параметри "   

"Вихід з   програми "   

"x0"))   

Викликається з основної   програми             

Призначення:         

Здійснює висновок і   обробку меню.             

Функції:         

Висновок меню на екран, опитування   клавіатури, при натисканні клавіш іправленія курсором (вгору, вниз)   переміщення колірного курсору по пунктам меню, вибір певного пункту   меню при натисненні клавіші з номером пункту меню, при натисканні клавіші Enter   повертається номер обраного пункту меню, при натисканні клавіші Esc   повертається -1.             

Логіка   

змінні:         

x, y (int) - координати   виведення меню на екран.   

* сapt (char) - покажчик на   текст меню             

Внутрішні   

змінні:         

n, m (int) - Лічильники   

num (int) - Кількість   пунктів   

k (int) - Обраний пункт   

pt (char) - Тимчасовий   покажчик на символ   

c (char) - рахуватися з   клавіатури символ             

Викликає функції:         

немає             

Викликається з:         

основної програми.     

6.8 Функція add        

Рядок виклику:         

add (st, a, 0,0, ''); --   Викликається з centr   

add (text, scrs, x, y, 10);   

add (text, scrs, x, y, 13); Викликається з основної програми   

add (text, scrs, x, y, '');   

add (text, scrs, x, y, c);             

Призначення:         

Здійснює додавання   символу в текст.             

Функції:         

Приміщення покажчика на   початок рядка, підрахунок символів у рядку, вставка символу в рядок.             

Логіка   

змінні:         

* st (char) - покажчик на   текст   

* a (char) - покажчик на   поточний рядок   

x, y (int) - координати   

c (char) - добавляемай   символ             

Внутрішні   

змінні:         

n (int) - число символів у   рядку   

d (int) - лічильник   

* p (char) - тимчасовий   покажчик             

Викликає функції:         

немає             

Викликається з:         

centr, основної програми.     

6.9 Функція end        

Рядок виклику:         

x = end (text, scrs, x, y); --   Викликається з основної програми.             

Призначення:         

Здійснює пошук кінця   сирок.             

Функції:         

Повертає довжину рядка.             

Логіка   

змінні:         

* st (char) - покажчик на   текст   

* a (char) - покажчик на   поточний рядок   

x, y (int) - координати             

Внутрішні   

змінні:         

n (int) - число символів у   рядку   

* p (char) - тимчасовий   покажчик             

Викликає функції:         

немає             

Викликається з:         

основної програми.     

6.10 Функція del        

Рядок виклику:         

del (st, a, 0,0); - Викликається   з centr.   

del (text, scrs, x, y); --   Викликається з основної програми.   

del (text, scrs, x-1, y); --   Викликається з основної програми.             

Призначення:         

Здійснює видалення   символу з тексту.             

Функції:         

Пошук необхідного місця в   тексті, видалення символу, якщо був видалений "переклад рядка" і   залишився "повернення кореткі" або наоюорот, то віддаляється ще один   символ.             

Логіка   

змінні:         

* st (char) - покажчик на   текст   

* a (char) - покажчик на   поточний рядок   

x, y (int) - координати             

Внутрішні   

змінні:         

n (int) - число символів у   рядку   

d (int) - лічильник   

* p (char) - тимчасовий   покажчик             

Викликає функції:         

немає             

Викликається з:         

centr, основної програми.     

6.11 Функція find        

Рядок виклику:         

find (text, & scrs, & x, & y, masks);   - Викликається з основної програми.             

Призначення:         

Здійснює пошук   фрагмента в тексті, починаючи з поточного положення курсора.             

Функції:         

Пошук поточного місця в   тексті, пошук фрагмента, якщо фрагмент знайдено - переміщення курсору.             

Логіка   

змінні:         

* st (char) - покажчик на   текст   

* scrs (char) - покажчик на   поточний рядок   

* x, * y (int) - покажчик   на координати             

Внутрішні   

змінні:         

n (int) - число символів у   рядку   

d (int) - лічильник   

k (int) - лічильник   

* p (char) - тимчасовий   покажчик             

Викликає функції:         

немає             

Викликається з:         

основної програми.     

6.12 Функція dinput        

Рядок виклику:         

left = DInput (30,25); --   Викликається з основної програми.   

right = DInput (30,25); --   Викликається з основної програми.             

Призначення:         

Здійснює введення числа.             

Функції:         

Виведення рядка запиту,   зчитування цифр з клавіатури, вихід, якщо натиснута клавіша Enter або Esc,   якщо натиснута Esc то число не записується не записується. Повертає   зовсiм небагато у форматі long.             

Логіка   

змінні:         

x, y (int) - координати   введення             

Внутрішні   

змінні:         

s [100] (char) - тимчасова   рядок   

rz (long) - вважає число   

n (int) - лічильник   

c (char) - символ             

Викликає функції:         

немає             

Викликається з:         

основної програми.     

6.13 Функція centr        

Рядок виклику:         

centr (text, scrs, y, left, right);   - Викликається з основної програми.             

Призначення:         

Здійснює центровку   поточного рядка.             

Функції:         

Пошук поточного   місця розташування, видалення пробілів на початку рядка, підрахунок довжини рядка,   визначення колічесва додаються прогалин, додавання пробілів.             

Логіка   

змінні:         

* st (char) - покажчик на   текст   

* scrs (char) - покажчик на   поточний рядок   

x, y (int) - координати   

left (int) - лівий відступ   

right (int) - число   символів в рядку             

Внутрішні   

змінні:         

n (int) - число символів у   рядку   

d (int) - лічильник             

Викликає функції:         

add, del             

Викликається з:         

основної програми.     

6.14 Основна програма        

Призначення:         

Здійснює опитування   клавіатури, редагування тексту, виведення меню на екран, обробку пунктів   меню, і функціональних клавіш, виклик функцій відповідно до вибраного   дією.             

Функції:         

Виділення пам'яті під текст   , Вивід тексту на екран, зчитування коду натиснутою клавіші, аналіз   отриманого коду і виклик відповідної функції або виконання дії.             

Внутрішні   

змінні:         

left (int) - лівий відступ   

right (int) - число   символів в рядку

masks (char) - маска для   пошуку   

* scrs (char) - покажчик на   поточний рядок   

x, y (int) - координати   курсору   

c (char) - введений з   клавіатури символ   

n (int) - лічильник             

Викликає функції:         

output, sinput, load, save, reset, up, down, menu, add, end,   del, find, dinput, centr.     

7 Технічні вимоги для використання

Для запуску даної програми необхідна наявність персонального комп'ютера IBM PC/XT c операційною системою MS-DOS.

Необхідний обсяг оперативної пам'яті - 400 Кбайт.

Дла запуску програми необхідно зробити поточному каталог з програмою tr.exe і викликати її на виконання.

Програма працює в текстовому режимі 80х25 символів.

Файли програми, якщо не вказувати додатковий шлях, будуть записуватися і зчитуються з поточного каталогу поточного диска.

Керування програмою усуществляется з клавіатури.

8 Опис роботи програми

Після своєї завантаження програма здійснює оформлення екрана, висновок в нижню частину екрану рядки підказки, в якій содержется інформація про функціональні клавіші. Користувач може вводити та редагувати текст, задавати формат тексту (відступ зліва, кількість символів в рядку), сцентрованим потрібний рядок, здійснювати пошук потрібної фрази по шаблону, вважати необхідний файл з диска, записати текст у файл на диску, вийти з прграмми.

9 Тестування програми

Для повної перевірки працездатності програми необхідно її протестувати.

План тестування програми "Текстовий редактор "полягає в наступному:

1) Створення окремо від програми файлу з вихідним текстом.

2) Завантаження програми tr.exe.

3) Завантажити файлу test.in.

4) Редагування тексту.

5) Зміна параметрів рядка і центрування окремих рядків тексту.

6) Створення шаблону для пошуку і пошук фрази в тексті з цього шаблону.

7) Запис відредагованого тексту в файл test.out.

8) Вихід з програми.

Оригінальний тестовий файл test.in містить в собі наступний текст:

Файл для тестування програми tr.exe

ця програма призначена для введення і редагування тексту

Тестування програми

Далі в пункті "Результати роботи програми" наводиться роздруківка тестування програми по пунктах плану тестування і результатів тестування.

10 Результати роботи програми

1) Створення окремо від програми файлу з початковим текстом:

Файл test.in містить в собі наступний текст:

Файл для тестування програми tr.exe

ця програма призначена для введення і редагування тексту

ТЕСТУВАННЯ ПРОГРАМИ

2) Завантаження програми tr.exe:

ESC - Меню, F4 - Пошук, Alt-C - центровка 0 0

3) Завантаження файлу test.in:

1) Зберегти файл

2) Вважати файл

3) Введення шаблону

4) Параметри

5) Вихід з програми

Введіть ім'я файлу: test.in а 0 0

4) Редагування тексту:

Файл для тестування програми tr.exe

Ця програма призначена для введення і редагування тексту

ТЕСТУВАННЯ ПРОГРАМИ

ESC - Меню, F4 - Пошук, Alt-C - центровка 0 0

5) Зміна параметрів рядка і центрування окремих рядків тексту:

Файл для тестування програми tr.exe

ця програма призначена для введення і редагування тексту

ТЕСТУВАННЯ ПРОГРАМИ

1) Зберегти файл

2) Вважати файл

3) Введення шаблону

4) Параметри

5) Вихід з програми

Введіть лівий відступ: позов, A5 а 0 0

Файл для тестування програми tr.exe

ця програма призначена для введення і редагування тексту

ТЕСТУВАННЯ ПРОГРАМИ

1) Зберегти файл

2) Вважати файл

3) Введення шаблону

4) Параметри

5) Вихід з програми

Введіть кількість символів 40 а 0 0

Центрування 3 рядки:

Файл для тестування програми tr.exe

ця програма призначена для введення і редагування тексту

ТЕСТУВАННЯ ПРОГРАМИ

ESC - Меню, F4 - Пошук, Alt-C - центровка 0 3

6) Створення шаблону для пошуку і пошук фрази в тексті з цього шаблону:

Файл для тестування програми tr.exe

ця програма призначена для введення і редагування тексту

ТЕСТУВАННЯ ПРОГРАМИ

1) Зберегти файл

2) Вважати файл

3) Введення шаблону

4) Параметри

5) Вихід з програми

Введіть шаблон для пошуку: текст

ця програма призначена для введення і редагування тексту

ТЕСТУВАННЯ ПРОГРАМИ

ESC - Меню, F4 - Пошук, Alt-C - центровка 56 0

7) Запис відредагованого тексту в файл test.out:

Файл для тестування програми tr.exe

ця програма призначена для введення і редагування тексту

ТЕСТУВАННЯ ПРОГРАМИ

1) Зберегти файл

2) Вважати файл

3) Введення шаблону

4) Параметри

5) Вихід з програми

Введіть ім'я файлу: test.out а 0 0

8) Вихід з програми:

Файл для тестування програми tr.exe

ця програма призначена для введення і редагування тексту

ТЕСТУВАННЯ ПРОГРАМИ

1) Зберегти файл

2) Вважати файл

3) Введення шаблону

4) Параметри

5) Вихід з програми

ESC - Меню, F4 - Пошук, Alt-C - центровка 0 0

Список літератури

1.Бьярн Страуструп. Мова програмування С + +. У двох частинах. Пер. з англ. Київ: "ДіаСофт", 1993.-296 с., Іл.

2.Корріган Джон Комп'ютерна графіка: Секрети і рішення: Пер з англ. -М.: Ентропія, 1995. - 352 с., Іл.

ДОДАТОК 1

Роздруківка програми

# include

# include

# include

# include

# include

// Покажчик на початок тексту

char * text;

// Довжина тексту

long len;

// Вивід на екран

// Вхідні дані:

// Адреса початку верхнього рядка

// Позиція курсору на нескінченному ~ ~ по ширині екрані (x, y)

void output (char * a, int x, int ky) (

// Кількість недрукованих символів

int np = (x/80) * 80;

// Реальна координата курсору на екрані

int rx = x-np;

// Координата Y виводу

int y;

char * ot = a;

clrscr ();

int n;

y = 0;

do (

// Пропуск недрукованих символів

n = np;

while ((n> 0 )&&(* ot! = 13)) (

ot ++;

n -;

)

// Якщо є, що друкувати на цьому рядку - друк

if (* ot! = 13) (

// Друк рядка

n = 80;

while ((n> 0 )&&(* ot! = 13)) (

cout <<* ot;

ot ++;

n -;

)

// Якщо рядок окнчілась раніше краю екрану - перевести рядок

if (* ot == 13) (

cout <<(char) 13 <<(char) 10;

ot ++;

if (* ot == 10) ot ++;

) else (

while (* ot! = 13) ot ++;

if (* ot == 13) ot ++;

if (* ot == 10) ot ++;

)

y ++;

) else (

// Якщо друкувати нічого - переклад рядка

cout <<(char) 13 <<(char) 10;

ot ++;

y ++;

if (* ot == 10) ot ++;

)

// Ще не роздруковані всі рядки

) while (y <23);

// Висновок підказки й курсору

gotoxy (5,25);

textcolor (14);

cprintf (

"ESC -- Меню, F4 - Пошук, Alt-C - центровка % 4d% 4d ", x, ky);

textcolor (15);

gotoxy (rx 1, ky +1);

)

// Введення рядка

// s - покажчик на рядок

// lng - Максимальна довжина

// x, y - координати

void SInput (char * s, int lng, int x, int y) (

lng -;

char rs [100];// Тимчасова рядок

strcpy (rs, s);// Копіювання резерву рядка

int n;// Лічильник

char c;// Символ

// Висновок порожнього рядка

textbackground (2);

textcolor (15);

gotoxy (x, y);

for (n = 0; n

n = strlen (s);// Положення курсора

do (

// Висновок рядка

gotoxy (x, y);

cprintf ( "% s", s);

gotoxy (x + n, y);

c = getch ();// Зчитування символу з клавіатури

if ((c! = 13) & & (c! = 27) & & (c! = 8)) (

// Натиснуто символьна клавіша

if (n <(lng-1)) (

// Додавання символу

s [n +1] = 0;

s [n] = c;

n ++;

)

) else (

if (c == 8) (

// Натиснуто клавіша BackSpace

if (n> 0) (

n -;

s [n] = 0;

)

)

)

// вихід, якщо ESC або ENTER

) while ((c! = 27) & & (c! = 13 ));

if (c == 27) strcpy (s, rs);// Відновлення рядка

// Стерти рядки

textbackground (0);

textcolor (7);

gotoxy (x, y);

for (n = 0; n

)

// Читання файлу

void load (char * p) (

char fname [25];

fname [0] = 0;

FILE * f;

gotoxy (1,25);

printf ( "Введіть ім'я файлу: ");

SInput (fname, 20,21,25);

f = fopen (fname, "rb ");

len = fread (p, 32767,1, f);

fclose (f);

)

// Запис у файл

void save (char * p) (

char fname [25];

fname [0] = 0;

char * pr;

pr = p;

len = 0;

while ((len <32767 )&&((* pr! = 13 )||(*( pr 1)! = 13))) (

len ++;

pr ++;

)

FILE * f;

gotoxy (1,25);

printf ( "Введіть ім'я файлу: ");

SInput (fname, 20,21,25);

f = fopen (fname, "wb ");

fwrite (p, len, 1, f);

fclose (f);

)

// Знищення інформації - заповнення кодом "Переклад рядка"

void reset (char * a, int n) (

for (int m = 0; m

)

// Вверх на рядок

char * up (char * a, char * b) (

if (a == b) return b;

b -;

while ((a! = b )&&(* b! = 13)) b -;

if (a == b) return b;

if (* b == 13) b -;

if (a == b) return b;

while ((a! = b )&&(* b! = 13)) b -;

if (* b == 13) b ++;

if (* b == 10) b ++;

return b;

)

// Вниз на рядок

char * down (char * a, char * b) (

while (((a +32767)> = b )&&(* b! = 13)) b ++;

if (* b == 13) b ++;

if (* b == 10) b ++;

return b;

)

// Обробка меню

int menu (int x, int y, char * capt) (

int n, m; //Лічильники

int num;// Кількість пунктів

int k;// Вибраний пункт

char * pt;// Тимчасовий покажчик на символ

char c;// Лічені з клавіатури символ

// Обчислюємо кількість пунктів

num = strlen (capt)/20;

// Курсор на нульовий елемент

k = 0;

// Нескінченний цикл обробки

for (;;) (

// Вивід меню

pt = capt;

for (n = 0; n

gotoxy (x, y + n);

// зафарбовування пункту, на який вказує курсор

if (n == k) (

// зафарбовування

textbackground (12);

textcolor (14);

) else (

// Нормальний

textbackground (3);

textcolor (1);

)

cprintf ( "% d)", n +1);

for (m = 0; m <20; m + +) cprintf ( "% c", * (pt ++));

)

textbackground (3);

textcolor (1);

// Опитування клавіатури

c = getch ();

if (! c) c = getch ();

// Перевірка, не натиснута Чи клавіша з цифрою

if (((c-'1 ')> = 0 )&&(( c-'1')

// Установка покажчика в залежності від натиснутою цифри

k = c-'1 ';

// Запис у буфер клавіатури символу ENTER

ungetch (13);

) else (

// Аналіз

switch (c) (

// На початок

case (72):

if (k> 0) k -; else k = num-1;

break;

// Вниз

case (80):

if (k <(num-1)) k + +; else k = 0;

break;

// Вихід по ESC - повертається -1

case (27):

return -1;

// Вихід по ENTER - повертається номер пункту

case (13): return k;

)

)

)

)

// Додавання символу в текст

void add (char * st, char * a, int x, int y, char c) (

int n;

int d;

n = y;

char * p;

// Переміщення вказівника до початку рядка

while (n> 0) (

while ((a <(st 32767 ))&&(* a! = 13)) a ++;

if (* a == 13) a ++;

if (* a == 10) a ++;

n -;

)

// Підрахунок символів в рядку

n = 0;

while ((* (a + n)! = 13 )&&(( a + n) <(st +32767))) n ++;

if (n

// Якщо робиться вставка в рядок

a = a + n;

d = x-n;

p = st 32767;

while ((p-d)! = a) (

* p =* (p-d-1);

p -;

)

p = a;

while (d! = 0) (

* p = '';

d -;

p ++;

)

* p = c;

) else (

// Якщо проводиться додавання до рядку не тільки символу,

// а й пробілів до нього

a = a + x;

p = st 32767;

while (p! = a) (

* p =* (p-1);

p -;

)

* a = c;

)

)

// Пошук кінця рядки - фактично повертає довжину рядка

int end (char * st, char * a, int, int y) (

int n;

n = y;

char * p;

while (n> 0) (

while ((a <(st 32767 ))&&(* a! = 13)) a ++;

if (* a == 13) a ++;

if (* a == 10) a ++;

n -;

)

n = 0;

while ((* (a + n)! = 13 )&&(( a + n) <(st +32767))) n ++;

return n;

)

// Видалення символу

void del (char * st, char * a, int x, int y) (

int n;

int d;

n = y;

char * p;

// Пошук необхідного місця в тексті

while (n> 0) (

while ((a <(st 32767 ))&&(* a! = 13)) a ++;

if (* a == 13) a ++;

if (* a == 10) a ++;

n -;

)

n = 0;

while ((* (a + n)! = 13 )&&(( a + n) <(st +32767))) n ++;

if (n

a + = x;

p = a;

n =* p;

// Видалення символу

while (a! = (st +32767)) (

* a =* (a +1);

a ++;

)

// Якщо був видалений "Переклад рядка" і залишився

// "Повернення каретки" або навпаки, то видаляється ще один символ

if ((* p == 13) & & (n == 10 )||(* p == 10) & & (n == 13)) (

while (p! = (st +32767)) (

* p =* (p +1);

p ++;

)

)

)

// Пошук фрагмента в тексті, починаючи з поточного положення курсору

void find (char * st, char * * scrs, int * x, int * y, char * b) (

char * a =* scrs;

int n;

int k;

int d;

n =* y;

char * p;

// Пошук поточного місця

while (n> 0) (

while ((a <(st 32767 ))&&(* a! = 13)) a ++;

if (* a == 13) a ++;

if (* a == 10) a ++;

n -;

)

n = 0;

while ((* (a + n)! = 13 )&&(( a + n) <(st +32767))) n ++;

if (n <* x) * x = n;

a + =* x;

// Пошук фрагмента

do (

a ++;

k = 1;

for (n = 0; n

if (a [n]! = b [n]) k = 0;

) while ((k! = 1) & & (a <(st 32767 )));

if (k == 1) (

// Якщо фрагмент знайдено - переміщення курсору

* x = 0;

* y = 0;

while ((* a! = 13) & & (a! = st)) (

a -;

(* x )++;

)

if (* a == 13) (

a ++;

(* x )--;

)

if (* a == 10) (

a ++;

(* x )--;

)

* scrs = a;

)

)

// Введення числа

// x, y - координати

long DInput (int x, int y) (

char s [100];// Тимчасова рядок

char * stpe;

long rz;

s [0] = 0;

int n;// Лічильник

char c;// Символ

// Висновок порожнього рядка

textbackground (2);

textcolor (15);

gotoxy (x, y);

for (n = 0; n <15; n + +) cprintf ( "");

n = strlen (s);// Положення курсора

do (

// Висновок рядка

gotoxy (x, y);

cprintf ( "% s", s);

gotoxy (x + n, y);

c = getch ();// Зчитування символу з клавіатури

if ((c! = 13) & & (c! = 27) & & (c! = 8)) (

// Натиснуто символьна клавіша

if (n <14) (

// Додавання цифри

if ((c> = '0')&&( c <= '9 ')) (

s [n +1] = 0;

s [n] = c;

n ++;

)

)

) else (

if (c == 8) (

// Натиснуто клавіша BackSpace

if (n> 0) (

n -;

s [n] = 0;

)

)

)

// вихід, якщо ESC або ENTER

) while ((c! = 27) & & (c! = 13 ));

if (c == 27) return 0;

// Стерти рядки

textbackground (0);

textcolor (7);

gotoxy (x, y);

for (n = 0; n <15; n + +) cprintf ( "");

sscanf (s, "% ld", & rz);

return rz;

)

// Центрування поточного рядка

void centr (char * st, char * a, int y, int left, int right) (

int n;

int d;

n = y;

// Пошук, де ви знаходитесь

while (n> 0) (

while ((a <(st 32767 ))&&(* a! = 13)) a ++;

if (* a == 13) a ++;

if (* a == 10) a ++;

n -;

)

// Видалення пробілів на початку рядка

while ((* a == 32 )&&(!((* a == 13) | | (a == (st +32767 ))))) del (st, a, 0,0);

// Підрахунок довжини рядка

n = 0;

while ((* (a + n)! = 13 )&&(( a + n) <(st +32767))) n ++;

// Визначення кількості додаються прогалин

if ((n> (right-left ))||( n == 0)) return;

d = left + ((right-left)-n)/2;

// Додавання прогалин

for (n = 0; n

)

// Основна програма

void main () (

// Межі тексту

int left = 0;

int right = 60;

// Маска для пошуку

char masks [40];

masks [0] = 0;

// Положення курсора

char * scrs;

int x, y;

char c;

int n;

// Виділення пам'яті під текст

text = new char [32767];

len = 0;

reset (text, 32767);

scrs = text;

x = 0; y = 0;

// Цикл обробки даних

for (;;) (

textbackground (1);

textcolor (15);

// Вивід даних на екран

output (scrs, x, y);

// Зчитування символу

c = getch ();

// Обробка

switch (c) (

case (27):

// Вивід меню

switch (menu (30,5, "Зберегти файл "

"Вважати файл"

"Введення шаблону "

"Параметри"

"Вихід з програми "

"x0")) (

case (0):

save (text);

break;

case (1):

reset (text, 32767);

load (text);

break;

case (2):

gotoxy (1,25);

printf ( " Введіть шаблон для пошуку: ");

SInput (masks, 40,30,25);

break;

case (3):

gotoxy (1,25);

printf ( " Введіть лівий відступ: ");

left = DInput (30,25);

gotoxy (1,25);

printf ( "Введіть кількість символів у рядку: ");

right = DInput (30,25);

break;

case (4):

textbackground (0);

textcolor (7);

clrscr ();

return;

)

break;

case (0):

// Розширений код - читання значущої частини

c = getch ();

// обробка

switch (c) (

// Alt-C

case (46):

centr (text, scrs, y, left, right);

break;

// F4

case (62):

find (text, & scrs, & x, & y, masks);

break;

// Home

case (71):

x = 0;

break;

// End

case (79):

x = end (text, scrs, x, y);

break;

// Delete

case (83):

del (text, scrs, x, y);

break;

// Стрілки переміщення курсору

case (72):

if (y> 0) y -;

else scrs = up (text, scrs);

break;

case (80):

if (y <22) y ++;

else scrs = down (text, scrs);

break;

case (77):

if (x <32767) x ++;

break;

case (75):

if (x> 0) x -;

break;

)

break;

// Enter

case (13):

add (text, scrs, x, y, 10);

add (text, scrs, x, y, 13);

if (y <22) y + +; else down (text, scrs);

x = 0;

break;

// BackSpace

case (8):

if (x> 0) (

del (text, scrs, x-1, y);

x -;

)

break;

// Tab

case (9):

for (n = 0; n <(5 - (x-x/5)); n + +) add (text, scrs, x, y, '');

x = x + (5 - (x-x/5 ));

break;

// Решта символів

default:

add (text, scrs, x, y, c);

x ++;

)

)

)

ДОДАТОК 2

Алгоритм роботи програми

Для підготовки даної роботи були використані матеріали з сайту http://kurslab.chat.ru/