var n:longint; s:string;begin readln(n);str(n,s);writeln(s);end.
基本数据类型(常用) 整数类型:Integer 实数类型:Double 字符类型:Char 字符串类型:String 布尔类型:Boolean 数据类型转换 inttostr(x) 将字符串x转换成int,前提是x为数值型字符串 相应的还有:strtoint(x)、floattostr(x)、strtofloat(x) 运算符(需注意的) 1、算术运算符: +、-、* 等运算符和 C 语言相应的...
widechartostring 函数 将unicode字符串转换为ansi字符串 widechartostrvar 函数 将unicode字符串转换为ansi字符串变量Pascal中的常用数学函数求绝对值函数abs(x)定义:function Abs(X): (Same type as parameter);说明:X可以是整型,也可以是实型;返回值和X的类型一致例子:varr: Real;i: Integer;beginr := Abs...
var a:array[0..3]of integer;s1,s2:string;i,j,k,l,m,n:longint;begin readln(s1);for i:=length(s1)downto 1 do begin a[i]:=a[i]+ord(s1[i])+ord(s1[length(s1)-i+1])-96;if a[i]>=10 then begin inc(a[i-1]);a[i]:=a[i]mod 10; end;end;if a[0]=1...
var s:string;a,b,c:integer;begin repeat readln(s);if s='#' then exit;val(copy(s,1,pos('+',s)-1),a,c);val(copy(s,pos('+',s)+1,length(s)-pos('+',s)),b,c);writeln(a+b);until false;end.var i,n:word;s:string;f:boolean;begin s:='1';n:=0;while s...
s:string;t:integer;begin readln(s); t:=s[3]: s[3]:=s[1]; s[1]:=t; writeln(s);end.第二题: var i,n:integer;begin readln(n); if(nmod100=0)and(nmod400=0)thenwriteln('yes'); if(nmod100=0)and(nmod400<>0)thenwriteln('no'); if(nmod100<>0)and(nmod4=0)then...
例如:var name:string; begin readln(nsme); for i:=1 to ord(name0) do writeln(namei);end. 语句writeln(namei)输出name串中第i个字符。 【例2】求输入英文句子单词的平均长度程序如下:program ex8_2; var ch:s 5、tring; s,count,j:integer; begin write('The sentence is :'); readln(ch); ...
integer 整型 longint 长整型 shortint 短整型 int64 超长整型 single 单精度 double 双精度 char 单个字符 string字符串型 ansistring内存字符串型 int64 -2^63-2^63-1的整数类型 qword无符号的整型(0~2^64-1) begin 开始 end 结束 if 如果 for ... to ... do 循环 read...
加:var st:string;x,y:array[0..101]of integer;i,j,l1,l2:integer;begin write('x='); readln(st);l1:=length(st);for i:=0 to 101 do x[i]:=0;for i:=l1 downto 1 do x[l1-i]:=ord(st[i])-ord('0');write('y='); readln(st);l2:=length(st);for i:=0 to...