pascal 单词平均长度

①平均长度,用了浮点,如果有需要,可以改成整数②统计是以a~z,A~Z,以及'-为单词进行的,如果有需要,也可以改成只按字母统计.program words_average_leng

1.不多说了,直接枚举1000..3000套个FOR里面判断是否满足,满足就输出2.觉得可以用搜索阿,搜索应该很简单,1..9肯定不会TLE的3.快排(附过程,这个要背下来的）procduresort

首先,你的例子string中最长的是dfg,长度是3,不是4,平均也是2.2然后是代码finalStringregex="[^a-zA-Z]+";Strings="ab+12cd*123dfg%&()

vara:array[1..1000]ofstring;i,j,n,b:integer;k:string;beginn:=1;readln(a[n]);whilea[n]'end'dobeginn:=

如果要判断句子中的英文单词是否正确,那就很麻烦的.如果不要判断单词的正确性,仅仅假设句子中.单词以空格分隔,那么就比较容易实现了.思路:1．计算句子的长度,字符数L2．ZFS----存放英文单词所用到

前面写错了，不好意思

尝试写了一下.python2.7.6也测试通过#!/usr/bin/env python# -*- coding: utf-8 -*-import&n

pascalpascalpascal!

programSta;varch:char;T,i:longint;beginread(ch);repeatcasechof'':;'.':break;elsebeginT:=T+1;while(ch

调用built-in的subroutinelength$a=length"aaaa";print$a;

控件：1个文本框,1个按钮代码：PrivateSubCommand1_Click()a=Len(Text1.Text)b=0Fori=1ToaIf""=Mid(Text1.Text,i,1)Thenb

programstat;varinf,outf:text;ss:string[10];next:array[1..10]ofinteger;s:ansistring;i,j,k,l,m,n,num,l

从前往后找第一个非0元素,从后往前找一个非0元素,其间距离就是有效位长度.（Pascal中数组最多只能开1000000（也许比这个数小）,不会超时）programt;vari,j,k:longint;

var s:string;    i,j,t:integer;begin  readln(s);  for&n

vars:string;i,j,m1,m2:integer;beginreadln(s);m2:=0;m1:=0;fori:=1tolength(s)dobeginifs[i]=''thenbegin

varb:array[1..3]ofboolean;ss:array[1..50]ofstring;s:string;i,j,k,p:integer;f:boolean;beginf:=true;fo

看了你的问题补充,我觉得你把问题搞得复杂了.如果输入随意一个字符串,比如"adfdf1123&^I)_((&Iaaffas>mnhfdpox75study,.,",你要想算出里面到底有多少个单词,是不

控件：1个文本框,1个按钮代码：PrivateSubCommand1_Click()a=Len(Text1.Text)b=0Fori=1ToaIf""=Mid(Text1.Text,i,1)Thenb

错了请告诉我vari,p0:longint;s0,s1,s2,ansS:string;beginreadln(s1);readln(s2);fori:=2tolength(s1)dobegins0:=

a[i]用来存字符串；b[i]存字符串的相应长度；c[i]存字符出现的次数（最多2次；作为procedurelink中的判断条件）；ss是存当前字符串的总长；max是求的字符串最长长度；link中,h