Chào mừng Bạn tham gia Diễn Đàn VNKienThuc.com - Định hướng Forum Kiến Thức
- HÃY TẠO CHỦ ĐỀ KIẾN THỨC HỮU ÍCH VÀ CÙNG NHAU THẢO LUẬN
Kết nối: VNK X - VNK groups | Nhà Tài Trợ: BhnongFood X - Bhnong groups - Đặt mua Bánh Bhnong

Trả lời chủ đề

Nội dung: <blockquote data-quote="Trung Kiên" data-source="post: 136328" data-attributes="member: 3"> Kiểu xâu:1.[code][COLOR=#000000] [SIZE=4]Uses Crt;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Var  St:String;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]        i:Byte;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Begin[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Write(‘Nhap xau St: ‘); Readln(St);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    For i:=1 to length(St) do St[i]:=Upcase(St[i]);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Write(‘Xau ket qua: ‘, St);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Readln;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]End.[/SIZE][/COLOR][/code] 2.[code][COLOR=#000000] [SIZE=4]Uses Crt;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Var  St:String;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]        i:Byte;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Begin[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Write(‘Nhap xau St: ‘); Readln(St);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    For i:=1 to length(St) do[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]        If St[i] IN [‘A’..’Z’] Then St[i]:=CHR(ORD(St[i])+32);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Write(‘Xau ket qua: ‘, St);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Readln;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]End.[/SIZE][/COLOR][/code] 3.[code][COLOR=#000000] [SIZE=4]Uses Crt;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Var  St:String;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]        i,d:Byte;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Begin[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Write(‘Nhap xau St: ‘); Readln(St);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    For i:=1 to length(St) do[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]        If St[i] IN [‘0’..’9’] Then d:=d+1;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Write(‘So ky tu chu so trong xau: ‘, d);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Readln;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]End.[/SIZE][/COLOR] [SIZE=4][/SIZE][/code] 4.[code][COLOR=#000000] [SIZE=4]Uses Crt;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Var  St:String;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Procedure  XoaTrangThua(Var St:String);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Begin[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    {Xóa các ký tự trắng ở đầu xâu}[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    While St[1]=#32 Do Delete(St,1,1);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    {Xóa các ký tự trắng ở cuối xâu}[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    While St[Length(St)]=#32 Do Delete(St,Length(St),1);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    {Xóa các ký tự trắng ở giữa xâu}[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    While POS(#32#32,St)<>0 Do Delete(St,POS(#32#32,St),1);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]End;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Begin[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Write(‘Nhap xau St: ‘); Readln(St);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    XoaTrangThua(St);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Write(‘Xau sau khi xoa cac ky tu trang thua: ‘, St);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Readln;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]End.[/SIZE][/COLOR][/code] 5.[code][COLOR=#000000] [SIZE=4]Uses Crt;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Var  St:String;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Procedure  XoaTrangThua(Var St:String);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Begin[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    {Xóa các ký tự trắng ở đầu xâu}[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    While St[1]=#32 Do Delete(St,1,1);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    {Xóa các ký tự trắng ở cuối xâu}[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    While St[Length(St)]=#32 Do Delete(St,Length(St),1);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    {Xóa các ký tự trắng ở giữa xâu}[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    While POS(#32#32,St)<>0 Do Delete(St,POS(#32#32,St),1);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]End;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Begin[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Write(‘Nhap xau St: ‘); Readln(St);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    XoaTrangThua(St);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    St:=St+#32;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Writeln(‘Liet ke cac tu trong xau: ‘);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    While POS(#32,St)<>0 Do[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]        Begin[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]           Writeln(Copy(St,1,POS(#32,St)));[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]           Delete(St,1,POS(#32,St));[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]        End;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Readln;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]End.[/SIZE][/COLOR][/code] 6.[code][COLOR=#000000] [SIZE=4]Uses Crt;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Var  St:String;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]{Giải thuật không đệ qui}[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Function XauDao(St:String):String;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Var  S:String;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]        i:Byte;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Begin[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    S:=’’;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    For i:=Length(St) DowTo 1 Do S:=S+St[i];[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    XauDao:=S;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]End;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]{Giải thuật đệ qui}[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Function DeQui(St:String):String;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Begin[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    If Length(St)<=1 Then DeQui:=St[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Else DeQui:=St[Length(St)] + DeQui(Copy(St,1,Length(St)-1));[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]End;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]Begin[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Write(‘Nhap xau St: ‘); Readln(St);[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Write(‘Xau dao nguoc: ‘, XauDao(St));[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]    Readln;[/SIZE][/COLOR][COLOR=#000000] [SIZE=4]End.[/SIZE][/COLOR][/code]</blockquote>

Tên

Mã xác nhận