如何将PASCAL语言中的十六进制转换为十进制
用一个最简单的相加的方法。（以下方法是用于即使二进制很长，十进制不超过longint的范围）
var s:string;
m,i,j:longint;
begin
readln(s)；
i:=1;
j:=length(s);
m:=0;
repeat
m:=(ord(s[j])-48)*i+m;
i:=i*2;
j:=j-1;
until j=0;
write(m);
end.
var n,len,i,k:longint;
a:array[1..100] of longint;
begin
read(n);
read(k);
repeat
inc(len);
a[len]:=n mod k;
n:=n div k;
until n=0;
for i:=len downto 1 do begin
if a[i]>=10 then write(chr(a[i]-10+ord('A'))) else write(a[i]);
end;
end.
begin
writeln($ABCDE);
end.
如是.
如果是要输入一个十六进制数再转换,那:
var i,j,k,l:longint;
s:string;
begin
readln(s);
j:=1;
l:=0;
for i:=length(s) downto 1 do begin
if(s[i] in ['0'..'9'])then k:=ord(s[i])-ord('0');
if(s[i] in ['A'..'F'])then k:=ord(s[i])-ord('A')+10;
inc(l,j*k);
j:=j*16;
end;
writeln(l);
end.
pascal语言有几种版本?
(1)Pascal语言结构严谨,可以很好地培养一个人的编程思想。 (2)Delphi是一门真正的面向对象的开发工具,并且是完全的可视化。 (3)Delphi使用了真编译,可以让你的代码编译成为可执行的文件,而且编译速度非常快。 (4)Delphi具有强大的数据库开发能力,可以让你轻松地开发数据库。 缺点Delphi几乎可以说是完美的,只是Pasc...
pascal中指针变量的用法
new(p1)：系统动态地产生整型变量单元，即动态地给一个整型变量分配内存单元，并将该单元的地址放入p1单元中。该整型变量单元命名为p1^，表明通过p1指针可访问这个单元的整型数据。new(q)：系统动态地产生实型变量单元，即动态地给一个实型变量分配内存单元，并将该单元地址放入q单元中。该实型变量单元...
编程语言有哪几种,详细介绍一下这些语言
(1)Pascal语言结构严谨,可以很好地培养一个人的编程思想。 (2)Delphi是一门真正的面向对象的开发工具,并且是完全的可视化。 (3)Delphi使用了真编译,可以让你的代码编译成为可执行的文件,而且编译速度非常快。 (4)Delphi具有强大的数据库开发能力,可以让你轻松地开发数据库。 缺点 Delphi几乎可以说是完美的,...
Delphi用的是什么编程语言
Pascal语言 & Delphi 优点 （1）Pascal语言结构严谨，可以很好地培养一个人的编程思想。 （2）Delphi是一门真正的面向对象的开发工具，并且是完全的可视化。 （3）Delphi使用了真编译，可以让你的代码编译成为可执行的文件，而且编译速度非常快。 （4）Delphi具有强大的数据库开发能力，可以让你轻松地开...
2020年,5 种 将死的编程语言
Delphi’s Object Pascal 首先我得向我曾经的好伙伴Delphi表示歉意,因为我不得不公布Object Pascal的“死讯”。well,Delphi(用于发Object Pascal的工具)历经变迁之后,依然苟延残喘着(它起源于Borland公司,现在抱着Embarcadero公司的大腿)。 早先Delphi和它的Object Pascal语言确实给我们提供了一个良好的工作环境:虽然有点...
烦恼:PASCAL
你要确定一个最小的m，使得在第一个好人被杀死前，k个坏人先被杀死。输入 一个k，0<k<14 输出 一个m 样例：输入 3 输出 5 另一个样例：输入 4 输出 30 2、子数整数 对于一个五位数a1a2a3a4a5，可将其拆分为三个子数：sub1=a1a2a3 sub2=a2a3a4 sub3=a3a4a5 例如，五位数20207可以...
计算机的高级语言有哪些?请详细介绍
Delphi实际上是Pascal语言的一种版本,但它与传统的Pascal语言有天壤之别。一个Delphi程序首先是应用程序框架,而这一框架正是应用程序的“骨架”。在骨架上即使没有附着任何东西,仍可以严格地按照设计运行。您的工作只是在“骨架”中加入您的程序。缺省的应用程序是一个空白的窗体(Form),您可以运行它,结果得到一个空...
pascal 的初级题
17. 将1元钱兑换成1,2,5分及1,2,5角钱,有多少种可能?18. 打印乘法口诀表.19. 有一对兔子,出生一个月后变成一对小兔子,两个月后生出第一小兔子, 自己变成一对老兔子,此时共有二对兔子,(一老一小),三个月后,老兔子又生出一对小兔子,上个月生的小兔子变成大兔子,此时共有三对(老,大小各一对)...
计算机程序设计语言分为哪几种
PASCAL是一种结构程序设计语言,由瑞士苏黎世联邦工业大学的沃斯(N.Wirth)教授研制,于1971年正式发表。是从ALGOL60衍生的,但功能更强且容易使用。目前,作为一个能高效率实现的实用语言和一个极好的教学工具,PASCAL语言在高校计算机软件教学中一直处于主导地位。Pascal(B.Pascal)是十七世纪法国著名数学家,他于1642年曾...
pascal题目:机器人
这个程序好像很简单哦，我下面的程序从键盘上输入指令，结果显示在屏幕上。题目要求用文件输入输出部分你自行完善，没问题吧？{$apptypeconsole} programexp;vars:string;x,y,i:integer;begin x:=0;y:=0;readln(s);fori:=1tolength(s)do cases[i]of 'N':y:=y+1;'W':x:=x-1;'S':y...
巩志沉香： 如果在编写过程中使用16进制,可以使用＂$＂符号将其转换成10进制,即:begin writeln($ABCDE); end.如是.如果是要输入一个十六进制数再转换,那:var i,j,k,l:longint; s:string; begin readln(s); j:=1; l:=0; for i:=length(s) downto 1 do begin if(s[i] ...
漳县19342271406： pascal程序设计,从键盘输入的一个小于32768的十进制正整数转换为字符形式的十六进制数输出 - ？
巩志沉香： 第1空:(a-10+ord('A')) 第2空:a div 16; 第3空:k-1——团队pas世界欢迎你加入!
漳县19342271406： pascal中#的用法 - ？
巩志沉香： 后面跟着一个数表示十六进制数如: a:=#33434就表示a被赋值为十六进制的33434 相应的十进制就是209972二进制是%
漳县19342271406： free pascal 二进制十六进制转换 - ？
巩志沉香： program jinzhi; const j=16; var a:array[0..100]of char; {存每个数字对应的字符} t,k,m,n,i:longint; s:ansistring; begin for t:=0 to 9 do a[t]:=chr(ord('0')+t); for t:=10 to 100 do a[t]:=chr(ord('A')+t-10); {预处理数组a} readln(s); {读入2进制数} for t:=length(...
漳县19342271406： 用Pascal语言 将一个十进制整数转化为十六进制数 - ？
巩志沉香： 二进制数、十六进制数转换为十进制数(按权求和) 二进制数、十六进制数转换为十进制数的规律是相同的.把二进制数(或十六进制数)按位权形式展开多项式和的形式,求其最后的和,就是其对应的十进制数——简称“按权求和”. 例如:把(1001.01)2转换为十进制数. 解:(1001.01)2 =1*8+4*0+2*0+1*1+0*(1/2)+1*(1/4)=8+0+0+1+0+0.25=9.25把(38A.11)16转换为十进制数 解:(38A.11)16 =3*162+8*16+10*160+1*16-1+1*16-2 =768+128+10+0.0625+0.0039 =906.0664
漳县19342271406： pascal可以直接进行16进制的计算么.?？
巩志沉香： 很明显,不可以,但是进制转换可以用方法得到(主要方法有:1、用10进制的计算后再转换;2、用高精度的方法模拟竖式加减乘除,自己制定进1的规则)
漳县19342271406： 用pascal语言编写将十进制数转化为二进制和十六进制数 - ？
巩志沉香： 以下提供10进制向2~16进制转换的函数,cc为10进制长整型,函数返回的结果为字符串:function convert_b(cc:longint;b:integer):string; var k,i,j:integer; bb:array[1..32] of char; bbb,s:string; begin {以下10进制再转为b进制,b不超过16} k:=1; ...
漳县19342271406： pascal编程中将一个16进制数转换成8进制数 - ？
巩志沉香： s:string; readln(s); while length(s) mod 3<>0 do insert('0',s,1); for i:=1 to length(s) div 3 do write(char(ord(s[i*3-2])*4+ord(s[i*3-1])*2+ord(s[i*3])-48*6)); writeln;
漳县19342271406： Pascal问题:进制转换. 将一个四位十六进制的数转为十进制的数. - ？
巩志沉香： var s:string; i,t:integer; begin readln(s); t:=0; for i:=1 to 4 do if s[i]>='A' then t:=t*16+(ord(s[i])-ord('A')+10) else t:=t*16+ord(s[i])-ord('0'); writeln(t); end.
漳县19342271406： 进制互换Pascal？
巩志沉香： const c='0123456789ABCDEF'; var r,t:longint; n,m:integer; str:string; procedure ntoshi(n:integer;str:string); var g,i,y:longint; f:array[1..1000] of integer; begin g:=length(str); for i:=1 to g do begin case str[i] of 'A':f[i]:=10; 'B':f[i]:=11; 'C':f[i]:=12; 'D':f[i]:=13...
