pascal 求输入英文句子单词的平均长度. 用pascal语音

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

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

前面写错了，不好意思

#includevoidmain(){charx[100];inti;printf("请输入英语句子\n");gets(x);x[0]=x[0]-32;for(i=1;x[i]!='\0';i++){

又是我.vars:string;i:longint;beginreadln(s);ifs[1]''thens[1]:=chr(ord(s[1])-32);fori:=2tolength(s)doifs

回答时间仓促,如有疏漏,在所难免!progarmex_001;vara:array[1..10000]ofstring;i,j,k,m,n:integer;s:string;beginm:=1;n:=

C++?再问：比如说若输入：Iamastudenttotaketheexamination.,则应输出：IAmAStudentToTakeTheExamination.。再答：方法1限制单词长度:#i

方法1限制单词长度:#include#include#includeintmain(){charc,*pstr;charszWord[16];while(1){pstr=szWord;while((c

varc:char;s:integer;t:boolean;beginrepeatread(c);t:=false;while(cin['a'..'z'])or(cin['A'..'Z'])dobeg

#include <iostream.h>#include "string.h"void main(){ char s

#include"stdio.h"main(){char*s;intcnt=0;printf("pleaseenterthesentence\n");gets(s);while(*s){if(*s==

sportsambulatory（适宜于）步行的gait步法,步态glide滑行,滑动kinetic运动的notility运动性prance昂首阔步scuff拖着脚走soar翱翔canter慢跑ath

varm,n,a,b,r:integer;beginreadln(a,b);m:=a;n:=b;r:=mmodn;whiler0dobeginm:=n;n:=r;r:=mmodn;end;writel

其实就是先检测空格,直到没有空格的第一个字符,判断是否为小写字母,若是则转换成大写；若不是,因为输入的是英文,不必担心数字问题,那就只能是大写字母,不用转换.

vars:string;l,i:longint;beginreadln(s);{输入s字符串}l:=0;{l是A的个数,先清零}fori:=1tolength(s)do{length（s）是求s的长度

vars,z:string;i,j:longint;a:array[1..1000]ofinteger;beginreadln(s);readln(z);fillchar(a,sizeof(a),0)

varn,i,j,k:integer;beginreadln(n);fori:=1tondobeginforj:=1to3dobeginwrite('':n-i+1);fork:=1toi+i-1do

主要有三个问题,一个是你的YUSHU函数应该用值参而不是用形参,就是说要把VAR去掉；还有就是你的循环体里A:=B是不对的,想一下,如果这样赋值,一进循环体,A,B就相等了,显然不对,应该定义一个中间

控件：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:=