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樓：
簡單的使用樸素單詞表即可.
請先嚐試自己編寫程式.
輸入一行字元，統計其中有多少個單詞，單詞之間用空格分隔開
1 開啟visualc 6.0 檔案 新建 檔案 c sourcefile。2 定義陣列和變數 include intmain 5 如果第一個字元為空格 elseif cstring 0 判斷第一個字元為空格的情況 6 分離字元 else printf d n iword 8 完整的源 includ...
Pascal問題 矩陣乘法，Pascal 矩陣乘法的完整過程？
vara,b,c,i,j,k longint x,y,f array 0.2000,0.2000 of longint begin read a read b read c for i 1 to a do for j 1 to b do read x i,j for i 1 to b do for ...
pascal問題望解答，3個pascal問題,望解答！
第一題就是while3重，判斷。然後判斷它是不是素數 pascal程式設計問題，求大師解答！這個問題一點也不簡單！這涉及演算法 簡單的思路，就是對這n個數，做列舉，從1個，2個，3個，每個裡面又有不同的組合，這就是所謂的 冪集 如果n很大的時候，這個方法效率太低不可行 前面那位同學提及的揹包演算法就...