10進制转换成16进制.pptVIP

10进制转换成16进制 要考虑超过超过9就应当用字母表示，如何实现？ 10进制转换成2进制 var n,i,t:longint; a:array[1..100] of integer; b:char; begin readln(n); i:=0; while n0 do begin inc(i); a[i]:=n mod 16; n:=n div 16; end; t:=i; for i:=t downto 1 do begin if (a[i]=0)and(a[i]10) then write(a[i]); if a[i]=10 then write(A); if a[i]=11 then write(B) ; if a[i]=12 then write(C) ; if a[i]=13 then write(D) ; if a[i]=14 then write(E) ; if a[i]=15 then write(F) ; end; end. 秦翔宇 考虑一下0？ 字 符 Word 中大小写转换大家会做么？ 为什么能转换？要弄26一个一一对应？ 我们来看一下字符在计算机内部是如何表示的？ 1000001 对应字符是哪个？ ACSII码（美国标准信息交换码） American Standard Code for Information Interchange Ord(x) 对于字符来说是求字符对应的序号与就是ascii码 Chr(x)求axsii码对应字符 A 定义后可以作为变量 加引号就是字符常量’A’ ’A’ Var A:char; 字符是一个有序类型, 字符的大小顺序按其ASCⅡ代码的大小而定。函数succ、pred、ord适用于字符类型。例如：后继函数：succ(a)=b　　　前继函数：pred（B）=A　　　序号函数：ord（A）=65 字符函数：chr(65)=‘A’ 字符变量定义：var a:char; 要想显示一个笑脸程序如何编写？ 想知道‘y’对应ascii码是多少如何编写？ var i:char; begin for i:=A to ‘Z do write(i); end. 读程序写结果 var i:integer; begin for i:=1 to 26 do write( ); end. program ex; var ch:char; begin read(ch); write(chr(ord(ch)-32)) end. 读程序，输出下列程序实现什么功能？ program ex; var ch:char; begin read(ch); while ch’?’ do begin write(chr(ord(ch)-32)) read(ch); end; end. 输入一行有大写与小写字母混合组成的字符，直到？号结束，要求输出一串数字—与原来比较，本来是大写的变成对应的小写，本来小写的转成大写。 编写一个自己的程序，来实现字母大小写转换 输入：AfghUUMM？ 输入：aFGHuumm ord(ch)=65 and ord(ch)=90 题1134：【入门】字符统计 Description 输入一串小写字母(以‘.’为结束标志)，统计出每个字母在该字符串中出现的次数(若某字母不出现，则不要输出)。 要求：每行输出5项，每项以空格隔开。 Input 输入一行以.结束的字符串 Output 输出相应小写字母的个数。 Sample Input aaaabbbccc. Sample Output a:4 b:3 c:3 a[a]….a[z]