|
Во-во. Sound(freq);delay(timepoints);nosound; а сверху - uses crt;
uses crt;
type mas=array['a'..'я'] of string;
var arr:mas;
SourceString,DestinationString:string;
begin
arr['a']:='.-.---.---.-';
arr['б']:='-.-.-.-.-';
....................
arr['я']:='-.-.-.-.-.-';
readln(SourceString);
for i:=1 to length(SourceString) do
begin
writeln(arr[SourceString[i]]);
MakeBeep(arr[SourceString[i]]);
end;
end.
примерно так.
|