Ðề: Pascal - bài tập 2

[minhphuc]

Ðề: Pascal - bài tập 2

2. Nhập vào một xâu kí tự, viết hoa các kí tự đầu của một từ và in mỗi từ trên một hàng trong tập tin DNN_Pascal_baitap2.txt.

ví dụ: nhập vào xâu "tôi tên là đào lê thị mận".
Kết quả hiển thị trong tập tin DNN_Pascal_baitap2.txt:
Tôi
Tên
Là
Đào
Lê
Thị
Mận

 

[rcp]

Ðề: Pascal - bài tập 2

2. Nhập vào một xâu kí tự, viết hoa các kí tự đầu của một từ và in mỗi từ trên một hàng trong tập tin DNN_Pascal_baitap2.txt.

ví dụ: nhập vào xâu "tôi tên là đào lê thị mận".
Kết quả hiển thị trong tập tin DNN_Pascal_baitap2.txt:
...

hihi đề tài này hok khó chút nào.. khi làm, các bạn nên chia làm 3 phần như sau:

phần 1) Nhập/nhận vào một xâu kí tự

phần 2) Viết hoa các kí tự đầu của một từ của một xâu kí tự

phần 3) in mỗi từ trên một hàng trong tập tin DNN_Pascal_baitap2.txt.

* Lưu ý, mỗi phần là một procedure


Mời thành viên tiếp theo...

--- rcp ---

 

[rcp]

Ðề: Pascal - bài tập 2

hihi đề tài này hok khó chút nào.. khi làm, các bạn nên chia làm 3 phần như sau:

Mời thành viên tiếp theo...

Nhắc tuồng thêm hè...


-----------------o0o -----------------
phần 1) Procedure Nhập/nhận vào một xâu kí tự
-----------------o0o -----------------


-----------------o0o -----------------
Lưu ý: Sát nhập phần 2 và phần 3
-----------------o0o -----------------

phần 2a) Procedure Tìm chữÐầu và chữCuối


phần 2b) Function TìmTừDầu trong kí tự


phần 2c) Procedure ViếtHoaVàIn ra các kí tự của một xâu kí tự
* dùng boucle «for» hay «repeat..until» .


Algorithm phần 2c:
- in ra và xuống hàng: "DNN_Pascal_baitap2.txt" ("in ra và xuống hàng:" thì dùng: writeln)

- Từ chữÐầu .. cho tới chữCuối hãy làm

...Niú gặp một space thì hãy

...in ra và xuống hàng: viếtHoa(TìmTừDầu)+các từ còn lại trong một chữ


--- rcp ---

 

[minhphuc]

Ðề: Pascal - bài tập 2

Chưa thấy dân chuyên tin lên tiếng cho những bài tập nhỏ này nhỉ!

Bài này đối với các bạn chắc là dễ quá nên các bạn không chịu ra tay.

Đúng là bài này dễ, nhưng nếu không cẩn thận, phương pháp giải sẽ dài và có thể mắc sai lầm. Sở dĩ Phúc nói vậy vì Phúc đang giữ một bài giải của thầy cô bộ môn tin của trường PTTH tại Tp. HCM, bài giải rất hay và ngắn nhưng lại xuất hiện một lỗi mà một lập trình viên nên tránh.

Ở diễn đàn DNG, may mắn có anh Rcp có kinh nghiệm về lãnh vực này. Các bạn nên tranh thủ để rút kinh nghiệm từ bụng của anh Rcp qua những bài tập nhỏ này (Hãy tận dụng triệt để những bửu bối sẵn có trong túi ... tiêu Rcp rồi! hì hì). Bằng cách nào để có kinh nghiệm? đó là bạn trình bày và anh Rcp sẽ chỉ ra những chỗ chưa hợp lý nên tránh, ... Những kinh nghiệm này không những dành riêng cho Pascal mà cho tất cả các ngôn ngữ nếu các bạn biết vận dụng.

Mến!

 

[leocay]

Ðề: Pascal - bài tập 2

hihihi, thấy vắng lặng như tờ. Tui dzô mần thử tập tành phần dễ nhất hử ).

phần 1 :

procedure nhapxau (st:string);

begin

write ('Nhạp xau:');
readln (st);

end;


