Go Back   Diễn đàn trường THPT Trần Phú - Đà Nẵng > Góc học tập - Học tập online - học trực tuyến > Các môn học THPT > Môn Tin học > Tin học lớp 11


Hướng dẫn chung về kỳ thi Đại học, Cao đẳng 2012

Hãy tìm kiếm trước khi bạn đặt câu hỏi trên diễn đàn nhé !
Hữu ích:         Phần mềm dạy và học | Kinh nghiệm học tập | Bài giảng trực tuyến
  Văn mẫu:               Văn mẫu lớp 10 | Văn mẫu lớp 11 | Văn mẫu lớp 12

Hãy sử dụng trình duyệt FireFox hoặc Google Chrome để lướt web nhanh và an toàn hơn .
> Download FireFox < - > Download Google Chrome <




Tags - Từ khóa tìm thêm:
bai 12 kieu xau, bai tap kieu xau trong pascal, bai tap pascal 11 kieu xau, bai tap pascal kieu xau, bai tap ve kieu xau, bai tap ve kieu xau trong pascal, bài tập kiểu xâu trong pascal, bài tập về kiểu xâu tin học 11, giao an bai kieu xau, khai bao kieu xau trong pascal, kiểu xâu, kiểu xâu pascal, kiểu xâu trong pascal, kieu xau, kieu xau pascal, kieu xau trong pascal, tin hoc 11 kieu xau
Gởi Ðề Tài Mới  Trả lời
 
Ðiều Chỉnh Xếp Bài
  #1  
Old 28-11-2010, 10:34 PM
KuteoDnC's Avatar
  User Profile
KuteoDnCAdmin KuteoDnC is offline
Administrator
   Họ & Tên: Ku tèo
  • Đang học lớp : * Đã ra trường .
  • Niên khóa : 2002 - 2005
 
Tham gia: Oct 2009
Nơi Cư Ngụ: 127.0.0.1
Point: 2,322,436
Đã cảm ơn: 159 bài viết
Được cảm ơn 645 lần trong 184 bài
KuteoDnC is a splendid one to beholdKuteoDnC is a splendid one to beholdKuteoDnC is a splendid one to beholdKuteoDnC is a splendid one to beholdKuteoDnC is a splendid one to beholdKuteoDnC is a splendid one to beholdKuteoDnC is a splendid one to behold

Trùm tham nhũng Trùm tham nhũng Trùm tham nhũng Trùm tham nhũng 
Total Awards: 8

Send a message via ICQ to KuteoDnC
Default Bài 12: KIỂU XÂU

Bài 12: KIỂU XÂU


Một số khái niệm
- Xâu là một dãy kí tự trong bảng mã ASCII .
- Mỗi kí tự được gọi là một phần tử của xâu .
- Số lượng kí tự trong xâu được gọi là độ dài của xâu .
- Xâu có độ dài bằng 0 gọi là xâu rỗng.
- Tham chiếu tới phần tử trong xâu được xác định thông qua chỉ số của phần tử trong xâu .
- Chỉ số phần tử trong xâu thường được đánh số là 1 .
- Trong ngôn ngữ Pacal, tham chiếu tới phần tử thường được viết :
<Tên biến xâu>[chỉ số]

Cách khai báo và xử lí xâu trong ngôn ngữ Pascal :
1 Khai báo biến xâu :
Pascal sử dụng từ khóa STRING để khai báo xâu . Độ dài tối đa của xâu được viết trong [ ] sau từ khóa STRING . Khai báo như sau :
Var <tên biến> : String[độ dài lớn nhất của xâu] ;

Ví dụ :
Var Ten : String[10] ;
Ho_dem : String[50] ;
Que : String ;

Chú ý :
- Nếu không khai báo độ dài tối đa cho biến xâu kí tự thì độ dài ngầm định của xâu là 255 .
- Độ dài lớn nhất của xâu là 255 ký tự .
- Hằng xâu kí tự được đặt trong cặp nháy đơn ‘ ’ .

2 Các thao tác xử lí xâu
- Với các xâu kí tự có các phép phép xâu và phép so sánh hai xâu kí tự .
- Phép ghép xâu : Kí hiệu bằng dấu cộng + .

Ví dụ : ‘Ha’ + ‘Noi’ cho kết quả là ‘Ha Noi’
Phép so sánh : <, <=, >, >=, = , <>, Pascal tự động so sánh lần lượt từ kí tự từ trái sang phải .
Ví dụ : ‘AB’ < ‘AC’, ‘ABC’ > ‘ABB’, ‘ABC’ <’ABCD’

