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 的string類物件解決。可以先給物件賦一個空格字串，把從鍵盤接收的字元追加其後，以方便統一查詢。舉例如下 include stdafx.h if the vc 6.0,with this line.include include using namespace std int main i...
Pascal高精度，pascal的高精度演算法
開個陣列 每個元素存10進位制的若干位，連起來表示整個數字 要寫得好的話得用高效的演算法，同時控制好記憶體的分配 自己拿幾個三位數 四位數 五位數 模擬一下就ok了 想法就是把這些n位數拆成n位慢慢看 高精度數的定義 type hp array 0.maxlen of integer 1 高精度加法...
pascal程式設計
你提的問題很多，題目能否講究一下，比如將 狐狸和兔子 放在標題中，以便別人查詢 這不就是狼追兔子的翻版嗎？將1234567890這閉合的十個洞想象成 由這十個數字串一個接一個接起來的無限長的直線vari,j longint k array 0.9 of longint sum longint beg...