...
Ц -. -. /Td>
Ч -. -. /Td>
Ш ----
Щ -. - /Td>
Комерсант - .. - /Td>
И ---.
Ь - .. - /Td>
Е .. -. /Td>
Ю .. - /Td>
Я. -. - /Td> В В
Блок- схема алгоритму розв'язання завдань.
В В
Обгрунтування вибраної мови програм.
Мова Паскаль відноситься до процедурно-орієнтованим мовам високого рівня. Розроблено американським вченим Никласом Віртом в 1971р. в якості мови для навчання програмуванню. Базою при розробці з'явився мову Алгол. p> Переваги мови Паскаль:
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 ('Для завершення роботи з програмою натисніть ',' ');
readln;
end.
Інструкція програміста
У даній програмі були використані різні функції, оператори, процедури. Такі як:
Складовою оператор Begin і End
Складовою оператор являє собою послідовність деяких операторів, виконуються в тому порядку, в якому вони представлені в тексті програми.
Program <Ім'я програми>;
<Розділ описів>
Begin
<Тіло програми>
End.
Зарезервовані слова Begin і End є так званими операторними дужками, в які укладені оператори, що входять в складений оператор. Коли в залежності від певної умови, потрібно забезпечити пос...
