Viết chương trình chuyển xâu mới bằng cách thay các dấu chấm than (!) thành dấu (.)

Nhập sâu S. Viết chương trình chuyển xâu mới bằng cách thay các dấu chấm than (!) thành dấu (.)

Ôn tập

Bộ ký tự, ký hiệu trong ngôn ngữ Pascal

• 26 chữ cái la tinh lớn: A,…,Z
• 26 chữ cái la tinh nhỏ: a,…,z
• Dấu gạch dưới: _
• Bộ chữ số thập phân: 0,…,9
• Các ký hiệu toán học: + – * / = < > ( )
• Các ký hiệu đặc biệt: . , ‘ : ; [] ? %
• @ | ! & # $ {}
• Khoảng trắng- ký tự cách.

Bài giải

Program Xoa_dau;

uses crt;

var st:string;

i,d:integer;

begin

    clrscr;

    write('Nhap xau:'); readln(st);

    d:=length(st);

    writeln('Xau vua nhap la: ',st);

    for i:=1 to d do

      if st[i]='!' then st[i]:='.';

    writeln('Xau thay the la: ',st);

    readln;

end.

Hình Minh Họa