Написання програми телеграф на Turbo Pascal

Міністерство освіти ПМР
Тираспольський Технікум Інформатики і Права
Кафедра Інформаційних технологій
Курсова робота
По предмету: "Основи алгоритмізації та програмування"
На тему: "Написати програму на Turbo Pascal-телеграф".
Реєстраційний номер:
«____»__________ 2008р.
Допустити до захисту:
«____»__________ 2008р.
Виконала студентка 212 гр.:
Гайдук Оксана
Перевірив викладач:
Гаврилович Є.М.
Тирасполь, 2008 р .

Зміст:

Введення	3
Глава I	6
Теоретичне обгрунтування завдання	6
Глава II	13
Постановка завдання	13
Блок-схема алгоритму розв'язання задачі	14
Обгрунтування вибраної мови програмування	15
Лістинг програми	16
Інструкція програміста	19
Інструкція користувача	23
Лістинг програми на контрольному прикладі	26
Висновок	30
Список використаної літератури	31

Введення
Історія створення азбуки Морзе.
Семюел Фінлі Бриз Морзе народився 27 квітня 1791 р . в родині відомого місцевого проповідника Джедіда Морзе в американському містечку Чарлстаун (шт. Массачусетс). У 1805 р . він вступив до Єльський університет. У 1811 р . Семюел вирушає до Європи для вивчення живопису у Вашингтона Олстона. Юнак подавав великі надії як художник. У 1813 р . він представив в Лондонську королівську академію мистецтв картину "Вмираючий Геркулес", відзначену золотої медалі. У 1815 р . - Повернувся на батьківщину. Через кілька років Семюел був визнаний лідером і кумиром молодих американських художників (його кисті належить знаменитий портрет президента Монро). У 1825 р . він заснував у Нью-Йорку товариство живописців (згодом - Національна академія малюнка) і став його президентом, а в 1829 р . - Знову відправився в Європу для вивчення видатних творів живопису та пристрої малювальних шкіл.
Семюел Морзе
1 жовтня 1832 р . з Гавра в Hью-Йорк вийшов вітрильник "Саллі". Його пасажирам знаменитий лікар тих часів (відкривач наркозу й нових методів знеболювання в медицині) Чарльз Т. Джексон у салоні першого класу демонстрував фокус-дослід: обертання стрілки компаса при піднесенні до нього шматка дроту, приєднаного до гальванічного елемента. Семюел уважно спостерігав за досвідом.
У Європі вже була опублікована книга М. Фарадея і наведені в ній досліди повторювалися в багатьох лабораторіях, а Петербург на початку 1832 р . став свідком перших дослідів Шіллінга. "Витяг іскр з магніту" здавалося непосвяченим дивом.
Побачений досвід наштовхнув Морзе на думку про створення системи передачі сигналів по дротах із використанням поєднання передачі "іскор". Ця ідея захопила його. За час місячного плавання Морзе накидав кілька додому креслень. Наступні три роки, працюючи на горищі в будинку свого брата Річарда, він присвятив будівництву за своїми кресленнями апарату, але всі спроби виявилися безуспішними.
У 1835 р . він був призначений на посаду професора живопису у щойно відкритому Нью-Йоркському університеті. А у вересні 1837 р . Морзе нарешті продемонстрував свій винахід. Сигнал був посланий по дроту завдовжки 1700 футів .
Великий американський промисловець Стів Вейл зацікавився роботою Морзе й погодився пожертвувати 2 000 дол і надати приміщення для подальших дослідів при одній умові - Морзе візьме в помічники його сина Альфреда. Союз молодшого Вейла й Морзе виявився плідним. Перше повідомлення, текст якого свідчив: "Дивовижні справи твої, Господи!", Було послане 27 травня 1844 р . Для передачі посилок використовувався ключ, винайдений російським ученим Б. С. Якобі, а для прийому - електромагніт, якір якого управляв переміщенням по паперу чорнильного пера.
Працюючи над подальшим вдосконаленням свого телеграфного апарата, Семюел Морзе в 1838 р . винайшов і код - телеграфну абетку.
Телеграфний абетка (система кодування символів короткими і довгими посилками для передачі їх по лініях зв'язку, відома як "код Морзе" або "морзянка"), яку застосовують зараз, істотно відрізняється від тієї, що винайшов в 1838 р . С. Морзе (хоча деякі дослідники вважають, що її автором був Альфред Вейл - партнер Семюеля Морзе по бізнесу). Треба зауважити, що вихідна таблиця коду Морзе разюче відрізнялася від тих кодів, що сьогодні звучать на аматорських діапазонах. У ній, по-перше, використовувалися посилки трьох різних тривалостей (крапка, тире й довге тире). По-друге, деякі символи мали паузи усередині своїх кодів. Кодування сучасної й вихідної таблиць збігаються тільки для приблизно половини букв (A, B, D, E, G, H, I, K, M, N, S, T, U, V і W) і не збігаються для жодної цифри. Більше того, для побудови коду ряду символів в оригінальній "морзянці" взагалі використовувалися інші принципи.
Так, на ряду з "точками" і "тире", були сполучення "подвійне тире" (буква L) і навіть "потрійне тире" (цифра 0), а деякі символи містили в собі паузу ... Латинська літера С, наприклад, передовалась тоді як "дві точки - пауза - крапка", тобто, по суті, як букви І і Е, передані один за одним. Це помітно ускладнювало прийом радіограм. Ось чому незабаром з'явилися різні варіанти телеграфної абетки, що не містили кодів з паузами між посилками (Філліпса, Бална, "морський", "континентальний" і. Т. д.).
Сучасний варіант міжнародного коду Морзе (International Morse) з'явився зовсім недавно - у 1939 р ., Коли була проведена остання коригування "континентального" варіанта, яка торкнулася в основному розділових знаків. Звучить ще неймовірніше, але факт - первинний варіант коду Морзе подекуди використовувався на залізницях до середини 60-х років XX століття!
У 1851 р . німецька "Комісія з пристрою телеграфу" оцінила переваги апарату Морзе, і з тих пір він знайшов своє широке застосування.
Останні роки С. Морзе жив у Пончкіфі (поблизу Нью-Йорка) і помер 2 квітня 1872 р . в багатстві і пошані.

Глава I
Теоретичне обгрунтування завдання
Всі мови програмування високого рівня мають засоби роботи з літерними величинами. Паскаль - не виняток. Як нам вже відомо, в стандарті мови описані два типи змінних для літерних величин. Це - String і Char. Тип string і стандартний тип char сумісні. Рядки і символи можуть вживатися в одних і тих же виразах. Змінна типу Char може містити в собі тільки один єдиний символ, тип String призначений для зберігання строкових величин до 255 символів довжиною.
Рядком у Паскалі називається послідовність з певної кількості символів. Кількість символів послідовності називається довжиною рядка. Синтаксис:
Var <ідентифікатор>: string [<максимальна довжина рядка>];
Наприклад: var s: string [n];
var s: string;
n - максимально можлива довжина рядка - ціле число в діапазоні 1 .. 255.
Наприклад: Var Name: string [20].
Якщо цей параметр опущений, то за замовчуванням він приймається рівним 255.
Наприклад: Var slovo: string.
Кількість символів в рядку називається її довжиною. Довжина рядка може перебувати в діапазоні від 0 до 255. Строкові величини можуть бути константами та змінними. Особливістю рядки в Turbo Pascal є те, що з нею можна працювати як з масивом символів, з одного боку, і як з єдиним об'єктом, - з іншого. За рахунок цього обробка рядків досить гнучка й зручна.
Строкова константа-є послідовність символів, укладена в апострофи.
Наприклад: 'це строкова константа', '272 '. Строкова мінлива описується в розділі опису змінних наступним чином:
Строкова мінлива займає в пам'яті на 1 байт більше, ніж вказана в описі довжина. Справа в тому, що один (нульовий) байт містить значення поточної довжини рядка. Якщо строкової змінної не присвоєно ніякого значення, то її поточна довжина дорівнює нулю. У міру заповнення рядка символами її поточна довжина зростає, але вона не повинна перевищувати максимальної за описом величини.
Символи усередині рядка індексуються (нумеруються) від одиниці. Кожен окремий символ ідентифікується іменем рядка з індексом, укладеним у квадратні дужки. Наприклад: N [5], S [i], slovo [k + l]. Індекс може бути позитивною константою, змінною, виразом цілого типу. Значення індексу не повинна виходити за межі опису.
Строкові вираження будуються з рядкових констант, змінних, функцій і знаків операцій. Над рядковими даними припустимі операції зчеплення та операції порівняння.
Операція зчеплення (конкатенації) (+) застосовується для з'єднання декількох рядків в один результуючу рядок. Зчіплювати можна як строкові константи, так і змінні.
Приклад: 'Мама' + 'мила' + 'раму'. У результаті вийде рядок: 'Мама мила раму ".
Для конкатенації результат залежить від порядку операндів (на відміну від операції додавання). Слід пам'ятати про те, який максимальної довжини може бути результуюча мінлива, тому що у випадку перевищення значенням вираження числа, зазначеного після String в описі змінної, "зайві" символи в змінну не потраплять.
Строкові величини можна порівнювати між собою. Це стосується також і строковим змінним. Але як же комп'ютер визначає, який рядок більше: та, яка довше?
та, яка містить більше заголовних букв?
Насправді така перевірка проходить досить складно: комп'ютер порівнює спочатку перші символи рядків. Великим з двох вважається той, код якого більше (згадайте, що таке код символу). Якщо рівні перші символи, то так само аналізується наступна пара до тих пір, поки не буде знайдено відмінність. Якщо початок рядків збігаються, а одна з них закінчується раніше, то друга автоматично називається більшою.
Операції порівняння: =, <,>, <=,> =, <>. Дозволяють зробити порівняння двох рядків, в результаті чого виходить логічне значення (true або false). Операція відносини має пріоритет більш низький, ніж операція зчеплення. Порівняння рядків проводиться зліва направо до першого неспівпадаючого символу, і той рядок вважається більше, в якій перший неспівпадаючий символ має більший номер в таблиці символьної кодування. Якщо рядки мають різну довжину, але в загальній частині символи збігаються, вважається, що більш короткий рядок менше, ніж довша. Рядки рівні, якщо вони повністю збігаються за довжиною і містять одні й ті ж символи. Приклад:
Число, записане в строкову змінну, природно числом не є, але дуже часто потрібно його все ж використовувати як числа. Для цього потрібно зробити перетворення типу. Переклад строкового представлення числа в числове виконує в Паскалі оператор Val.
Його формат: Val (S, X, C);
Тут S - рядок, що містить число, X - числова змінна, в яку буде поміщений результат, С - мінлива цілочисельного типу, в яку поміщається першого зустрінутого в S відмінного від цифри символу. Якщо після виконання оператора Val мінлива С має значення 0, то це означає, що перетворення типу пройшло абсолютно успішно і в рядку нецифрових символів не зустрілося.
Протилежна дія здійснює оператор Str. Формат оператора: Str (X, S);
X - число (або арифметичне вираз), S - строкова змінна.
У змінну S потрапляє строкове подання числа X. Це потрібно, наприклад, при необхідності виводити на екран числа в графічному режимі, тому що стандартні процедури виведення на екран там працюють тільки із строковими величинами.
Для ілюстрації розглянемо задачу: "Знайти суму цифр введеного натурального числа".
Program Str5;
Var
S: String;
I, X, A, C: Integer;
Begin
Writeln ('Введіть натуральне число');
Readln (S); {Число вводиться в строкову змінну}
A: = 0;
For I: = 1 To Length (S) Do
Begin
Val (S [I], X, C); {Цифровий символ перетворюється на число}
A: = A + X {Цифри підсумовуються}
End;
Writeln ('Сума цифр дорівнює', A)
End.
Стандартні процедури та функції.
Розглянемо найбільш важливі процедури і функції, призначені для обробки рядків:
Функція Copy (S, Pozition, N) копіює з рядка S підрядок довжиною N символів, починаючи з позиції Pozition. При цьому вихідна рядок не змінюється. Тут N і Pozition - цілочисельні вирази. Приклад:
Функція Concat (S1, S2, ..., SN) виконує зчеплення (конкатенацію) рядків S1, S2, ..., SN в один рядок. Приклад:
Функція Length (S) - визначає поточну довжину рядка S. Результат - значення цілого типу. Приклад:
Функція Pos (S1, S2) - виявляє перша поява у рядку S2 підрядка S1. Результат - ціле число, рівне номеру позиції, де знаходиться перший символ підрядка S1. Якщо в S2 підрядка S1 не виявлено, то результат дорівнює 0. Приклад:
Процедура Delete (S, Poz, N) - видалення N символів з ​​рядка S, починаючи з позиції Poz. В результаті виконання процедури зменшується поточна довжина рядка в змінній S. Приклад:
Процедура Insert (S1, S2, Poz) - вставка рядка S1 у рядок S2, починаючи з позиції Poz. Приклад:

Початкове значення S	Оператор	Кінцеве значення S
'Abcdefg'	Delete (S, 3, 2)	'Abefg'
'Abcdefg'	Delete (S, 2, 6)	'A'

Для прикладу опису строкового типу даних наведемо кілька прикладів:
1. програма виводить на екран довжину введеної користувачем строковою величини.
Program Str1;
Var
S: String;
Begin
Writeln ('Введіть послідовність символів');
Readln (S);
Writeln ('Ви ввели рядок з', Length (S), 'символів')
End.
2. Введений рядок вивести на екран по одному символу в рядку екрана.
Program Str2;
Var
S: String;
I: Byte;
Begin
Writeln ('Введіть рядок');
Readln (S);
For I: = 1 to Length (S) do {організуємо цикл, починаючи з першого символу}
Writeln (S [I]) {рядка, до останнього (номер останнього}
{Збігається з кількістю символів рядка S)}
End.

Глава II
Постановка завдання
Написати програму - телеграф, який приймає від користувача повідомлення і виводить його на екран у вигляді послідовності точок і тире. Висновок точок і тире можна сортувати звуковим сигналом відповідної тривалості
Азбука Морзе для букв російського алфавіту наведена нижче:

А .-	Б - ...	У .- -	Г - -.
Д - ..	Е	Ж ... -	З - - ..
І ..	Й. - - -	К -. -	Л. - ..
М - -	Н -.	Про - - -	П. - -.
Р. -.	З ...	Т -	У .. -
Ф .. -.	Х ....	Ц -. -.	Ч -. - -.
Ш - - - -	Щ - -. -	'- .. -	И - - -.
Ь - .. -	Е .. -.	Ю .. - -	Я. -. -

Блок-схема алгоритму розв'язання задач.
SHAPE \ * MERGEFORMAT

початок

Введення літер

переклад літер на символи азбуки Морзе

виводить переклад букв у вигляді точок і тире

кінець.

Обгрунтування обраного мови програм.
Мова Паскаль відноситься до процедурно-орієнтованим мовам високого рівня. Розроблено американським вченим Нікласом Віртом в 1971р. в якості мови для навчання програмуванню. Базою при розробці з'явився мову Алгол.
Переваги мови Паскаль:
1) відносна простота (тому що розроблявся з метою навчання програмуванню);
2) ідеологія мови Паскаль близька до сучасних методик і технологій програмування, зокрема, до структурного програмування і низхідному проектування (метод покрокової деталізації) програм. Паскаль може використовуватися для запису програми на різних рівнях її деталізації, не вдаючись до допомоги схем алгоритмів;
3) гнучкі можливості щодо використаних структур даних;
4) висока ефективність програм;
5) наявність засобів підвищення надійності програм, що включають контроль правильності використання даних різних типів і програмних елементів на етапах трансляції, редагування та виконання.
У зв'язку з цим мова Паскаль в даний час знаходить саме широке поширення для вирішення великого кола різноманітних практичних і наукових завдань.
Лістинг програми
{Телеграф-передача повідомлень за допомогою азбуки Морзе}
Program_Oksana;
Uses Crt;
Const
Morse: array [128 .. 159] of [4] = (
'.-', '- ...','.---', '--. ', {А, Б, В, Г}
'-.. ','. ',' ... - ','--..' , {Д, Е, Ж, З}
{І, Й, К, Л,}
{М, Н, О, П}
{Р, С, Т, У}
{Ф, Х, Ц, Ч}
{Ш, Щ, виданню, И}
{Ь, Е, Ю, Я}
); {Параметри передачі}
TONE = 100; {частота сигналу (Гц)}
L1 = 50; {тривалість (мс) «точки»}
L2 = 100; {тривалість (мс) «тире»}
L3 = 50; {пауза (мс) між точками і тире однієї букви}
L4 = 100; {пауза (мс) між літерами}
L5 = 150; {пауза (мс) між словами}
Var
mes: string; {повідомлення}
sim: string [4]; {символ в кодуванні Морзе - послідовність точок і тире}
znak: string [1]; {"передаваний" знак - тире або точка}
I, j: integer; {номер символу і знака}
begin
clrscr;
writeln ('*** телеграф ***');
writeln ('Введіть повідомлення, яке треба передати');
writeln ('(використовуйте тільки великі російські літери)');
write ('->');
readln (mes);
for i = 1 to Length (mes) do
begin
if (mes [i]> = 'A') and (mes [i] <= 'Я') then
begin
{Визначимо код чергової літери (функція ord) повідомлення і отримаємо з таблиці кодування відповідний елемент масиву - послідовність точок і тире}
sim: = morse [ord (mes [i])];
j: = 1;
repeat
if (sim [j] = '-') or (sim [j] = '.') then
begin
write (sim [j]);
sound (1000);
case sim [j] of
'.': Delay (50);
'_': Delay (100);
end;
Nosound;
Delay (50);
end;
j: = j +1;
until ((sim [j] = '') or (j> 4));
Delay (100); {пауза між літерами}
end
else
if mes [i] = '' then {пробіл між символами}
begin
write (''); {пробіл між словами повідомлення}
Delay (150);
end;
end;
writeln
writeln ('Повідомлення передано!');
writeln ('Для завершення роботи з програмою натисніть', '<Enter>');
readln;
end.

