English | Vietnamese
 

banner

[Rule] Rules  [Home] Main Forum  [Portal] Portal  
[Members] Member Listing  [Statistics] Statistics  [Search] Search  [Reading Room] Reading Room 
[Register] Register   [Login] Login [  http  | https  ]
 
Forum Index Thảo luận hệ điều hành Windows Ai đó giúp mình cái bài tập Pascal này với.  XML
  [Programming]   Ai đó giúp mình cái bài tập Pascal này với. 26/02/2009 05:47:40 (+0700) | #1 | 170995
[Avatar]
 freeze_love
Member
[Minus]    0    [Plus]
Joined: 23/01/2009 23:07:19
Messages: 415
Location: HCMc
Offline
[Profile] [PM] [Email]
Mình hiện học 11, có mấy bài tập Pascal Kiểu xâu khó quá. Nghĩ hoài ko ra nên lân đây hỏi anh em nè. Mong nhận được sự giúp đỡ, thứ 7 này cô kiểm rồi.
- Bài 1. Viết chương trình nhập từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái Tiếng Anh trong S (ko phân biệt chữ hoa hay thường).
- Bài 2. Nhập vào từ một bàn phím một xâu. Thay thế tất cả các cụm kí tự "anh" bằng cụm kí tự "em".
- Bài 3. Viết, nhập một chuỗi và tách + in ra màn hình từ cuối cùng trong chuỗi đó.
Nếu anh em biết mà không có chương trình thì download tại http://www.megaupload.com/?d=QWS8FO8T. Cảm ơn rất nhiều! smilie
do{
học đến điên;
}while (sống);
[Up] [Print Copy]
  [Question]   Re: Ai đó giúp mình cái bài tập Pascal này với. 26/02/2009 06:17:12 (+0700) | #2 | 171003
twilight
Member
[Minus]    0    [Plus]
Joined: 02/01/2009 16:42:02
Messages: 7
Offline
[Profile] [PM]
Cái box này đẻ ra ko phải để làm bài tập dùm nha cưng, nhất là những bài tập basic như vầy
[Up] [Print Copy]
  [Question]   Re: Ai đó giúp mình cái bài tập Pascal này với. 26/02/2009 06:44:27 (+0700) | #3 | 171011
[Avatar]
 freeze_love
Member
[Minus]    0    [Plus]
Joined: 23/01/2009 23:07:19
Messages: 415
Location: HCMc
Offline
[Profile] [PM] [Email]
Bài này mình suy nghĩ nhưng không ra. Có lẽ dùng kiểu mảng nhưng không biết phải bắt đầu từ đâu. Nên mới mò lên HVA hỏi anh em mà, mà box này là về lập trình mà mà nó cũng là lập trình chứ bộ? Bạn có thể giúp mình đc ko?
do{
học đến điên;
}while (sống);
[Up] [Print Copy]
  [Question]   Re: Ai đó giúp mình cái bài tập Pascal này với. 26/02/2009 07:10:23 (+0700) | #4 | 171026
doveandrose
Member
[Minus]    0    [Plus]
Joined: 30/12/2008 15:07:55
Messages: 2
Offline
[Profile] [PM]
freeze_love nói đúng đấy giúp được giúp không muốn giúp đùng nói gì cả. Bây giờ mình bận lắm đi đây 1 tý tối mình sẽ giúp bạn hoặc bạn add nick yahoo minh nhé: riofedinanchampion
[Up] [Print Copy]
  [Question]   Re: Ai đó giúp mình cái bài tập Pascal này với. 26/02/2009 08:06:43 (+0700) | #5 | 171036
[Avatar]
 U^U
Member
[Minus]    0    [Plus]
Joined: 07/07/2008 16:59:00
Messages: 39
Location: Ghost
Offline
[Profile] [PM]
Mấy cái bài dễ thế bạn nên tự nghĩ thì hay hơn. Giúp cái đầu nó phát triển hơn đừng nên ỷ vào người khác smilie
Mà cái box này là lập trình hệ thống, mấy cái câu hỏi đó không nên hỏi làm làm loãng box. smilie
[Up] [Print Copy]
  [Question]   Re: Ai đó giúp mình cái bài tập Pascal này với. 26/02/2009 22:24:28 (+0700) | #6 | 171094
