Kiểm Tra Chuỗi đối Xứng | VN4000 PASCAL

Trang chủ » Dem Chuoi Doi Xung » Kiểm Tra Chuỗi đối Xứng | 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

Đếm lần xuất hiện của một ký tự Đổi sang chữ in hoa

Kiểm tra chuỗi đối xứng

January 2, 2012

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

Chương trình Kiểm tra chuỗi đối xứng

Viết chương trình nhập vào một chuỗi kí tự, sau đó nhập vào một kí tự bất kì và đếm số lần của nó trong chuỗi đã nhập.

Program Chuoi_Doi_Xung; Uses Crt; Var st:string; i:integer; ok:boolean;

Begin Clrscr; Writeln(‘KIEM TRA CHUOI DOI XUNG’); Write(‘Nhap chuoi ky tu: ‘);Readln(st); ok:= true; For i:=1 to length(St)div 2 do If st[i]st[length(st)-i+1] then ok:=false;

If ok then Writeln(st,’ la chuoi doi xung’) Else Writeln(st, ‘ khong la chuoi doi xung’);

Readln;

End.

Share this:

  • Facebook
  • X
Like Loading...

Related

Comments are closed.

Đếm lần xuất hiện của một ký tự Đổi sang chữ in hoa

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 » Dem Chuoi Doi Xung