Code Pascal - Tin Hoc 11: Đưa Ra Xâu đảo Theo Từ - Code Pascal

• Trang chủ
• Pascal cơ bản
  • Câu lệnh vòng lặp
  • Câu lệnh điều kiện
  • Mảng 1 chiều
  • Mảng 2 chiều
  • Xâu
• Kiến thức mở rộng
• Pascal nâng cao
  • Đệ quy
  • Quay lui
  • Quy hoạch động
• Liên hệ

• Bài tập Pascal
• Học Pascal online
• Giải bài tập Pascal
• Công cụ Pascal
• Đề thi học sinh giỏi

- Ebook Giải thuật và lập trình Lê Minh Hoàng - Các thuật toán sắp xếp trong Pascal *> Download: Turbo Pascal 7.0, Turbo Pascal for win 7, Free Pascal *> Giáo trình học Pascal *> Lý thuyết: Cấu trúc chương trình - Câu lệnh điều kiện - Câu lệnh vòng lặp - Mảng - Xâu *> Bài tập: * Yều cầu/Giải bài tập Pascal - Tìm số nguyên tố - Tìm UCLN, BCNN - Kiểm tra cấp số cộng - Đếm số lần xuất hiện mỗi chữ cái trong xâu You are here: » Home » Xâu » Đưa ra xâu đảo theo từ Đưa ra xâu đảo theo từ 10:17 Dinh Viết chương trình nhập vào xâu, đưa ra xâu đảo theo từ. Ví dụ: đi xe đạp -> đạp xe đi. uses crt;var s:string; x,y,z,t:byte;begin write('Nhap vao mot xau: '); readln(s); z:=length(s); for y:=length(s) downto 1 do begin if ((s[y]=' ')or(y=1)) then begin for t:=y to z do write(s[t]);z:=y end; write(' '); end; readln;end. Related Posts : Bài tập Pascal, Pascal mở rộng, Xâu Nhãn: Bài tập Pascal, Pascal mở rộng, Xâu Unknown nói...

Dòng "if ((s[y]=' ')or(y=1)) then begin for t:=y to z do write(s[t]);z:=y" để làm j vậy bạn, chỉ mình với

lúc 13:56 17 tháng 3, 2013 Nặc danh nói...

Hổng hiểu

lúc 17:08 29 tháng 3, 2013 Nặc danh nói...

Các từ cách nhau bởi dấu cách nên dùng s[y] = ' ' để kiểm tra... kiểm tra y = 1 để in ra từ đầu tiên trong chuỗi!

lúc 10:23 24 tháng 4, 2013 Nặc danh nói...

Mình không hiểu cho lắmBạn nói rõ 1 tí được không

lúc 08:09 24 tháng 11, 2013 Unknown nói... Nhận xét này đã bị tác giả xóa. Unknown nói...

hay

lúc 15:55 12 tháng 1, 2015 Unknown nói...

ban co the noi ro hon tu cho:if((.... cho den z:=y duoc ko??

lúc 15:23 22 tháng 11, 2015 Unknown nói...

ơ hời! ct sai rồi tác giả ơi!!!!

lúc 15:32 22 tháng 11, 2015 Nặc danh nói...

bài trên có rất nhiều dấu cách thừa, mình sẽ sửa lạiuses crt;var s:string; x,y,z,t:byte;begin write('Nhap vao mot xau: '); readln(s); z:=length(s); for y:=length(s) downto 1 do if ((s[y]=' ')or(y=1)) then begin for t:=y to z do write(s[t]); z:=y; end; delete(s,1,1); delete(s,length(s),1); readln;end.

lúc 21:04 17 tháng 12, 2015 Nặc danh nói...

dien

lúc 22:31 29 tháng 12, 2015 Quynh Dinh nói...

bỏ cái write(' ' ); đi là ok

lúc 11:53 15 tháng 1, 2016 Unknown nói...

hay do, de hieu

lúc 09:54 23 tháng 1, 2016 Yến thọ\ nói...

Cái chỗ t:= y to z do .... Là sao vậy bạn , t là 1 biến để xuất ra màn hình mà sao lại đặt = y to z vậy bạn , mình ko hiểu rõ cho lắm

lúc 05:46 10 tháng 3, 2016 Unknown nói...

bài này hơi khó hiểu thì phải giải thích dùm mình được không

lúc 14:30 23 tháng 3, 2016 Nặc danh nói...

Nặc danh nói ...

lúc 10:38 21 tháng 9, 2016 Unknown nói...

khó hiểu

lúc 13:19 19 tháng 3, 2017 Unknown nói...

bai nay kha la hay nhung tac gia co the lam de hieu hon dc khong a?

lúc 13:43 10 tháng 4, 2017 Unknown nói...

bài làm của bạn nặc danh đúng. nhưng theo mình nên thống nhất các biến cho dễ nhớ: như biến chạy dùng: i,j,k...- nếu chạy dạng tệp mà thừa, thiếu khoảng trống là sai đáp án so với các test, nên bạn nào làm dạng tệp cần lưu ý, ko xong rồi chạy thấy ok đến khi chấm = test lại zero điểm ah

lúc 09:56 4 tháng 5, 2017 Cuong nói... Nhận xét này đã bị tác giả xóa. Cuong nói...

THUẬT TOÁN TRÊN LÀ THUẬT TOÁN ĐÚNG ! NHƯNG KHI CÁC BẠN TEST CÁC TRƯỜNG HỢP KHÁC THÌ SẼ BỊ LỖI (test có rất nhiều bản đặc biệt)VD1:***đi**xe*****đạp****** >> thừa dấu cách ****đạp***xe******đi*VD2:cuong >> thừa dấu cách ****cuong*(dấu '*' là dấu cách)Nên mình có thuật toán này có thể khắc phục dc lỗi trên =))var s:string;i,j,k,f,:longint;beginreadln(s); s:=s+#32;while s[1]=#32 do delete(s,1,1);k:=length(s); i:=k;while k>1 dobegindem:=0; f:=i;while s[i]=#32 do begindec(i);dec(f);end;k:=i;while (s[i]<>#32)and (i>0) dobegindec(i);dec(k);end;for j:=k+1 to f do write(s[j]);write(#32);end;readlnend.

