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'; ...
program asd;var a:array[1..4]of string;c:array[1..26]of integer;i,j:integer;k:char;function max:integer;begin max:=c[1];for i:=2 to 26 do if c[i]>max then max:=c[i];end;begin fillchar(c,sizeof(c),0);for i:=1 to 4 do readln(a[i]);for i:=1 to 4...
pascal对字符串操作要强大非常多,能够定义数组array of Char或array of Byte; 另一个String类型。String即能够当错数组使用,也能够当成字符串使用,能够随时改变长度SetLength(String, 10),而且不须要手动释放当所在的函数生命周期结束后也就随之自己主动释放了(结构体中除外)。 数组转字符串:String(Byte数组或Char数组...
program df;const st:array[1..4]of string=('Chinese','Math','English','Computer');var score:array[1..4]of longint;pingjun:array[1..4]of real;i,j,p:integer;procedure input(var a:longint;s:string;k:integer);begina:=0;writeln('Input ',s,' score,input Negative number...
关于FREE PASCAL的题目啊!!!1.读入十个数,计算它们的和、积、平方和及和的平方。2.输入下列图形(字母金字塔) A A B A B C ……. A B C…
pascal对字符串操作要强大非常多,能够定义数组array of Char或array of Byte; 另一个String类型。String即能够当错数组使用,也能够当成字符串使用,能够随时改变长度SetLength(String, 10),而且不须要手动释放当所在的函数生命周期结束后也就随之自己主动释放了(结构体中除外)。
free pascal中从键盘输入一个长度不超过255的字符串，将其正向、逆向打印出来。var s:string; i:integer;begin readln(s);writeln(s);for i:=length(s) downto 1 do write(s[i]);writeln;end.上面的var a:array[1..255]of string;应该改为：var a:array[1..255]of char;
Free Pasca..//花费了将近1周的时间,用Free Pascal 捣鼓出了一个Win32 API Gui俄罗斯方块游戏,自己真的菜得无法再菜了。。。//求各种大神批评指路//求各种大神传授各指编码学习和算法的技术
of real;b:array[1..14] of longint;c:array[1..14] of string;i,j:longint;t:real;s:string;begin for i:=1 to n do read(b[i]);readln;for i:=1 to n do read(a[i]);for i:=1 to n do str(b[i],c[i]);for i:=1 to n-1 do for j:=1 to n-i do begi...
用free pasc..TCP :UDP:因为是fress pascal, So 要在函数前面用fp哦!fpsocket,fpbind, fplisten, fpaccept, (BLA, BLA, BLA,顺序顺序顺序)