Đổi Sang Chữ In Hoa | VN4000 PASCAL

Trang chủ » Viết Hoa Xâu Pascal » Đổi Sang Chữ In Hoa | VN4000 PASCAL

Có thể bạn quan tâm

VN4000 PASCAL

Lý thuyết và Bài tập Lập trình Pascal

  • Home
  • About us

Kiểm tra chuỗi đối xứng Đổi chuỗi sang chữ thường

Đổi sang chữ in hoa

January 2, 2012

vn4000 Ví dụ và Bài tập lập trình Pascal Leave a comment

Chương trình Đổi sang chữ in hoa

Viết chương trình nhập vào họ tên của một người. Sau đó in chuỗi họ tên ra màn hình với các ký tự đầu đổi thành chữ hoa, toàn bộ chuỗi họ và tên đổi thành chữ hoa.

Program Chuoi_In_Hoa; Uses Crt; Var i:integer;st:string;

Begin Clrscr; Writeln(‘DOI CHUOI SANG CHUOI HOA’); Write(‘Nhap ho ten:’);readln(st); st[1]:=upcase(st[1]); For i:=1 to length(St) do If st[i]=’ ‘ then st[i+1]:=upcase(st[i+1]); Writeln(‘Ho ten sau khi doi lan 1 la: ‘,st); For i:=1 to length(St) do st[i]:=upcase(st[i]); Writeln(‘Ho ten sau khi doi lan 2 la: ‘,st);

Readln;

End.

Share this:

  • Facebook
  • X
Like Loading...

Related

Comments are closed.

Kiểm tra chuỗi đối xứng Đổi chuỗi sang chữ thường

Tìm kiếm

Bài viết mới

  • Bài 29 FULL SCREEN cho DOSBOX
  • Bài 28 Runtime Error 200
  • Bài 27 Một Số Hàm Số
  • Bài 26 Cấu trúc rẽ nhánh và lựa chọn phần 3
  • Bài 25 Cấu trúc rẽ nhánh và lựa chọn phần 2

Danh mục

  • Lý thuyết lập trình Pascal
  • Ví dụ và Bài tập lập trình Pascal

Blog at WordPress.com.

Privacy & Cookies: This site uses cookies. By continuing to use this website, you agree to their use. To find out more, including how to control cookies, see here: Cookie Policy
  • Reblog
  • Subscribe Subscribed
    • VN4000 PASCAL
      • Sign me up
    • Already have a WordPress.com account? Log in now.
    • VN4000 PASCAL
    • Subscribe Subscribed
    • Sign up
    • Log in
    • Copy shortlink
    • Report this content
    • View post in Reader
    • Manage subscriptions
    • Collapse this bar
%d Design a site like this with WordPress.comGet started

Từ khóa » Viết Hoa Xâu Pascal