会计学
1
进制转换成进制
var n,i,t:longint;
a:array[1..100] of integer;
b:char;
begin
readln(n);
i:=0;
while n>0 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?
第1页/共12页
字 符
第2页/共12页
Word 中大小写转换大家会做么?
为什么能转换?要弄26一个一一对应?
我们来看一下字符在计算机内部是如何表示的?
1000001
对应字符是哪个?
第3页/共12页
ACSII码(美国标准信息交换码)
American Standard Code for Information Interchange
第4页/共12页
Ord(x)
对于字符来说是求字符对应的序号与就是ascii码
Chr(x)求axsii码对应字符
第5页/共12页
A
定义后可以作为变量
加引号就是字符常量’A’
A
’A’
Var A:char;
第6页/共12页
字符是一个有序类型, 字符的大小顺序按其ASCⅡ代码的大小而定。函数succ、pred、ord适用于字符类型。例如:后继函数:succ('a')='b' 前继函数:pred('B')='A' 序号函数:ord('A')=65 字符函数:chr(65)=‘A’
字符变量定义:var a:char;
要想显示一个笑脸程序如何编写?
想知道‘y’对应ascii码是多少如何编写?
第7页/共12页
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.
第8页/共12页
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.
第9页/共12页
进制转换成进制PPT学习教案 来自淘豆网m.daumloan.com转载请标明出处.