phần sau từ từ ngâm, ngâm ko được thì mod cứu hehehe :-@

 

[minhphuc]

Ðề: Pascal - bài tập 2

Quả thật là chị trèo cây, luôn luôn hăng hái leo trèo và đưa ra ý kiến đáng giá. Em vote phiếu bầu chọn chị là người "leo trèo" giỏi của DNN.

A! Mà khỏi vote mọi người cũng hiểu chị nhỉ! Cái avatar của chị chứng tỏ điều đó rồi.

 

[nhocty]

Ðề: Pascal - bài tập 2

Đổi chữ thường ra chữ hoa em quên rồi :-s
Chỉ biết mần bài này theo kiểu: nhập vào xâu "tôi tên là đào lê thị mận".
Kết quả hiển thị:

tôi
tên
là
đào
lê
thị
mận

 

[nhocty]

Ðề: Pascal - bài tập 2

Program DNN_Pascal_baitap2;
Var a:String;
Begin
Write('Nhap cau : ');
Readln(a);
Repeat
While (a[1] =' ') And (Length(a) <> 0) Do
Delete(a,1,1);
While (a[1] <> ' ') And (Length(a) <>0) Do
begin
write(a[1]);
delete(a,1,1);
end;
writeln;
Until Length(a)=0;
Readln;
End.

 

[rcp]

Ðề: Code reuse

hihihi, thấy vắng lặng như tờ. Tui dzô mần thử tập tành phần dễ nhất hử ).

phần 1 :
...

Program DNN_Pascal_baitap2;
Var a:String;
Begin
...

Cũm ơn 2 bạn leocay & nhocty đã phụ giúp giải đáp.

Tuy nhiên mình-rcp nhận thấy mình nên cắt phần giải đáp ra thành nhiù phần (xữ dụng Function / Procedure) để ngõ hầu sau này gặp phần tương tự thì sẽ lấy ra (copy/paste) mà xữ dụng.

Cái này người ta gọi là Code reuse.

--- rcp ---

 

[rcp]

Ðề: Pascal - bài tập 2

-----------------o0o -----------------
phần 1) Nhập/nhận vào một xâu kí tự - dùng Procedure
-----------------o0o -----------------
var
xauKiTu: String;
procedure nhapxau ();
begin
write ('Nhạp xau:'); readln (xauKiTu);
end;


-----------------o0o -----------------
phần 1) Nhập/nhận vào một xâu kí tự - dùng Function
-----------------o0o -----------------
function nhapxau ( ) : String;
begin
write ('Nhạp xau:'); readln (nhapxau );
end;


P.S.: Mình-rcp thì thix dùng "function" hơn trong trường hợp này. Đố các bạn tại sao?

--- rcp ---

 

[rcp]

Ðề: Pascal - bài tập 2

Chưa thấy dân chuyên tin lên tiếng cho những bài tập nhỏ này nhỉ!
...
Ở diễn đàn DNG, may mắn có anh Rcp có kinh nghiệm về lãnh vực này. Các bạn nên tranh thủ để rút kinh nghiệm từ bụng của anh Rcp qua những bài tập nhỏ này (Hãy tận dụng triệt để những bửu bối sẵn có trong túi ... tiêu Rcp rồi! hì hì). Bằng cách nào để có kinh nghiệm? đó là bạn trình bày và anh Rcp sẽ chỉ ra những chỗ chưa hợp lý nên tránh, ... Những kinh nghiệm này không những dành riêng cho Pascal mà cho tất cả các ngôn ngữ nếu các bạn biết vận dụng...

minhphuc wản cáo ghê wá.. rcp đang kiếm một lổ để chui hè...:">

Hiện nay ngành lập trình đang phát triễn khắp mọi nơi, và minh-rcp chỉ mún trao đổi kiến thức cùng với các bạn thui.

--- rcp ---

 

[leocay]

Ðề: Pascal - bài tập 2

Em vote phiếu bầu chọn chị là người "leo trèo" giỏi của DNN.

úi, hihihi ko dám mô. minhphuc trèo giỏi cũng ko kém. Bằng chứng là đang ở top 6 người viết bài nhiều nhất. Trong khi chị thì đang có nguy cơ tụt hạng >