Інструкція програміста
У даній програмі були використані різні функції, оператори, процедури. Такі як:
Складовою оператор Begin і End
Складовою оператор представляє собою послідовність деяких операторів, що виконуються в тому порядку, в якому вони представлені в тексті програми.
Program <ім'я програми>;
<Розділ описів>
Begin
<Тіло програми>
End.
Зарезервовані слова Begin і End є так званими операторними дужками, в які укладені оператори, що входять у складений оператор. Коли в залежності від певної умови, потрібно забезпечити послідовне виконання деякого набору операторів, без складеного оператора не обійтися.
Умовний оператор If і Case
Якщо в програмі, в залежності від деякої умови, потрібно вибрати той чи інший варіант дій, можна скористатися одним з умовних операторів. У Turbo Pascal передбачені два умовних оператора-If і Case.
Робота Case така. Спочатку обчислюється значення селектора, наступного за словом Case. Потім виконується оператор з константою вибору, рівною значенню селектора. Якщо жодна з констант не дорівнює поточному значенню селектора, то виконується оператор, що стоїть після слова Е lse. Частина Е lse <оператор> у тексті програми можна опустити. Тоді, якщо серед констант селектора потрібне значення відсутній, виконання оператора Case ні до чого не приведе.
Case <вибір селектора> of
<Мітка 1>: <оператор 1>;
.
.
.
<Мітка n>: <оператор n>;
else <Оператор>;
end;
Якщо необхідно вибрати одне з можливих дій в залежності від деякої умови, застосовують умовний оператор if .. then .. else. У багатьох програмах, в залежності від деякої умови, часто потрібно виконати не одне, а послідовність дій. Однак оператор If в Turbo Pascal забезпечує виконання єдиного оператора, присутнього після зарезервованого слова Then або Else.
If <Умова> then <оператор 1> else <оператор 2>;
Процедури запису Write, Writeln.
Використання процедури Write для типізованих файлів полягають у привласненні значення деякої змінної компоненту файлу. Після запису кожної змінної, покажчик поточної позиції файлу переміщається до наступного запису. Якщо покажчик знаходиться в кінці файлу, то при записі чергового елемента доповнює файл.
Процедура Write відрізняється від Writeln тим, що після виконання дій, властивих процедурі Write, здійснюється запис у файл маркера кінця рядка. При цьому файл, до якого застосовується процедура Writeln, повинен бути відкритий для запису. Якщо процедура Writeln не містить жодних аргументів, то вона здійснює просто переклад рядка.
Процедура читання Read, Readln.
У Паскалі для введення даних передбачена процедура читання Read. Використання даної процедури для текстових файлів полягає в зчитуванні одного або декількох значень файлу і присвоєння зчитаного значення змінної, вказаної при виклику процедури.
Read відрізняється від процедури Readln тільки тим, що після виконання дій, властивих процедурі Read, здійснюється перехід до наступного рядка файлу.
У випадку, коли в програмі є декілька операторів Read, дані для них будуть набиратися в одному рядку. Перехід на наступний рядок відбудеться, коли скінчиться поточний рядок. Однак у Паскалі передбачено зчитування даних з окремого рядка за допомогою процедури Readln. Після зчитування останнього значення зі списку цієї процедури наступні дані зчитуються з початку нового рядка.
Оператор Repeat   until.
Оператор циклу, Repeat, відомий як оператор циклу з постусловіем, має вигляд:
Repeat
<Оператор # 1>;
<Оператор # 2>;
<Оператор # 3>;
. . .
Until <умова>;
Тут не потрібно використання складеного оператора, тому, що самі слова Repeat і Until є операторними дужками.
Цей вид циклу відрізняється від інших в основному тим, що перевірка умови повторення тіла циклу перебуває не перед ним, а після. Тому цикл "До" називають циклом "з постусловіем", а "Поки" - "з передумовою".
Повторне виконання тіла циклу відбувається не тоді, коли умова справедливо, а саме тоді, коли воно помилкове. Тому цикл і отримав свою назву (виконувати тіло циклу до виконання відповідної умови).
Коли умова циклу спочатку істинно, тіло циклу все одно буде виконано хоча б один раз. Саме ця відмінність "до" від "поки" призвело до того, що в програмуванні вони не підмінюють один одного, а використовуються для вирішення завдань, до яких вони більш підходять.
Оператор For to do.
У даному випадку параметром буде цілочисельна змінна, яка буде змінюватися на одиницю при кожній ітерації циклу. Таким чином, задавши початкове і кінцеве значення для такої змінної, можна точно встановити кількість виконань тіла циклу.
Форматів у цього виду циклу передбачено два:
For <І.П.>: = <Н.З.> To <К.З.> Do <оператор>;
For <І.П.>: = <Н.З.> Downto <К.З.> Do <оператор>;
Тут І.П. - Ім'я змінної-параметра, Н.З. - Його початкове значення, К.З. - Відповідно кінцеве значення параметра. В якості початкового і кінцевого значень.
Виконується цей цикл за наступним алгоритмом:
1. змінній-параметру привласнюється початкове значення;
2. виконується тіло циклу;
3. змінна-параметр автоматично збільшується на 1 (у першому випадку формату);
4. якщо параметр перевищує кінцеве значення, то відбувається вихід з циклу, інакше - перехід до пункту 2.
Інструкція користувача
Робота в середовищі програмування Turbo Pascal починається із завантаження її в пам'ять комп'ютера. Система Турбо Паскаль досить значна за обсягом. Вона поставляється на декількох дистрибутивних дискетах і встановлюється на жорсткий диск. При розгортанні системи на жорсткому диску зазвичай створюється окремий каталог з ім'ям ТР (або PAS, TURBOPAS, PASCAL і т.п.), в який містяться всі файли з дистрибутивних дискет. Для виклику Турбо Паскаля необхідно відшукати в деревоподібної структурі каталогів ПК цей каталог і в ньому файл з ім'ям TURBO. EXE. Цей файл містить готову до роботи діалогову систему програмування Турбо Паскаль. У нього входять мінімально необхідні частини Турбо Паскаля (текстовий редактор, компілятор, компонувальник, завантажувач). Для нормальної роботи в діалоговій середовищі знадобляться також основна бібліотека, розташована у файлі TURBO. TPL, і довідкова служба (файл TURBO. HLP). У принципі, цих файлів достатньо для написання, компіляції та виконання більшості прикладів.
Нехай перераховані файли розташовуються в каталозі ТР на диску D. Тоді для виклику Турбо Паскаля слід дати команду
D: \ TP \ TURBO
Для запуску Turbo Pascal необхідно перейти на диск у каталог з системою Turbo Pascal і двічі клацнути по файлу Turbo.exe. Після завантаження на екрані з'явиться вікно редагування Turbo Pascal.

