Pascal 语言中字符与字符串 【题目】输入一段文章(255个字符以内),求文章中单词的个数,相同单词只记一次,The 和 the 视作相同。 【敲代码】 //网友代码vararticle,w:string; arr:array[1..255] ofstring; i,len,ans:longint; function check(w:string):boolean;vari:
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...
end.var i,j,n,k,l,m:longint;s1:string;s:array[0..10]of string;ch:char;a:array[0..10]of longint;beginreadln(n);readln(s1);l:=length(s1);m:=1;for i:= 1 to n dobeginj:=1;while (s1[j]>',')and(m<>l+1) dobegins[i,j]:=s1[m];inc(j);inc(m);end;...
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...
StrArr: array[1..5,1..5] of string; 二、动态数组定义 动态数组常用于当数组的元素数目不确定的时候,其定义形式如下: ...
pg,pg_key:array[1..maxn]ofstring; kg:array[1..maxn]oflongint; full:array[1..maxn]ofboolean;functionnoAlphabat(s:string):boolean;这个字符串不全为空格beginifs=''thenexit(true);whiles[1]=''dobegindelete(s,1,1);ifs=''thenbreak;end;ifs=''thenexit(true); ...
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...
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);...
var a,st:array[0..9]of string;c:array[0..9]of boolean;i,j,n:longint;str:string;procedure try(t:longint);var i:longint;begin if t>n then begin{输出} for i:=1 to t-2 do write(a[i],'-');writeln(a[t-1]);end;for i:=1 to n do if c[i] then{若这个...
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'; ...