1樓：匿名使用者
varc:char;
s:integer;
t:boolean;
begin
repeat
read(c);
t:=false;
while (c in['a'..'z'])or(c in['a'..'z']) do
begin
t:=true;
read(c);
end;
if t then inc(s);
until c=chr(13);
writeln(s);
end.sb
2樓：匿名使用者
每個單詞的後面總會有一個空格、逗號、冒號或句號的……所以，統計這些空格、逗號、冒號、句號的數量就行了……程式：var st:ansistring;
i,n:longint;
begin
readln(st);
for i:=1 to length(st) docase st[i] of
' ':inc(n);
':':inc(n);
'.':inc(n);
',':inc(n);
end;
writeln(n);
end.
轉個思維想一下，總沒錯的。
3樓：文凱臣
程式其實很簡單，原理就是用一個字元變數記錄上一個符號，只有當上一個字元為空格，當前字元不為空格的時侯，單詞數加1。
program ygb;
var c,c2:char; n:integer;
begin
n:=0;
c2:=' ';
while not eoln do
begin
read(c);
if (c2=' ') and (c<>' ') then n:=n+1;
c2:=c;
end;
writeln(n);
end.
4樓：
簡單的使用樸素單詞表即可.
請先嚐試自己編寫程式.
c語言統計單詞個數，C語言統計單詞個數問題！
說祺阿雅唱 include stdio.h main printf d n num 史朝東樂安 include include intmain printf 單詞個數為 d n number return0 include include int main while a i a a i a a i...
編寫函式統計輸入文字中單詞個數，單詞之間用空格符 換行符 跳格符隔開，用作為輸入結束。求指導謝謝
自我程式設計 1 n n必須有初值0 2 countword必須有返回值，你沒寫return語句 3 如果你必須要輸入 確認而不是回車確認，那麼請使用函式getch而不是getchar。getch在按鍵的時候就接收字元了，不顯示在控制檯，所以需要單獨寫語句列印輸入的字元 getch中回車符號是 r ...
C語言，計算單詞數目，C語言統計單詞個數
我用檔案寫了一個，你的想法太複雜了 include include int main ch fgetc fp while ch eof last ch 最後一個字元 ch fgetc fp if isalpha last 0 n 如果最後一個字元是字母 printf s d n n fclose f...