PDA

View Full Version : [Pascal 11] SBT tin 11, bài khó nhai đây dzô nào các pro.



pascal1
23-01-2011, 16:57
Bài 4.41:
Xâu ko chứa các kí tự phân cách (space), dấu chấm, dấu phẩy đc gọi là 1 từ. Câu là 1 xâu bao gồm 1 hoặc nhiều từ, nếu câu có nhiều từ thì các từ đc phân cách nhau bởi 1 hoặc 1 số kí tự phân cách.
VD: 'aloso' - câu có 1 từ
'Xabi alonso'- câu có 2 từ
'cris paris, romano.'- câu có 3 từ.
Viết chương trình tính số lượng từ trong câu.

Bài xương xẩu đây:
Hãy nhập 1 xâu toàn chữ cái hoa, đưa xâu đó ra màn hình. Nếu nhập 1 kí tự ko phải kí tự hoa thì ko cho phép nhập, khi nào nhập đúng thì mới thôi.

Ai cao tay cứ giúp mình 1 bài mình cũng thanks nha! ^^

chuinhacau
23-01-2011, 17:02
bài 1 dùng chuỗi cứ
phần chính nè
st=' '+st ( thêm dấu cách vào đằng trước);
d:=1;
for i:=1 to length(st) do
if (st[i]=' ') and (st[i+1])<>' ') then
inc(d);
write(d);

[=========> Bổ sung bài viết <=========]

bài 2 cũng đơn giản @@

pascal1
24-01-2011, 16:42
Bài 1 d phải gán = 0 chứ. d:=0; đúng rồi thanks nhìu nhìu nha!
mình chưa hiểu sao phải gán xâu thêm 1 dấu cách đằng trc để làm j??

Bài 2 nhai nốt đi mấy ông cao tay ơi, khó nhai quá àk nha!

LkLight
10-02-2011, 15:07
Bài 2 là thế này (Code chưa hoàn chỉnh, thêm râu ria vô dùm nha. Chỉ có phần trọng tâm là phần nhập vào thôi.)


Uses crt;
Var st : string;
i : integer;
KT : boolean;
Begin
Repeat
Clrscr;
Writeln('nhap vao xau');
Readln(st);
KT := False;
For i :=1 to length(st) do
If (st[i] > 'A') and (St[i] < 'Z') then KT := true
Else KT := false;
Until KT = True;

{.......}
End.

QuynhMyDuyen
21-03-2011, 11:58
Bài dễ mà bạn ^^ Suy nghĩ kĩ đã rồi hãy hỏi chứ :)