Viết Chương Trình Pascal: Chuẩn Hoá Xâu Họ Tên
Có thể bạn quan tâm
Đăng nhập
Việt Nam Overnight Trang Chủ Diễn Đàn > E - CÁC CÂU LẠC BỘ > CLB Học Tập > Học Online >- Tặng tiền điện tử miễn phí
- Phát thẻ điện thoại miễn phí
- Những nhiệm vụ kiếm tiền
- Hướng dẫn kiếm tiền Binance
Thảo luận trong 'Học Online' bắt đầu bởi Liễu., 11 Tháng ba 2021.
-
Liễu.
Bài viết: 1101. Đề: Viết chương trình pascal: Chuẩn hóa xâu họ tên. Ví dụ, ta nhập vào xâu ' _ _ mAi_ liNH_ _ _NHi_ _ ' và viết chương trình xuất ra xâu 'Mai Linh Nhi' (Các dấu ' _ ' là khoảng cách). Vậy có nghĩa là ta phải làm các công việc sau: • Xóa các khoảng cách thừa ở đầu xâu. • Xóa các khoảng cách thừa ở cuối xâu. • Xóa các khoảng cách thừa bên trong xâu. • Viết in hoa các kí tự đầu của mỗi chữ. (Trước khi thực hiện bước này ta phải chuyển toàn bộ xâu thành kí tự thường, sau đó thực hiện câu lệnh "nếu gặp khoảng cách thì in hoa chữ cái đầu tiên sau khoảng cách". Còn một cách nữa là chuyển toàn bộ xâu thành kí tự hoa rồi chuyển các kí tự không phải kí tự đầu tiên sau khoảng cách về chữ thường, nhưng cách này khó hơn nên mình sẽ dùng cách kia) 2. Giải: ( Khi viết chương trình thì khoảng cách mình sẽ ghi là #32 ) Mã: program ct3; uses crt; var s: string; i, l: integer; begin write('nhap xau s'); Read(s); { Xoá khoảng cách thừa ở đầu xâu. } while s[1] = '#32' do delete(s, 1, 1); { Xoá khoảng cách thừa ở cuối xâu.} l := length(s); while s[l] = '#32' do delete(s, l, 1); { Xoá khoảng cách thừa trong xâu.} while pos(, s) > 0 do delete(s, pos(#32#32, s), 1); { Chuyển xâu thành kí tự thường } for i := 1 to length(s) do if (s >= 'A') and (s <= 'Z') then s:= chr(ord(s + 32)) ; { In hoa kí tự đầu của mỗi chữ } s:= upcase(s[1]); for i := 2 to length(s) do if s = #32 then s[i + 1]:= upcase(s[i + 1]) ; writeln('ho va ten la: ', s); readln; end. Viết bài 1 lần, nhận nhuận bút cả đời: Đăng Ký
Thùy Minh và Admin thích bài này. Chỉnh sửa cuối: 15 Tháng sáu 2022 Liễu., 11 Tháng ba 2021 Tặng xu #1 -
MinhBui
Bài viết: 1Var s: String; I: Longint; Begin ReadLn (s) ; While Pos (#32#32, s) <>0 do Delete (s, Pos (#32#32, s), 1) ; If s[1] =#32 then Delete (s, 1, 1) ; If s[Length (s) ] =#32 then Delete (s, Length (s), 1) ; S: =s+#32; For i: = 1 to Length (s) do s: =LowerCase (s) ; S[1]: =upcase (s[1] ) ; For i: = 1 to Length (s) do If s=#32 then s[i+1]: = upcase (s[i+1] ) ; Writeln (s) ; End.
MinhBui, 15 Tháng mười 2023 Tặng xu #2
- pascal
- Login with Facebook
- Log in with Google
- Tích vào đây để đăng ký
- Vâng, Mật khẩu của tôi là:
- Bạn đã quên mật khẩu?
Đề tài cần chú ý
- Nội quy box học online Sói replied 1 Tháng tám 2023
Xem nhiều nhất tuần
- Đọc Hiểu Văn Bản: Bản thân... Cute pikachu posted 25 Tháng sáu 2024
- Đề bài: Viết bài tập làm văn... Lê Tấn Lộc posted 20 Tháng sáu 2024
- Đề bài: Hãy viết bài văn cảm... Lê Tấn Lộc posted 20 Tháng sáu 2024
- Đọc hiểu: Đoạn trích Trang hoa... maimai27 posted 22 Tháng sáu 2024
- Phân tích Nhân vật Mị - Vợ... tientien1701 posted 22 Tháng sáu 2024
Thể loại phim bạn yêu thích nhất?
- Phim hài 9 phiếu
- Phim kinh dị 12 phiếu
- Phim hành động 6 phiếu
- Phim hoạt hình 19 phiếu
- Phim cổ trang 14 phiếu
- Khoa học viễn tưởng 10 phiếu
- Thể loại khác 8 phiếu
Từ khóa » Viết Chương Trình Chuẩn Hóa Xâu Trong Pascal
-
Chuẩn Hóa Xâu (chuỗi) Trong Pascal - YouTube
-
Viết Chương Trình Chuẩn Hóa Xâu - Góc Tin Học
-
Chuẩn Hóa Xâu Bằng Pascal - Viết Hoa Chữ Cái đầu Tiên Và Xóa Dấu ...
-
Viết Chương Trình Chuẩn Hóa Xâu, Trong đó Sử Dụng ... - TopLoigiai
-
BÀI 11: Viết Chương Trình Nhập 1 Xâu Từ Bàn Phím. Hãy Chuẩn Hóa ...
-
Viết Hoa Kí Tự đầu Từ - Giống Nghi Họ Và Tên Trong Pascal - Ôn Thi HSG
-
Viết Thủ Tục Chuẩn Hoá Xâu Và Viết Hoa Chữ Cái đầu Xâu
-
Nhập Vài 1 Xâu Gồm Có Dấu Cách Và Kí Tự Không Hoa - Hoc24
-
Chương Trình Chuẩn Hóa Xâu Trong Pascal - 123doc
-
[PDF] Chuyên đề Xử Lý Xâu
-
Giúp Mình Giải Bài Pascal Với - HOCMAI Forum
-
Chuẩn Hóa Xâu, Tách Họ Và Tên - Đào Tạo Tin Học Trực Tuyến
-
Bài Toán Chuẩn Hóa Xâu Ký Tự Lập Trình C/C+