[Program Pascal] Kode Hex

­­            Kali ini saya akan membagikan kode pascal untuk mengubah suatu kata,karakter, dan angka ke dalam kode hex.

program kode_hex_by_maragopan; uses wincrt; var kata : string[1]; saat_ke : longint; begin for saat_ke:=1 to 255 do begin read (kata); if kata = '`' then write('60 '); if kata = 'a' then write('61 '); if kata = 'b' then write('62 '); if kata = 'c' then write('63 '); if kata = 'd' then write('64 '); if kata = 'e' then write('65 '); if kata = 'f' then write('66 '); if kata = 'g' then write('67 '); if kata = 'h' then write('68 '); if kata = 'i' then write('69 '); if kata = 'j' then write('6a '); if kata = 'k' then write('6b '); if kata = 'l' then write('6c '); if kata = 'm' then write('6d '); if kata = 'n' then write('6e '); if kata = 'o' then write('6f '); if kata = 'p' then write('70 '); if kata = 'q' then write('71 '); if kata = 'r' then write('72 '); if kata = 's' then write('73 '); if kata = 't' then write('74 '); if kata = 'u' then write('75 '); if kata = 'v' then write('76 '); if kata = 'w' then write('77 '); if kata = 'x' then write('78 '); if kata = 'y' then write('79 '); if kata = 'z' then write('7a '); if kata = '{' then write('7b '); if kata = '|' then write('7c '); if kata = '}' then write('7d '); if kata = '~' then write('7e '); if kata = '*' then write('2a '); if kata = '+' then write('2b '); if kata = ',' then write('2c '); if kata = '-' then write('2d '); if kata = '.' then write('2e '); if kata = '/' then write('2f '); if kata = ' ' then write('20 '); if kata = '!' then write('21 '); if kata = '"' then write('22 '); if kata = '#' then write('23 '); if kata = '$' then write('24 '); if kata = '%' then write('25 '); if kata = '&' then write('26 '); if kata = '(' then write('28 '); if kata = ')' then write('29 '); if kata = ':' then write('3a '); if kata = ';' then write('3b '); if kata = '<' then write('3c '); if kata = '=' then write('3d '); if kata = '>' then write('3e '); if kata = '0' then write('30 '); if kata = '1' then write('31 '); if kata = '2' then write('32 '); if kata = '3' then write('33 '); if kata = '4' then write('34 '); if kata = '5' then write('35 '); if kata = '6' then write('36 '); if kata = '7' then write('37 '); if kata = '8' then write('38 '); if kata = '9' then write('39 '); if kata = '@' then write('40 '); if kata = 'A' then write('41 '); if kata = 'B' then write('42 '); if kata = 'C' then write('43 '); if kata = 'D' then write('44 '); if kata = 'E' then write('45 '); if kata = 'F' then write('46 '); if kata = 'G' then write('47 '); if kata = 'H' then write('48 '); if kata = 'I' then write('49 '); if kata = 'J' then write('4a '); if kata = 'K' then write('4b '); if kata = 'L' then write('4c '); if kata = 'M' then write('4d '); if kata = 'N' then write('4e '); if kata = 'O' then write('4f '); if kata = 'P' then write('50 '); if kata = 'Q' then write('51 '); if kata = 'R' then write('52 '); if kata = 'S' then write('53 '); if kata = 'T' then write('54 '); if kata = 'U' then write('55 '); if kata = 'V' then write('56 '); if kata = 'W' then write('57 '); if kata = 'X' then write('58 '); if kata = 'Y' then write('59 '); if kata = 'Z' then write('5a '); if kata = '[' then write('5b '); if kata = '\' then write('5c '); if kata = ']' then write('5d '); if kata = '^' then write('5e '); if kata = '_' then write('5f '); end; end.