phong1892
Member
[Minus]    0    [Plus]
Joined: 15/06/2008 16:01:18
Messages: 8
Offline
[Profile] [PM]
Công nhận là mấy bài này cũng dễ thật nhưng mọi người cũng nên đáp lại lời đề nghị đó chứ nhỉ. Tôi lúc mới học lập trình cũng đã từng như anh ban đây vì thế tôi rất muốn giúp nhưng tôi đang duyệt web bằng điện thoại nên chưa thể giúp được ngay thông cảm nha
[Up] [Print Copy]
  [Question]   Re: Ai đó giúp mình cái bài tập Pascal này với. 26/02/2009 23:20:07 (+0700) | #7 | 171106
phong1892
Member
[Minus]    0    [Plus]
Joined: 15/06/2008 16:01:18
Messages: 8
Offline
[Profile] [PM]
Bài 2 trước nè:
PROGRAM BAI2;
USES CRT;
VAR A,B,C,D:STRING;
X,I:BYTE;
BEGIN
CLRSCR;
WRITE('NHAP MOT XAU: ');
READLN(A);
X:=LENGTH(A);
B:='';
C:='ANH';
D:='EM';
FOR I:=1 TO X DO
BEGIN
B:=UPCASE(A[I])+UPCASE(A[I+1])+UPCASE(A[I+2]);
IF B=C THEN
BEGIN
DELETE(A,I,3);
INSERT(D,A,I);
END;
END;
WRITELN('XAU DUOC DOI LAI: ');
WRITE(A);
READLN;
END.
[Up] [Print Copy]
  [Question]   Re: Ai đó giúp mình cái bài tập Pascal này với. 26/02/2009 23:26:32 (+0700) | #8 | 171108
phong1892
Member
[Minus]    0    [Plus]
Joined: 15/06/2008 16:01:18
Messages: 8
Offline
[Profile] [PM]
Ban thông cảm tôi viết trên điện thoại nên không căn chỉnh được. Bây giờ tôi có việc. Chốc nữa tôi viết tiếp hai bài kia.
[Up] [Print Copy]
  [Question]   Re: Ai đó giúp mình cái bài tập Pascal này với. 27/02/2009 06:05:35 (+0700) | #9 | 171179
phong1892
Member
[Minus]    0    [Plus]
Joined: 15/06/2008 16:01:18
Messages: 8
Offline
[Profile] [PM]
Còn đây là bài 3:
PROGRAM BAI3;
USES CRT;
VAR A,B:STRING;
X,Y,I,VT:BYTE;
BEGIN
CLRSCR;
WRITE('NHAP MOT XAU: ');
READLN(A);
B:='';
X:=LENGTH(A);
FOR I:=X DOWNTO 1 DO B:=B+A[I];
VT:=POS(' ',B);
Y:=X-VT+1;
DELETE(A,1,Y);
WRITE('CHU CUOI CUNG CUA XAU LA: ',A);
READLN;
END.
[Up] [Print Copy]
  [Question]   Re: Ai đó giúp mình cái bài tập Pascal này với. 28/02/2009 13:24:36 (+0700) | #10 | 171379
congminh923
Member
[Minus]    0    [Plus]
Joined: 26/02/2008 22:35:52
Messages: 278
Location:
Offline
[Profile] [PM] [Yahoo!]
Bài 1 cực kì đơn giản, sử dụng thuật toán lùa bò vào chuồng là xong.
Gợi ý : sử dụng tập hợp với toán tử in, khi khai báo chỉ số của mảng, không dùng số mà dùng chữ.
Ngày mai mình sẽ post source lên. Bây giờ buồn ngủ quá rồi.
[Up] [Print Copy]
  [Question]   Re: Ai đó giúp mình cái bài tập Pascal này với. 03/03/2009 08:52:51 (+0700) | #11 | 171691
[Avatar]
 freeze_love
Member
[Minus]    0    [Plus]
Joined: 23/01/2009 23:07:19
Messages: 415
Location: HCMc
Offline
[Profile] [PM] [Email]
Sao đơn giản quá. Cảm ơn bạn nhiều . Bài 2 chạy tốt lắm. Bài 3 cũng thế. Cảm ơn bạn nhiều nhiều nhiều. À, bạn có thể giúp mình ở chủ đề này được không? /hvaonline/posts/list/27819.html
do{
học đến điên;
}while (sống);
[Up] [Print Copy]
[digg] [delicious] [google] [yahoo] [technorati] [reddit] [stumbleupon]
Go to: 
 Users currently in here 
1 Anonymous

Powered by JForum - Extended by HVAOnline
 hvaonline.net  |  hvaforum.net  |  hvazone.net  |  hvanews.net  |  vnhacker.org
1999 - 2013 © v2012|0504|218|