lúc 22:43 18 tháng 6, 2017 Unknown nói...

Có nghĩa khi gặp kí tự trắng thì nó sẽ viết ra các kí tự từ y to z nhé

lúc 11:43 14 tháng 5, 2019 Unknown nói...

Có nghĩa khi gặp kí tự trắng thì nó sẽ viết ra các kí tự từ y to z nhé

lúc 11:44 14 tháng 5, 2019 Unknown nói...

Có nghĩa khi gặp kí tự trắng thì nó sẽ viết ra các kí tự từ y to z nhé

lúc 11:44 14 tháng 5, 2019 Unknown nói...

mn có thể chỉ mk cách viết chương trình con bài này đc ko ạ

lúc 09:35 21 tháng 7, 2021 fatma nói...

afyonmuğlabatmanhakkariartvin2DM

lúc 03:58 28 tháng 7, 2023

Đăng nhận xét

Previous Article Next Article Trang chủ Đăng ký: Đăng Nhận xét (Atom) Widget By Devils Workshop

Đọc nhiều nhất

• Bài 5: Xâu ký tự (String) trong Pascal Xâu là gì? Để xử lý các chuỗi văn bản, Pascal đưa ra một kiểu dữ liệu mới gọi là xâu ký tự và được định nghĩa bằng từ khóa STRING. Xâu ký tự...
• Bài tập Pascal - Giải bài tập Pascal (cơ bản) Nhằm đáp ứng nhu cầu hỏi đáp về Pascal của anh em, đây sẽ là khu vực hỏi đáp, giải các bài tập về Pascal. Trước khi đặt câu hỏi, bạn cần lư...
• Tìm ước chung lớn nhất và bội chung nhỏ nhất pascal Ý tưởng: Lấy số lớn hơn trong 2 số trừ đi nhau. Lặp lại thao tác đến khi nào 2 số bằng nhau -> UCLN. Lấy tích của 2 số chia cho UCLN -...
• Bài 3: Câu lệnh vòng lặp trong Pascal (for, while, repeat) - Đánh răng mỗi ngày hai lần, học Tin học mỗi tuần 2 tiết, mỗi ngày tắm một lần... - Học cho đến khi thuộc bài, rửa tách trà cho đến khi sạ...
• Kiểm tra số nguyên tổ trong pascal Nhập vào 1 số. Xác định xem số đó có phải số nguyên tố hay không. Đây là một bài toán rất căn bản trong Pascal. Ý tưởng: Số nguyên tố là s...
• Tệp - Kiểu dữ liệu tệp trong Pascal Chuyên đề :   KIỂU DỮ LIỆU TỆP 1 Khái niệm về tệp: Tệp là một dãy các phần tử cùng kiểu được sắp xếp một cách tuần tự. Tệp dữ liệu đ...
• Ngày tháng năm sau ngày được nhập N ngày Đề bài: Nhập ngày tháng năm. Hãy cho biết ngày tháng năm sau đó N ngày.

Đám mây

Bài tập Pascal (49) Pascal cơ bản (38) Mảng 1 chiều (17) Pascal mở rộng (17) Học Pascal (11) Câu lệnh lặp (9) Pascal nâng cao (8) Bài tập sgk (6) Vòng lặp for (6) Xâu (5) Câu lệnh điều kiện (4) Giáo trình tài liệu (4) Kiểu tệp (3) Mảng 2 chiều (3) Chương trình con (2) Pascal Tools (2) Vòng lặp while (2) Bài tập trắc nghiệm (1) Câu lệnh case (1) Pascal vui (1) vòng lặp repeat (1)

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger. Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.