数组测试题目二解析.docVIP

1、统计单词个数及每个单词出现的次数。 program words; type re=record data:longint; str:string; end; var ? f:boolean; ? str,str1:string; ? l,i,j,k,sword:longint; ? s:set of char; ? a:array[0..10000] of re; begin readln(str); l:=length(str); for i:=1 to l do if str[i] in [A..Z] then str[i]:=chr(ord(str[i])+32); i:=1; k:=0; s:=[a..z]; sword:=0; while i=l do ? begin ??? if str[i] in s then ????? begin ??????? inc(sword); ??????? str1:=; ??????? while (i=l) and (str[i] in s) do ????????? begin ??????????? str1:=str1+str[i]; ??????????? inc(i); ????????? end; ??????? f:=false; ??????? for j:=1 to k do if a[j].str=str1 then? begin inc(a[j].data);f:=true;end; ??????? if not f then begin k:=k+1;a[k].data:=1;a[k].str:=str1;end; ????? end ??? else inc(i); ?end; writeln(the number of words=,sword); for i:=1 to k do ? writeln(the number of ,a[i].str,=,a[i].data); end. 2、在一次宴会上，有来自八个不同国家的宾客被安排在同一张圆桌就坐。A是中国人，会讲英语；B是意大利人，他能讲西班牙语；C是英国人，会讲法语；D是日本人，能讲汉语；E是法国人，会讲德语；F是俄国人，懂意大利语；G是西班牙人，能讲日语；最后一个是德国人，懂俄语。编程序安排他们的座位，使他们在各自的座位上能方便地跟两旁的客人交谈。 解：①根据题目提供条件与数据，建立如下关系代码表： 国家名 中国 意大利 英国 日本 法国 俄国 西班牙 德国 宾客代码 A B C D E F G H 语言代号 1 2 3 4 5 6 7 8 懂外语代号 3 7 5 1 8 2 4 6 总代码 A13 B27 C35 D41 E58 F62 G74 H86 表中总代码实际上是前三项代码的归纳：第一个字母表示哪国人；第二个数字表示本国语代号；第三个数字表示懂哪国外语。如A13，A表示中国人，1表示汉语（本国语），3表示会说英语。所以每个宾客的情况均用总代码（三个数据组成的字符串）表示； 定义由8个元素组成的数组（NAME），元素类型为字符串类型（String); 元素的下标号影响各人座位关系，必须满足后一个元素的下标号应与前一个元素字符串中的第三个数据相同。例如：若第一个位置总代码为A13，则第二个位置应根据A13中最后的3，安排C35。即A与C可以交谈。以此类推。 用字符串处理函数COPY，截取字符串的第一个字母作为宾客代码打印，再取第三个字符，用VAL将其转换成数字，将这个数字作为下标号，把这个下标号的元素安排在旁边（相邻）； 重复步骤的方法，安排其后的元素，直到八个数据全部处理完为止。 Pascal程序: Program Exam54; const? name?:??array[1..8]of string????????????? {定义字串类型数组并赋常量｝ ????????????? =(A13,B27,C35,D41,E58,F62,G74,H86); Var? i,?code:?integer;????????????????????????? ｛整数类型｝ ???? x:??1..8;????????????????????????????????? ｛子界类型｝ ???? s??:??string;????????????????????????????? ｛字符串类型｝ Begin　 ? s:=copy(name[1],1,1);????????????????? ｛截取第一个元素字串的第一个字符｝ ? write(s:4);???????????????????? ???????｛确定第一个位置｝ ? s:=copy(name[1],3,1);??????