|
дима вот то что ты просил
тепреь в исправленном варианте....
Program telegraf;
Uses Crt;
Const p = 10000; l = 60000;
Var
arr : array['а'..'я'] of string;
i : integer;
s : string;
Procedure Play(s : string);
Var
i : integer;
Begin
for i:=1 to Length(s) do
begin
if s[i] = '.' then
begin
Sound(2000);
Delay(p);
end;
if s[i] = '-' then
begin
Sound(2000);
Delay(l);
end;
NoSound;
Delay(20000);
end;
end;
begin
arr['а']:='.-';
arr['б']:='-...';
arr['в']:='.---';
arr['г']:='--.';
arr['д']:='-..';
arr['е']:='.';
arr['ж']:='...-';
arr['з']:='--..';
arr['и']:='..';
arr['й']:='.---';
arr['к']:='-.-';
arr['л']:='.-..';
arr['м']:='--';
arr['н']:='-.';
arr['о']:='---';
arr['п']:='.--.';
arr['р']:='.-.';
arr['с']:='...';
arr['т']:='-';
arr['у']:='..-';
arr['ф']:='..-.';
arr['х']:='....';
arr['ц']:='-.-.';
arr['ч']:='---.';
arr['ш']:='----';
arr['щ']:='--.-';
arr['ъ']:='-..-';
arr['ы']:='-.--';
arr['ь']:='-..-';
arr['э']:='..-..';
arr['ю']:='..--';
arr['я']:='.-.-';
TextBackGround(white);
ClrScr;
TextColor(blue);
writeln('ВАС ПРИВЕТСТВУЕТ ПРОГРАММА ТЕЛЕГРАФ');
TextColor(black);
writeln('введите сообщение!!!');
TextColor(red);
writeln('ВНИМАНИЕ!!!!!вводите ТОЛЬКО буквы РУССКОГО АЛФАВИТА!!!сообщение НЕ ДОЛЖНО содержать заглавных букв');
readln(s);
begin
for i:=1 to Length(s) do
begin
if s[i] <> ' ' then
begin
Write(arr[s[i]],' ');
Play(arr[s[i]]);
end;
end;
readln;
end;
TextColor(black);
Writeln('ваше сообщение было успешно закодировано');
Writeln('нажмите ENTER, чтобы выйти из программы');
Readln;
End.
|