求free pascal练习答案，请高手相助！！！！！！！

显示全部楼层 · 2010-7-18 20:26:45

有一篇文章，以字符’/’为结束标志。要求分别统计其中英文大写字母，小写字母，数字，空格以及其它字符的个数。
注意：我是菜鸟，请注明每一步的原因，当然，可以不太详细，但至少也要三四十个字！！！！！

千问 · 2010-7-18 20:26:45

好吧..首先你varc:char;i:integer;a:array[' '..'~'] of integer; {从空格到~建立个数组因为一般字符到这个
就可以了}f1:text;{文本文件不是吗？}s:string;beginassign(f1,'input.txt');{这里假定输入文件为input.txt}reset(f1);while not eof(f1) do beginreadln(f1,s);for i:=1 to length(s) doif s'/' then inc(a[s])