У верхній частині вікна редагування Turbo Pascal розміщується меню, що складається з опцій: File (керування файлами), Edit (редагування тексту програми), Search (пошук і заміна тексту), Run (виконання програми в різних режимах), Compile (компіляція, створення exe -файлу), Debug (налагодження програми), Tools (налагодження команди повідомлення), Options (налагодження середовища програмування), Window (управління вікнами), Help (доступ до вбудованої довідкової системі). Команди меню можна вибирати за допомогою клавіатури (F10 і клавіші управління курсором) або мишею (клацання по потрібній опції меню).
Центральну частину вікна займає робоча область, призначена для роботи з текстом програм. У нижній частині вікна розташований рядок статусу, в яку вводиться інформація про виконувану в даний момент операції. У рядку статусу відображаються також функціональні клавіші і комбінації клавіш, що дозволені в даний момент в активному вікні (F1-Help, F2-Save і т.д.). Над рядком статусу у розриві рамки вікна вказуються координати курсору: номери поточного рядка та позиції в рядку, наприклад, 6:11. Крім цього є ще вертикальні і горизонтальні смуги прокрутки, кнопка закриття вікна і ін
Не рекомендується працювати з системою, призначивши в якості каталогу за замовчуванням (поточного каталогу) той, в якому зберігаються перераховані вище файли (цей каталог будемо називати системним). По-перше, в такому випадку можна помилково стерти будь-якої з файлів системи програмування та тим самим порушити її працездатність, а по-друге, цей каталог дуже скоро заповниться іншими файлами, прямо не відносяться до Турбо Паскалю. Існує і ще одна причина, по якій небажано працювати в системному каталозі. Справа в тому, що Турбо Паскаль має властивість «запам'ятовувати» свою налаштування в двох файлах з іменами TURBO. TP і TURBO. PCK. При виклику система починає пошук цих файлів в поточному каталозі. Якщо цей каталог - індивідуальний, система кожного разу буде налаштовуватися так, як цього хочеш. Якщо ці файли не виявлені в каталозі (а при першому зверненні до Турбо Паскалю так воно і буде), система продовжить пошук в системному каталозі, а не знайшовши їх там, налаштуватися стандартним чином. Згодом можна зберегти конфігураційні файли в своєму каталозі і тим самим позбавити себе від необхідності перенастроювання системи щоразу при зверненні до неї.
. У Турбо Паскалі можна працювати одночасно з декількома програмами (або частинами однієї великої програми), кожна з яких може розташовуватися в окремому вікні редактора. Середовище дозволяє використовувати до дев'яти вікон редактора одночасно.
Крім вікна (вікон) редактора, в Турбо Паскалі використовуються також вікна: отладочного режиму, виведення результатів роботи програми, довідкової служби, стека, регістрів. За бажанням вони можуть викликатися на екран по черзі або бути присутнім на ньому одночасно.
Для виходу з Турбо Паскаля слід натиснути клавішу Alt і, не відпускаючи її, - клавішу з латинською літерою X, після чого можна відпустити обидві клавіші.
Лістинг програми на контрольному прикладі.
Для початку заходимо в програму Turbo Pascal, потім набираємо задану програму.

