s:string;n,i:integer;begin readln(s);readln(n);for i:=n downto 1 do write(s[length(s)-i+1]);for i:=1 to length(s)-n do write(s[i]);readln;end.//不好意思啊，昨天抽风，今天修改一下，改为文件读入读出 var s:string;n,i:integer;begin assign(input,'words.in');...
Writeln(IntToStr(p^));{$POINTERMATH ON} procedureTestIntArray; var arr :array[0..10]ofinteger; p : PInteger; i :integer; s:string; begin fori:=0toLength(arr)-1do arr[i] := i +1000; // p := arr; //error: Incompatible types: 'Array' and 'PInteger' p := @arr; Writeln(...
Writeln(IntToStr(p^));{$POINTERMATH ON} procedureTestIntArray; var arr :array[0..10]ofinteger; p : PInteger; i :integer; s:string; begin fori:=0toLength(arr)-1do arr[i] := i +1000; // p := arr; //error: Incompatible types: 'Array' and 'PInteger' p := @arr; Writeln(...
array是数组，定义数组时用到，例如：var a:array[1..100] of integer;其中integer就是指整形变量，可以用来存放整数（-32768到32767），例如：var a:integer;assign用于文件输入输出，将文件名称赋给文件变量，例如：assign(input,'abc.in');文件输入 assign(output,'abc.out');文件输出 竞赛中会用...
levelString:='级别:'+ levelString +' ';xPos:=4;yPos:=-4;end;function CanTurn(): boolean;vari,j: integer;r: boolean;beginr:=true ;For i:=0 TO 18 DOIf intCurPiece=Piece[i] Thenbeginbreak ;end;case i of0: intTempPiece := Piece[0]; //方块1: intTempPiece := Piece[2];...
var s1,s2:string;i:integer;begin s1:='';s2:='';readln(s1);for i:=1 to length(s1) do s2:=s1[i]+s2;writeln(s2);end.{像这类要把数字反转的题，我都喜欢用字符串来操作，写起来简洁。当然楼上的做法也是可以的，但是建议那样做最好用数组} var b,t:integer;begin for b:=0 ...
Free pascal 指针处理 1. copy from : https://forum.lazarus.freepascal.org/index.php?topic=22905.0 type pinteger=^integer; var aList:TList; pi:pinteger; i:integer; begin aList:=TList.Create; for i:=0 to 9 do begin New(pi);
FREE PASCAL出错信息对照表 一、编译时的出错信息 1.Out of memory [内存溢出] 2.Identifier expected [缺标识符] 3.Identifier not found [标识符未找到]* 如:Identifier not found INTEGR [标识符INTEGER未找到] 4.Duplicate identifier [重复说明]* 如:Duplicate identifier N [变量N重复说明] 5.Syntax ...
问题1:var n:qword;s:string;i:integer;function pwr(x,a:integer):qword;begin pwr:=trunc(exp(a*ln(x)));end;begin readln(s);for i:=1 to length(s) do if s[i] in ['0'..'9'] then n:=n+(ord(s[i])-48)*pwr(16,length(s)-i)else n:=n+(ord(s[i])-55)*...
i:integer;client_ip:string;client_port:longint;client_addr:TInetSockAddr;beginudpServerSocket:=fpSocket(AF_INET, SOCK_DGRAM, 0); // udp簇 用 SOCK_DGRAM//设置 服务器 ip和端口信息server_addr.sin_family:=AF_INET;server_addr.sin_port:= htons(6667);server_addr.sin_addr.s_addr:=0;fpbind...