Hỏi bài tập pascal 11?

[muahoatuyet]

1. Viết chương trình xóa các kí tự chữ số trong xâu nhập từ bàn phím
2. Viết chương trình xóa các kí tự in hoa trong xâu nhập từ bàn phím
(Sử dụng các hàm và thủ tục như delete, pos,...)

 

[Trung Kiên]

1.

Uses Crt;


Var  St:String;


 


{Hàm POSNUM kiểm tra xem trong xâu St có ký tự chữ số hay không? Nếu có, hàm trả về vị trí đầu tiên của ký tự chữ số, ngược lại hàm trả về giá trị 0}


Function POSNUM(St:String):Byte;


Var  OK:Boolean;


        i:Byte;


Begin


    OK:=False;


    i:=1;


    While (i<=Length(St)) AND (Not OK) Do


        If St[i] IN [‘0’..’9’] Then OK:=True


        Else i:=i+1;


    If OK Then POSNUM:=i Else POSNUM:=0;


End;


 


Begin


    Write(‘Nhap xau St: ‘); Readln(St);


    While POSNUM(St)<>0 Do Delete(St,POSNUM(St),1);


    Write(‘Xau sau khi xoa: ‘,St);


    Readln;


End.