www.ypnh.net > pAsCAl中vAl函数如何使用

pAsCAl中vAl函数如何使用

1............ 2. 求子串。 Copy(s,I,L) 从字符串s中截取第I个字符开始后的长度为l的子串。 例:copy(‘abdag’,2,3)=’bda’ 3. 删除子串。过程 Delete(s,I,l) 从字符串s中删除第I个字符开始后的长度为l的子串。 例:s:=’abcde’;delete(s,2,3);结果s...

1............ 2. 求子串。 Copy(s,I,L) 从字符串s中截取第I个字符开始后的长度为l的子串。 例:copy(‘abdag’,2,3)=’bda’ 3. 删除子串。过程 Delete(s,I,l) 从字符串s中删除第I个字符开始后的长度为l的子串。 例:s:=’abcde’;delete(s,2,3);结果s...

111111111111超过longint的范围了,长整型的范围是到245986153(好像是这个数字)

这个可以用IntToStr但要库的支持如uses SysUtils;var s:string;begin s:=IntToStr(123456); writeln(s);end.

var s:string; a,b,i:longint; begin readln(s); i:=pos('*',s); val(copy(s,1,i-1),a); val(copy(s,i+1,length(s)-i-1),b); writeln(a*b); end.

function pos2(s:string):byte; begin for pos2:=length(s) downto 1 do if s[pos2]in ['+','-'] then exit; exit(0); end; function val2(s:string):real; var code:byte; begin val(s,val2,code); end; function js(s:string):string; str(val...

program jisuanqi;var nextch:char;result:real;procedure readnextch;{读下一个字符的过程}beginrepeatif eoln then nextch:=';'else beginread(nextch);write(nextch);end;until nextch'';end;procedure readnumber(var number:real);{读数的...

Type nt=record val:real; c:integer; s:string[100]; end; an=array[1..4] of nt; Var b:an; a:array[1..4] of real; i:integer; found,error:boolean; Function ist(n:integer):string; var s:string; begin s:=''; repeat s:=chr(ord('0')+n ...

可能有点小超时(pp为个数,ppp为所求数) Type nt=record val:real; c:integer; s:string[100]; end; an=array[1..100] of nt; Var b:an; a:array[1..100] of real; pp,ppp,i:integer; found,error:boolean; Function ist(n:integer):string; va...

网站地图

All rights reserved Powered by www.ypnh.net

copyright ©right 2010-2021。
www.ypnh.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com