Chỉ là dzô để góp 1 chút cho có không khí heheh, các đồng chí chắc sợ làm sai nên ko dám dzô bon chen, hoặc là bài tập pascal quá lâu chừ trở lại thì quên sạch chả nhớ gì, điển hình là tui đây, học qua rồi mà như mới tinh :-??Thôi thì ta cứ bon ... chen được tới đâu thì chen

-----------------o0o -----------------
phần 1) Nhập/nhận vào một xâu kí tự - dùng Procedure
-----------------o0o -----------------
var
xauKiTu: String;
procedure nhapxau ();
begin
write ('Nhạp xau:'); readln (xauKiTu);
end;


-----------------o0o -----------------
phần 1) Nhập/nhận vào một xâu kí tự - dùng Function
-----------------o0o -----------------
function nhapxau ( ) : String;
begin
write ('Nhạp xau:'); readln (nhapxau );
end;


P.S.: Mình-rcp thì thix dùng "function" hơn trong trường hợp này. Đố các bạn tại sao?

Vậy bài sửa của rcp phần procedure là cho variable dạng chuỗi xaukitu ra ngoài để nó ko bị mất đi khi ra khỏi procedure ???.

Nếu dùng function thì function hạn chế được sự khai báo variable ở bên ngoài, trả về 1 kết quả, và dễ dàng đi trong main cho tới cuối program ????? Như vậy nếu sau này có viết những chương trình lớn hơn thì ng ta cũng có thể dễ dàng kiểm soát và quản lý chúng ??? hẻn?? :-?

 

[rcp]

Ðề: lập trình - dành riêng cho các lập trình viên

Thôi thì ta cứ bon ... chen được tới đâu thì chen

Vậy bài sửa của rcp phần procedure là cho variable dạng chuỗi xaukitu ra ngoài để nó ko bị mất đi khi ra khỏi procedure ???.

Nếu dùng function thì function hạn chế được sự khai báo variable ở bên ngoài, trả về 1 kết quả, và dễ dàng đi trong main cho tới cuối program ????? Như vậy nếu sau này có viết những chương trình lớn hơn thì ng ta cũng có thể dễ dàng kiểm soát và quản lý chúng ??? hẻn?? :-?

bạn leocay nói chí lý. Một lập trình viên có kinh nghiệm thì khi khai báo variable ở bên ngoài (global varỉable), hay ở bên trong (local varỉable) đều phải bit theo dõi, kiểm soát và quản lývariable đó cho đến khi triệt tiêu nó khi hết dùng .

Ngôn ngữ Pascal-Java thì khi ra khỏi procedure/function, local varỉable sẽ tự động bị tiêu huỹ. Với ngôn ngữ C/C++ thì lập trình viên phải huỹ nó đi, niú ko, niú nhẹ tội sẽ bị trường hợp memory leaks (bị rò rỉ memory), niú nặng hơn sẽ bị stack overflow (chương trinh/software chit ngắt, tắt cái phụp!!!!)

Các bạn cũng bit là khi program bị bug (có vấn đề), cty sẽ cử ra một toán lập trình viên nhiù kinh nghiệm để điều tra, truy tìm để giải quyết.

Một program bé tẻo tèo teo nì.. thì đơn giản để mà tìm thấy...

Nhưng niú tìm ở trong cả vài trăm package, mà mỗi package có cả vài chục objects/class mà program bé tẻo tèo teo nì nằm trong đó... ắt như bới tìm sâu trong cả cánh rừng dày đặc .!.

Tội nhất là khi mà toán đó tìm thấy, ắt sẽ có báo cáo lên xếp trên và nêu đích danh lập trình viên "gây án" .. trong buổi họp của cty, dĩ nhiên lập trình viên đó ko những đó bị mất tiền thưởng cả năm, mà mắc cỡ ắt tìm lổ chui hok kịp á ....

Lập trình viên đó đương nhiên sẽ bị ghi danh vào "sổ đen" hay có thể bị xuống cấp để chỉ đc làm lập trình viên phù trợ (programmer junior) hok thể lên cấp.!. hic.. ..

Một chút kinh nghiệm trao đổi mí các bạn.


--- rcp ---

 

[hoacomay1988]

Ðề: Pascal - bài tập 2

hay quá , cám ơn bạn nhiều nha , hihi , :X :X :X :X