Xin viết giùm một chương trình dịch mã Morse bằng pascal?

Question

Có ai rành tin học xin giúp giùm, chả là tôi muốn viết một chương trình dịch các chữ, câu hay số được nhập vào thành những nét chấm-gạch của mã morse nổi tiếng, và xin trình bày nội dung để viết chương trình đó chứ đừng tạo luôn chương trình, cảm ơn nhiều.

Answer 1

Dùng hàm chr(32) = ký tự trắng ' ' ứng với mã ASCII là 32

Sau khi nhập xong dòng text , ta sẽ kiểm tra từng ký tự của xâu (chuỗi ký tự) rồi đối chiếu với bảng mã Morse . Sau đó in ra màn hình.

Đã được test -> OK



Program doi_text_ra_ma_Morse;

var
i : integer;
Morse: array[chr(32)..'z'] of string;
str:string[200];

{***** CHUONG TRINH CHINH ***** }
BEGIN

morse['a'] :='.-';
morse['b'] :='-...';
morse['c'] :='-.-.';
morse['d'] :='-..';
morse['e'] :='.';
morse['f'] :='..-.';
morse['g'] :='--.';
morse['h'] :='....';
morse['i'] :='..';
morse['j'] :='.---';
morse['k'] :='.-.';
morse['l'] :='.-..';
morse['m'] :='--';
morse['n'] :='-.';
morse['o'] :='---';
morse['p'] :='.--.';
morse['q'] :='--.-';
morse['r'] :='.-.';
morse['s'] :='...';
morse['t'] :='-';
morse['u'] :='..-';
morse['v'] :='...-';
morse['w'] :='.--';
morse['x'] :='-..-';
morse['y'] :='-.--';
morse['z'] :='--..';
morse['1'] :='.----';
morse['2'] :='..---';
morse['3'] :='...--';
morse['4'] :='....-';
morse['5'] :='.....';
morse['6'] :='-....';
morse['7'] :='--...';
morse['8'] :='---..';
morse['9'] :='----.';
morse['0'] :='-----';
morse[' '] :=' ';
morse['.'] :='.-.-.-';
morse[','] :='--..--';

write('Nhap vao so mot dong text : ');readln(str);
writeln('Ma Morse tuong ung la:');

for i := 1 to length(str) do write(Morse[str[i]]);

readln;

END.