Tin học Lập trình pascal

[ĐứcNhật!]

[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.

Tìm từ dài nhất và ngắn nhất trong xâu.
----------------------------
Giúp em với aww :v
@trà nguyễn hữu nghĩa @Trương Văn Trường Vũ @bé nương nương @Trâm Nguyễn Thị Ngọc

 

[trà nguyễn hữu nghĩa]

Tìm từ dài nhất và ngắn nhất trong xâu.
----------------------------
Giúp em với aww :v
@trà nguyễn hữu nghĩa @Trương Văn Trường Vũ @bé nương nương @Trâm Nguyễn Thị Ngọc

thuật toán: cắt tất cả các từ trong xâu ra, xét chiều dài của tụi nó, cái nào dài nhất thì in ra và ngắn nhất thì in ra.
Cách cắt: một từ là ở vị trí giữa hai dấu cách, cứ lấy hết các chữ cái rồi đến dấu cách thì dừng lại cắt chuỗi khác

 

[Trâm Nguyễn Thị Ngọc]

Tìm từ dài nhất và ngắn nhất trong xâu.
----------------------------
Giúp em với aww :v
@trà nguyễn hữu nghĩa @Trương Văn Trường Vũ @bé nương nương @Trâm Nguyễn Thị Ngọc

Code:

Bạn không thấy hay không hiểu chỗ nào thì nói với mình nha .

 

[ĐứcNhật!]

thuật toán: cắt tất cả các từ trong xâu ra, xét chiều dài của tụi nó, cái nào dài nhất thì in ra và ngắn nhất thì in ra.
Cách cắt: một từ là ở vị trí giữa hai dấu cách, cứ lấy hết các chữ cái rồi đến dấu cách thì dừng lại cắt chuỗi khác

Code:
View attachment 121050 View attachment 121051 View attachment 121052
Bạn không thấy hay không hiểu chỗ nào thì nói với mình nha .

Giúp em câu này nữa với ạ :3
---------
Xóa số trong xâu St bằng cách sử dụng hàm Post và Delete
Em cảm ơn nhiều ạ

 

[Trâm Nguyễn Thị Ngọc]

Giúp em câu này nữa với ạ :3
---------
Xóa số trong xâu St bằng cách sử dụng hàm Post và Delete
Em cảm ơn nhiều ạ

Để xóa số thì chỉ cần :

For i:=1 to length(s) do
  If s[i] in ['0'..'9'] then delete(s,i,1);

là được rồi mà bạn, cần gì hàm pos nhỉ?

 

[ĐứcNhật!]

Để xóa số thì chỉ cần :

For i:=1 to length(s) do
  If s[i] in ['0'..'9'] then delete(s,i,1);

là được rồi mà bạn, cần gì hàm pos nhỉ?

Cô mình bảo là phải dùng hàm post tìm vị trí của số đó rồi xóa đi

 

[Trâm Nguyễn Thị Ngọc]

Cô mình bảo là phải dùng hàm post tìm vị trí của số đó rồi xóa đi

Xóa một chữ số cho trước hay xóa tất cả các chữ số trong xâu vậy bạn?

 

[ĐứcNhật!]

Xóa một chữ số cho trước hay xóa tất cả các chữ số trong xâu vậy bạn?

Xóa tất cả chữ số trong xâu ._.
Đọc đề cũng thấy ngược ngược nên mới gửi nhờ mọi người giải giúp á ._.

 

[Trâm Nguyễn Thị Ngọc]

Xóa tất cả chữ số trong xâu ._.
Đọc đề cũng thấy ngược ngược nên mới gửi nhờ mọi người giải giúp á ._.

Đề bài như này mà sd hàm Pos thì hơi...
theo mình thì :

While pos('1',s)<>0 do
Delete(s,pos('1',s),1);
......pos('2',s)<>0 Do
.....

Kiểu như vậy cho đến số 9. Nhưng mà như thế này thì dài quá, mình không rõ là mình làm sai hay sao mà nó chưa có tối ưa lắm @@.
Nếu muốn xóa hết tất cả chữ số mà sd hàm pos thì chắc phải làm thế thôi....