Крипто-форум crprogram.16mb.com

Програмування на Object Pascal, Lazarus, криптографія, криптоаналіз, шифри, вихідні коди, вирішення задач, приклади програм

Часовий пояс: UTC десь + 2 години




Розпочати нову тему Відповісти  [ 3 повідомлень ] 
Автор Повідомлення
 Заголовок повідомлення: код Морзе (Morse code)
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 9
код Морзе - код, який використовувався у XIX-XXст. для передачі повідомлень телеграфними мережами, а з початку XXст. і радіо зв'язком.

Код складається послідовностей двох сигналів (довго та короткого, точки та тире).

Винайшов його у 1837 році американський винахідник Семюель Морзе.


Повернутися наверх
  
 
 Заголовок повідомлення: Re: код Морзе (Morse code)
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 9
Код:
.-    /  A
-...    /  B
-.-.    /  C
-..    /  D
.    /  E
..-.    /  F
--.    /  G
....    /  H
..    /  I
.---    /  J
-.-    /  K
.-..    /  L
--    /  M
-.    /  N
---    /  O
.--.    /  P
--.-    /  Q
.-.    /  R
...    /  S
-    /  T
..-    /  U
...-    /  V
.--    /  W
-..-    /  X
-.--    /  Y
--..    /  Z
.- - - -    /  1
..- - -    /  2
...- -    /  3
....-    /  4
.....    /  5
-....    /  6
--...    /  7
---..    /  8
----.    /  9
-----    /  0


Повернутися наверх
  
 
 Заголовок повідомлення: Re: код Морзе (Morse code)
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 502
На делфі виглядатиме так:
Код:
const
mortab:array[0..255] of string[10]=('','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','',
'_···_ ','__··__ ','·_··_· ','','','','','','_·__·_ ','_·__·_ ','','','·_·_·_ ',
'_····_ ','······ ','_··_· ','_____ ','·____ ','··___ ','···__ ','····_ ','····· ',
'_···· ','__··· ','___·· ','____· ','___··· ','_·_·_· ','','','','··__·· ',
'·__·_· ','·_ ','_··· ','_·_· ','_·· ','· ','··_· ','__· ','···· ','·· ','·___ ',
'_·_ ','·_·· ','__ ','_· ','___ ','·__· ','__·_ ','·_· ','··· ','_ ','··_ ',
'···_ ','·__ ','_··_ ','_·__ ','__·· ','','','','','','·____· ','·_ ','_··· ',
'_·_· ','_·· ','· ','··_· ','__· ','···· ','·· ','·___ ','_·_ ','·_·· ','__ ','_· ',
'___ ','·__· ','__·_ ','·_· ','··· ','_ ','··_ ','···_ ','·__ ','_··_ ','_·__ ',
'__·· ','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','',
'','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','',
'','','','·_ ','_··· ','·__ ','__· ','_·· ','· ','···_ ','__·· ','·· ','·___ ','_·_ ',
'·_·· ','__ ','_· ','___ ','·__· ','·_· ','··· ','_ ','··_ ','··_· ','···· ','_·_· ',
'___· ','____ ','__·_ ','__·__ ','_·__ ','_··_ ','··_·· ','··__ ','·_·_ ',
'·_ ','_··· ','·__ ','__· ','_·· ','· ','···_ ','__·· ','·· ','·___ ','_·_ ','·_·· ',
'__ ','_· ','___ ','·__· ','·_· ','··· ','_ ','··_ ','··_· ','···· ','_·_· ','___· ',
'____ ','__·_ ','__·__ ','_·__ ','_··_ ','··_·· ','··__ ','·_·_ ');

procedure TForm1.Button1Click(Sender: TObject);
var
i,n:integer;
s,re:string;
begin
s:=edit1.Text;
n:=length(s);
re:='';
for i:=1 to n do
re:=re+mortab[ord(s[i])];
edit2.text:=re;
end;


Повернутися наверх
  
 
Показати повідомлення за:  Сортувати по:  
Розпочати нову тему Відповісти  [ 3 повідомлень ] 

Часовий пояс: UTC десь + 2 години



cron
Роwеrеd bу рhрВB® аnd Hostinger web hosting