Рис.1

Рис.2

Рис.3

Рис.4
Після того, як ми набрали програму, ми перевіряємо на наявність помилок, натиснувши при цьому комбінацію клавіш Alt + F9.

Рис.5
Після перевірки на помилки ми переходимо до наступного етапу, натиснувши комбінацію Ctrl + F9, після чого з'являється вікно, яке просить ввести повідомлення.

Рис.6

Рис.7

Рис.8
Для повернення до програми ми натискаємо Enter. Щоб переглянути результат набраного повідомлення використовується комбінація Alt + F5. Для повного виходу з програми натискаємо Alt + X.

Висновок
Програма написана на мові Turbo Pascal. Ця мова представляє потужний інструментальний засіб написання прикладних програм, яке можна використовувати в реальній роботі. Turbo Pascal є середовищем розробки програмного забезпечення фірми Borland. ПЗ в середовищі Turbo Pascal реалізується на процедурно-орієнтованої мови Паскаль. Розширення мови Turbo Pascal надає всі можливості об'єктно-орієнтованого програмування: найбільшу структурність, абстрактність, модульність, вбудовані безпосередньо в мову.
У Delphi упор ставиться на написання ПЗ під Windows, багато можливостей і легко заплутатися. Програми, розроблені на TURBO Pascal, компактні, і займають мало місця на жорсткому диску. Сучасні технології програмування, такі як Delphi, в буквальному сенсі слова "стоять на плечах" TP.
Невідомо що і коли може стати в нагоді в житті. Азбука Морзе широко використовується на міжнародному рівні.
Ознайомившись з програмою, користувач, можливо, зацікавиться даною системою передачі сигналів, і надалі захоче знати і застосовувати код Морзе.


Список літератури:
1. Turbo Pascal для студентів і школярів - СПб.: БЧВ-Петербург, 2004. - 352с.: Іл. (Г. Г. Рапаков, С. Ю. Ржеуцкая)
2. Turbo Pascal для школярів. Версія 7.0. - М.: Фінанси і статистика, 1996. - 446с. (Попов В.Б.)
3. О.А. Меженний: Turbo Pascal. Вчіться програмувати. Санкт-Петербург, 2001 рік.
4. Інформатика, 7 - 11 клас. Київ, 2004. Гаєвський О.Ю.
5. Turbo Pascal: Вчися програмувати. 2002. - 448с.: Іл. (Меженний О.А.)