a:array[0..1000] of integer; s:array[0..1000] of string; temp:boolean;begin readln(n); for i:=0 to n do begin readln(k,a[k]); case a[k] of 1:if k>0 then s[k]:='' else s[k]:='1'; -1:if k>0 then s[k]:='-' else s[k]:='-1'; ...
pascal对字符串操作要强大非常多,能够定义数组array of Char或array of Byte; 另一个String类型。String即能够当错数组使用,也能够当成字符串使用,能够随时改变长度SetLength(String, 10),而且不须要手动释放当所在的函数生命周期结束后也就随之自己主动释放了(结构体中除外)。 数组转字符串:String(Byte数组或Char数组...
用free pasc..TCP :UDP:因为是fress pascal, So 要在函数前面用fp哦!fpsocket,fpbind, fplisten, fpaccept, (BLA, BLA, BLA,顺序顺序顺序)
j,k:longint;beginfor i:=1000000 to 9999999 doif string(sqrt(i))=string(trunc(sqrt(i))) do writeln(i);end.第二题：var i:integer;function ok(a:integer):boolean;var i:integer;beginfor i:=2 to trunc(sqrt(a)) doif a mod i=0 then exit(false);ok:=true;end;beginfor ...
Free Pasca..//花费了将近1周的时间,用Free Pascal 捣鼓出了一个Win32 API Gui俄罗斯方块游戏,自己真的菜得无法再菜了。。。//求各种大神批评指路//求各种大神传授各指编码学习和算法的技术
首先，注意！要加密，否则就会被人直接打开 加密代码：var s:string; a,d,p:longint;ss:array[1..1000] of string;begin readln(a); //a什么数都行，但是你记好了它，解密时用 assign(input,'a.txt');reset(input);repeat //每一行都要加密 readln(s);for d:=1 to length(s) do ...
pascal对字符串操作要强大非常多,能够定义数组array of Char或array of Byte; 另一个String类型。String即能够当错数组使用,也能够当成字符串使用,能够随时改变长度SetLength(String, 10),而且不须要手动释放当所在的函数生命周期结束后也就随之自己主动释放了(结构体中除外)。
问使用Lazarus freepascal将数据从.txt文件写入memobox？EN版权声明：本文内容由互联网用户自发贡献，该文...
name:string; sex:(male,female); age:0..100; score:real; END; VAR s:student; a:array[1..100] of stuent; 【赋值方法】 s.num=9601; s.name=‘li min’; s.sex=male; s.age=18; s.score=91; a[1].num=9601; a[1].name=‘li min’; a[1].sex=male; a[1].age=18; a[1]...
Var a:array1.500 of string; n:char; j, len, l,e:integer;beginread(n);While n? dobegin len:=len+1; alen:=n; read(n); end;For j:=1 to len dobegin if aj=e then e:=e+1; if aj=l then l:=l+1; end;Writeln( e=,e);Writeln(l=,l);end.hello! Can i help you ?e=...