pascal问题,求用string做:求输入一句英文句子,求所有单词的平均长度.要用最最最简洁、简单的做出来,谢谢!
来源:学生作业帮助网 编辑:六六作业网 时间:2024/10/06 15:36:30
pascal问题,求用string做:求输入一句英文句子,求所有单词的平均长度.要用最最最简洁、简单的做出来,谢谢!pascal问题,求用string做:求输入一句英文句子,求所有单词的平均长度.要用
pascal问题,求用string做:求输入一句英文句子,求所有单词的平均长度.要用最最最简洁、简单的做出来,谢谢!
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语言做,今晚必回!)