Tin học pascal đếm số từ

[ngô công chức]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

đếm các số từ trong xâu( giả sử giữa mỗi từ có thể có nhiều dấu cách và hai đầu xâu có nhiều dấu cách

 

[ka1412]

uses crt;
var s:string;
i,n:integer;
begin
        write('Nhap xau:');readln(s);
        if s[1]=#32 then n:=0 else n := 1;
        for i:=2 to length(s)-1 do
        if (s[i]=#32) and (s[i+1]<>#32) then inc(n);
        write('So tu trong xau:',n);
        readln
end.

 

[Quang Trungg]

đếm các số từ trong xâu( giả sử giữa mỗi từ có thể có nhiều dấu cách và hai đầu xâu có nhiều dấu cách

uses crt;
var s:string;
i,n:integer;
begin
        write('Nhap xau:');readln(s);
        if s[1]=#32 then n:=0 else n := 1;
        for i:=2 to length(s)-1 do
        if (s[i]=#32) and (s[i+1]<>#32) then inc(n);
        write('So tu trong xau:',n);
        readln
end.

Var
s: string;
i, dem: byte;
begin
write('Nhap xau: '); readln(s);
s:=s+' ';
dem:=0;
for i:=1 to length(s)-1 do
if (s[i]<>' ') and (s[i+1]=' ') then dem:=dem+1;
write('So tu trong xau la: ',dem); readln;
End.

cô mình dạy vậy

 

[ka1412]

Var
s: string;
i, dem: byte;
begin
write('Nhap xau: '); readln(s);
s:=s+' ';
dem:=0;
for i:=1 to length(s)-1 do
if (s[i]<>' ') and (s[i+1]=' ') then dem:=dem+1;
write('So tu trong xau la: ',dem); readln;
End.

cô mình dạy vậy

Mình chỉ đảo ngược lại cách tìm thôi (vì không muốn công thêm ' ' ở cuối xâu,lười lắm =))) ), cách của bạn cũng đúng thôi mà