Một số thủ tục chuẩn dùng để xử lí xâu :
- Delete(St,vt,n) xóa n kí tự của xâu St bắt đầu từ vị trí vt .
- Insert(S1,S1,vt) chèn sâu S1 vào S2 bắt đầu từ vị trí vt của S2
- Val(St,x,m) Đổi giá trị xâu St thành số ghi giá trị vào biến X, nếu không đổi được thì vị trí gây lỗi ghi trong m, nếu đổi thành công thì m = 0
- Str(X,St) chuyển số X thành xâu kí tự lưu trong St .

Một số hàm chuẩn :
- Copy(St,vt,n) sao chép từ xâu St n kí tự từ vị trí vt .
- Pos(S1,S2) tìm vị trí xuất hiện đầu tiên của S1 trong S2 .
- Length(St) : cho độ dài xâu St .
- Upcase(ch) : cho chữ cái viết hoa tương ứng với chữ thường trong ch .
- CHR(X) : cho kí tự có mã X trong bảng mã ASCII .
- Ord(ch) : cho mã của kí tự ch trong bảng mã .

3 Một số ví dụ :
VD 1 :

Code:
Program vd1 ;
  Uses crt ;
  Var s1,s2 : String ;
   
  Begin
       Clrscr ;
       Write('Nhap xau thu 1 : ') ;
       Readln(s1) ;
       Write('Nhap xau thu 2 : ') ;
       Readln(s2) ;
       If length(s1) > Length(s2) then
          Write(s1)
       else
           Write(s2);
       Readln ;
  End .
VD 2 :

Code:
Program vd2 ;
  Uses crt ;
  Var s1,s2 : String ;
      x : Byte ;
   
  Begin
       Clrscr ;
       Write('Nhap xau thu 1 : ');
       Readln(s1) ;
       Write('Nhap xau thu 2 : ');
       Readln(s2) ;
       x := length(s2) ;
       If s1[1] = s2[x] then
          Write('Trung nha')
       else
           Write('Khac nhau');
       Readln ;
  End .
VD 3 :

Code:
Program vd3 ;
  Uses crt ;
  Var i,k : Byte ;
        a : String ;
  Begin
       Clrscr ;
       Write('Nhap xau : ') ;
       Readln(a) ;
       k := length(a) ;
       For i := k downto 1 do
           Write(a[i]) ;
       Readln ;
  End .
VD 4 :

Code:
Program vd4 ;
  Uses crt ;
  Var i,k : Byte ;
      a,b : String ;
   
  Begin
       Clrscr ;
       Write('Nhap xau : ') ;
       Readln(a) ;
       k := length(a) ;
       b :='' ;
       For i := 1 to k do
           if a[i] <> '' then
              b := b+a[i] ;
       Write(b) ;
       Readln ;
  End .
VD 5 :

Code:
Program Xulixau ;
  Uses crt ;
  Var s1,s2 : String ;
      i : Byte ;
   
  Begin
       Clrscr ;
       Write('Nhap xau s1 : ') ;
       Readln(s1) ;
       s2 := '' ;
       For i := 1 to length(s1) do
         If ('0'<s1[i]) and (s1[i]<='9') then
               s2 := s2 + s1[i] ;
       Write(s2);
       Readln ;
  End .


***Hãy cùng chia sẻ với bạn bè bằng cách ***
Copy nội dung dưới đây gửi đến nick yahoo bạn bè!
Tài sản của KuteoDnC
Trả Lời Với Trích Dẫn
Gởi Ðề Tài Mới  Trả lời

Ðiều Chỉnh
Xếp Bài

Quyền Sử Dụng
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt


Xin thông báo, bây giờ là 03:11 AM

Tổng lượng truy cập diễn đàn Tranphudn.Com
Powered by vBulletin
Copyright ©2000-2013, Jelsoft Enterprises Ltd
Website hiển thị tốt nhất ở trình duyệt Chrome hoặc FireFox và chế độ toàn màn hình
Khi tham gia diễn đàn tức là bạn đã đồng ý với Nội quy diễn đàn
BQT Không chịu trách nhiệm về nội dung bài viết mà các thành viên đăng tải lên diễn đàn
Địa chỉ trường: 11 Lê Thánh Tôn - TP.Đà Nẵng
Điện thoại: 0511.3822851

tran phu | de thi dh 2011 | de thi dai hoc 2011 | de thi dai hoc 2011 | Thu vien giao an dien tu| giao an dien tu| Giao an lop 10| Giao an lop 11| Giao an lop 12| Kinh nghiem hoc tap| van mau lop 9| Van mau lop 10| Van mau lop 11| Van mau lop 12| THPT Trần Phú Đà Nẵng | Thế hệ trẻ Yêu Hóa Học | doc truyen conan | meo choi lmht| soan bai | do go doc | top keywords, bua | |