pascal问题,求用string做：求输入一句英文句子,求所有单词的平均长度.要用最最最简洁、简单的做出来,谢谢!

来源：学生作业帮助网编辑：作业帮时间：2024/05/12 07:23:09

pascal问题,求用string做：求输入一句英文句子,求所有单词的平均长度.要用最最最简洁、简单的做出来,谢谢!
pascal问题,求用string做：求输入一句英文句子,求所有单词的平均长度.
要用最最最简洁、简单的做出来,谢谢!

① 平均长度,用了浮点,如果有需要,可以改成整数

② 统计是以a~z,A~Z,以及' - 为单词进行的,如果有需要,也可以改成只按字母统计.

program words_average_length;
var
    instr : String;
    word_cnt, word_lengths, i : Integer;
    isWordCount : Boolean;
begin
    readln(instr);
    word_cnt := 0; word_lengths := 0; isWordCount := false;
    for i := 1 to length(instr) do
    begin
        if instr[i] in ['A'..'Z','a'..'z','''','-'] then
            begin
                inc(word_lengths);
                if not isWordCount then begin isWordCount := true; inc(word_cnt); end
            end
        else
            begin if isWordCount then isWordCount := false; end;
    end;

    writeln('word count = ', word_cnt);
    writeln('word length sum = ', word_lengths);
    writeln('word length average = ', word_lengths / word_cnt:10:2);
end.

③ 运行：

this's A Test!
word count = 3
word length sum = 11
word length average = 3.67

pascal问题,求用string做：求输入一句英文句子,求所有单词的平均长度.要用最最最简洁、简单的做出来,谢谢! pascal语言编程问题（free pascal求1—N中的素数的个数.(1 用递归的方法完成下列问题求n个整数的积Pascal 求PASCAL背包问题和无限背包思路和程序给出整数n,接下来有n行,每行一个整数,求最小值用pascal做 Miller-Rabbin素数测试法求一个用Miller-Rabbin算法判断是否为素数的程序,注意要用PascalPascal!Pascal!Pascal!Pascal!Pascal!Pascal!Pascal!Pascal!最好有说明求解析下面的程序#include stdafx.h#include iostream#include stringusing namespace std;string enter(string);string trim(string);string l_trim(string);string r_trim(string);int main(){ string strEnter; strEnter = enter(Please enter pascal 求最大公约数和最小公倍数 PASCAL中怎么求平均数用Pascal语言求m^n的精确值,0 用PASCAL怎么求x的N次方 pascal用辗转相除法求最大公因数 PASCAL求2的n次方用高精度算 Toast.makeText(this,string string string,Toast.LENGTH_LONG).show(); 新手自学求指导, pascal问题1.利用自定义函数求任意两个整数N～M（0 pascal问题,求程序：1、文本文件t.in中第一行的一个正整数N（N 求Free Pascal程序问题如下：第一行输入一个正整数n（1 求n 个数的最小公倍数!（要用pascal语言做,今晚必回!）