AnhCoYeuEm
Member
Tổng số bài gửi : 25
Points : 25643
Rep power : 0
Join date : 25/04/2010
Age : 30
Đến từ : Ninh Bình.
 |  Tiêu đề: pascal về xâu.  Sat May 01, 2010 8:43 am | |
| Hãy lập trình từ bàn phím tạo 1 xâu gồm 20 kí tự, đếm tất cả các kí tự thuộc bảng chữ cái tiếng anh có trong xâu?
giải giúp em nha. thanks. | |
|
sun
Moderator
Tổng số bài gửi : 72
Points : 26072
Rep power : 26
Join date : 17/02/2010
Age : 30
Đến từ : Thái Nguyên City
| | Tiêu đề: Re: pascal về xâu. Sun May 02, 2010 11:14 am | |
| Có vẻ bạn có nguồn cho môn Tin rồi đây hihi.Nhưng mà này bài có bắt đưa vị trí của kí tự chữ cái đó không?Nếu có thì dùng ct bên dưới nhá! - Code:
-
program sun; {Nhớ đổi tên là tên của bạn nha cho cô khỏi nghi ngờ hihi }
uses crt;
var s:string[20];
i,dem:integer;
BEGIN
clrscr;
writeln('Nhap xau: ');readln(s);
for i:=1 to length(s) do
if upcase(s[i]) in ['A'..'Z'] then inc(dem);
write('So ki tu trong bang chu cai tieng Anh la: ',dem);
readln;
END. - Code:
-
program sun; {Nhớ đổi tên là tên của bạn nha cho cô khỏi nghi ngờ hihi }
uses crt;
var s:string[20];
i,dem:integer;
BEGIN
clrscr;
writeln('Nhap xau: ');readln(s);
for i:=1 to length(s) do
if upcase(s[i]) in ['A'..'Z'] then inc(dem);
writeln('So ki tu trong bang chu cai tieng Anh la: ',dem);
write('Cac vi tri la: ');
for i:=1 to length(s) do
if upcase(s[i]) in ['A'..'Z'] then write(i,' ');
readln;
END. Nhớ thank tui nha  | |
|
Khách vi
Khách viếng thăm
| | Tiêu đề: Re: pascal về xâu. Mon May 03, 2010 2:54 am | |
| - sun đã viết:
- Có vẻ bạn có nguồn cho môn Tin rồi đây hihi.Nhưng mà này bài có bắt đưa vị trí của kí tự chữ cái đó không?Nếu có thì dùng ct bên dưới nhá!
đề cho thế này - Trích dẫn :
- Hãy lập trình từ bàn phím tạo 1 xâu gồm 20 kí tự, đếm tất cả các kí tự thuộc bảng chữ cái tiếng anh có trong xâu?
thế mà còn hỏi lại. Nó có nói là in ra vị trí đâu? thế là chỉ cần lấy số lượng là được rồi. |
|
AnhCoYeuEm
Member
Tổng số bài gửi : 25
Points : 25643
Rep power : 0
Join date : 25/04/2010
Age : 30
Đến từ : Ninh Bình.
| | Tiêu đề: Re: pascal về xâu. Fri May 07, 2010 6:00 am | |
| - sun đã viết:
- Code:
-
program sun; {Nhớ đổi tên là tên của bạn nha cho cô khỏi nghi ngờ hihi }
uses crt;
var s:string[20];
i,dem:integer;
BEGIN
clrscr;
writeln('Nhap xau: ');readln(s);
for i:=1 to length(s) do
if upcase(s[i]) in ['A'..'Z'] then inc(dem);
write('So ki tu trong bang chu cai tieng Anh la: ',dem);
readln;
END. cái này đúng rồi. - sun đã viết:
- Nhớ thank tui nha
Thanks bạn nhé Sun   | |
|
sun
Moderator
Tổng số bài gửi : 72
Points : 26072
Rep power : 26
Join date : 17/02/2010
Age : 30
Đến từ : Thái Nguyên City
| | Tiêu đề: Re: pascal về xâu. Sat May 08, 2010 7:55 pm | |
| - Trích dẫn :
- đề cho thế này
- Trích dẫn :
- Hãy lập trình từ bàn phím tạo 1 xâu gồm 20 kí tự, đếm tất cả các kí tự thuộc bảng chữ cái tiếng anh có trong xâu?
thế mà còn hỏi lại. Nó có nói là in ra vị trí đâu? thế là chỉ cần lấy số lượng là được rồi. hơ hơ tại thấy cái này dễ quá sợ bạn ý viết nhầm thui mà hehe | |
|
Khách vi
Khách viếng thăm
| | Tiêu đề: Re: pascal về xâu. Sat May 08, 2010 10:12 pm | |
| - sun đã viết:
-
- Trích dẫn :
- đề cho thế này
- Trích dẫn :
- Hãy lập trình từ bàn phím tạo 1 xâu gồm 20 kí tự, đếm tất cả các kí tự thuộc bảng chữ cái tiếng anh có trong xâu?
thế mà còn hỏi lại. Nó có nói là in ra vị trí đâu? thế là chỉ cần lấy số lượng là được rồi. hơ hơ tại thấy cái này dễ quá sợ bạn ý viết nhầm thui mà hehe uh đúng là dễ thật. Oài mà sao đề linh tinh thế nhỉ? lúc phần này lúc phần kia chẳng theo cấu trúc tí nào. Oài mệt. |
|
Sponsored content
| | Tiêu đề: Re: pascal về xâu. | |
| |
|
