Viết Chương Trình Pascal: Chuẩn Hoá Xâu Họ Tên

Có thể bạn quan tâm

Trang chủ
Diễn đàn Bài viết mới Tìm kiếm
Tin mới Nổi bật Bài viết mới Nhật ký mới Hoạt động
Tiện ích Up ảnh miễn phí Kiểm tra chính tả Kiếm tiền Online Mua bitcoin làm giàu Thẻ điện thoại miễn phí
Thành viên Đã đăng ký Đang truy cập Nhật ký mới Tìm kiếm
Danh bạ New items New comments Latest reviews Tìm kiếm danh bạ Mark read

Đăng nhập Đăng ký Trực tiếp Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài thảo luận Diễn đàn này This thread Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

Bài viết mới
Tìm kiếm

Danh mục Đăng nhập Đăng ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser.

Thread starter Thread starter Liễu.
Ngày gửi Ngày gửi 11 Tháng ba 2021

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

Đặt quảng cáo Binance kiếm tiền thông báo chơi game 2048 text link facebook cách viết bài thẻ điện thoại BOT giao dịch MEXC tự sướng 5 triệu Viết chương trình pascal: Chuẩn hoá xâu họ tên [Xóa] 1 người đang xem Theo dõi L

Liễu.

Xu 8,372 213 ❤︎ Bài viết: 114 Tìm chủ đề

1. Đề: 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[i] >= 'A') and (s[i] <= 'Z') then s[i]:= chr(ord(s[i] + 32)) ; { In hoa kí tự đầu của mỗi chữ } s[i]:= upcase(s[1]); for i := 2 to length(s) do if s[i] = #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ý Chỉnh sửa cuối: 15 Tháng sáu 2022 M

MinhBui

Xu 1 0 ❤︎ Bài viết: 1 Tìm chủ đề

Var 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. Từ khóa: Sửa

Từ khóa Từ khóa pascal

Những người đang xem chủ đề này

Tổng: 2 Thành viên: 0, Khách: 2

Các chủ đề tương tự

Cách làm các kiểu bài dạng viết - Ngữ văn 10 - Chương trình mới

Thùy Minh
9 Tháng năm 2023
Học Online

Trả lời 7 Đọc 2K 13 Tháng năm 2023 Thùy Minh

Viết chương trình pascal: Tính diện tích hình tam giác, tròn, vuông, chữ nhật, thang

MỹSweet
24 Tháng sáu 2022
Học Online

Trả lời 0 Đọc 3K 24 Tháng sáu 2022 MỹSweet

Viết chương trình pascal: Cho biết chữ số thứ k tính từ trái sang phải trong số N là số mấy?

MỹSweet
23 Tháng sáu 2022
Học Online

Trả lời 0 Đọc 1K 23 Tháng sáu 2022 MỹSweet

Viết chương trình tính tổng 3 số a,b,c . Trong đó a,b,c nhập từ bàn phím

họC Ng
3 Tháng mười 2021
Học Online

Trả lời 0 Đọc 12K 3 Tháng mười 2021 họC Ng

Tin11C++ Viết chương trình nhập vào bàn phím xâu kí tự không quá 100. Cho biết trong xâu có bn số

Hương Chi
30 Tháng tư 2021
Học Online

Trả lời 0 Đọc 836 30 Tháng tư 2021 Hương Chi

Share: Facebook X Bluesky LinkedIn Reddit Tumblr Email Share Link

Nội dung nổi bật

Hướng dẫn kiếm tiền từ việc đăng ảnh
- Admin
- 25 Tháng ba 2019
Trả lời: 1
Các nhiệm vụ kiếm tiền online tại diễn đàn
- Admin
- 18 Tháng tư 2018
Trả lời: 7
Giới thiệu thành viên - Kiếm tiền không giới hạn
- Admin
- 16 Tháng tư 2018
Trả lời: 9
Hướng dẫn cách kiếm nhiều xu từ việc giới thiệu bạn bè
- Admin
- 31 Tháng bảy 2019
Trả lời: 40
Hướng dẫn cách chia sẻ bài viết lên Facebook, Twitter kiếm tiền
- Admin
- 26 Tháng mười một 2015
Trả lời: 1

Xu hướng nội dung

Nối chữ tiếng Việt
- luuxinh69
- 16 Tháng tám 2020
Trả lời: 6K
Nối chữ tiếng Anh
- Xuân Lê
- 24 Tháng mười một 2020
Trả lời: 5K
Các nhiệm vụ kiếm tiền online tại diễn đàn
- Admin
- 18 Tháng tư 2018
Trả lời: 7
Trò chơi Tìm từ ba chân
- Wall-E
- 26 Tháng tư 2018
Trả lời: 3K
[convert] Yêu Chiều Kết Hôn - Hà Tiểu Tiên
- Land of Oblivion
- 23 Tháng mười 2018
Trả lời: 4K