var a,i:longint;t:string;d:array[1..20]of string;beginrandomize;for i:=1 to 20 dobegina:=random(1000);d[i]:=val(a);end;for i:=1 to 20 dobeginif d[i]<d[i+1] thenbegint:=d[i];d[i]:=d[i+1];d[i+1]:=t;end;for i:=1 to 20 dowrite(d[i]:4);en...
Var A: array[1..4,1..3] of integer; {定义二维数组,整数类型} B: array[1..3] of integer; {一维数组,3个元素} T: array[1..4] of integer; {一维数组,4个元素} i,j: integer; Begin for i:=1 to 4 do {输入表一的数据} Begin Write(‘A[‘,i,‘]: ’); {提示输入哪一行} fo...
Pascal 语言中字符与字符串 【题目】输入一段文章(255个字符以内),求文章中单词的个数,相同单词只记一次,The 和 the 视作相同。 【敲代码】 //网友代码vararticle,w:string; arr:array[1..255] ofstring; i,len,ans:longint; function check(w:string):boolean;vari:longint; beginiflen=0then exit(tr...
const s:array['0'..'9']of string[4]= ('ling','yi','er','san','si','wu','liu','qi','ba','jiu');var n:longint; ss:string[20];begin readln(n);str(n,ss);if ss[1]='-' then writeln('fu ');for n:=1 to length(ss) do write(s[ss[n]],' ');writel...
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 p1042;var a,c:array[1..100] of string;b:array[1..100] of qword;i,l,k,n,s,p:integer;j:string;beginreadln(n);read(j);k:=1;for i:=1 to n dobeginwhile (j[k]<>' ')and(j[k]<>chr(13))and(j[k]<>chr(0)) dobegin a[i]:=a[i]+j[k];inc(k);...
StrArr: array[1..5,1..5] of string; 二、动态数组定义 动态数组常用于当数组的元素数目不确定的时候,其定义形式如下: ...
TimePMString: string; ShortTimeFormat: string; LongTimeFormat: string; ShortMonthNames: array [1..12]ofstring; LongMonthNames: array [1..12]ofstring; ShortDayNames: array [1..7]ofstring; LongDayNames: array [1..7]ofstring; 大部分全程常量与currency 和浮点数格式化有关,在 Delphi 帮助的Cur...
a:array[1..1000] of string;i,j,n,b:integer;k:string;begin n:=1;readln(a[n]);while a[n]<>'end' do begin n:=n+1;readln(a[n]);end;dec(n);for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k;...
数组 1、一维数组 定义: var数组名:array[1..n]ofinteger; 例如: vara:array[1..10]ofinteger; //定义一个整型的a[10] 数组调用:pascal数组下标从1开始,其他和C语言调用类似 参考资料: Delphi 程序设计教程(第3版),杨长春主编,清华大学出版社